Um ein die Eigeschaften eines Diagrammes muss man es nicht
unbedingt zuvor aktivieren:

Set Diagramm = Sheets(Tabellenname).ChartObjects(Diagrammname).Chart
With Diagramm
   'Eigenschaften setzen oder ermitteln
   .SetSourceData ...
End With

�

�