Excel 2010 VBA .. Ajout de séries à un graphique existant

Question

Je suis actuellement en train d'essayer de remplir un graphique avec des données où l'utilisateur peut simplement appuyer sur le bouton de la feuille de calcul. Le problème que j'ai est que j'ai besoin du bouton pour copier des données à une feuille de données, puis le tableau va remplir à partir de la feuille de données. Je peux le faire, mais je besoin d'une nouvelle série créée sur le graphique pour toutes les nouvelles données qui est Ente

Sub RoundedRectangle2_Click() 

End Sub 


Sub MAPS() 
Sheets("MAPS_FORM").Range("e47").Copy 
Sheets("Data_Sheet").Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial _ 
Paste:=xlPasteValues 
Application.CutCopyMode = False 
Sheets("MAPS_FORM").Range("d2").Copy 
Sheets("Data_Sheet").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial _ 
Paste:=xlPasteValues 
Application.CutCopyMode = False 



Sheets("Data_Sheet").Range("b2:b46").Copy 
Charts("Chart1").SeriesCollection.Paste 

Range("e6:i8").ClearContents 
Range("e12:i19").ClearContents 
Range("e23:i27").ClearContents 
Range("e31:i36").ClearContents 
Range("e40:i43").ClearContents 
Range("d2").ClearContents 
Sheets("Data_Sheet").Select 
End Sub 

Answer 1

changer simplement la propriété .SetSourceData après avoir ajouté les données.

Prenons un exemple

Disons que vous des données est de A1:A5 et le graphique est basé sur cette plage. Voir capture d'écran ci-dessous

Maintenant, supposons que vos données ajoutée est de B1:B5 et veulent que montrer comme une série dans le tableau, puis il suffit d'utiliser ce code

Option Explicit 

'~~> Please amend the code as applicable 
Sub Sample() 
    Dim objChrt As ChartObject 
    Dim chrt As Chart 

    Set objChrt = ActiveSheet.ChartObjects("Chart 1") 
    Set chrt = objChrt.Chart 

    With chrt 
     .SetSourceData (ActiveSheet.Range("A1:B5")) 
    End With 
End Sub 

Lorsque vous exécutez le code de la le graphique montrera automatiquement la nouvelle série.