ich will ein diagramm als grafik abspeichern, aber das funktioniert nur wenn dieses "Diagramm 1" heißt, nur ich hab eben jetzt das problem das es diagramm 4 heißt, und so funktioniert folgender quelltext nicht (mit einem 1er statt einem 4er geht es)
Private Sub CommandButton1_Click()
Dim Dia As Chart
Sheets(1).Activate
ActiveSheet.ChartObjects(4).Select
Set Dia = ActiveSheet.ChartObjects(4).Chart
Dia.Export Filename:="c:\" & "test" & ".jpg", FilterName:="JPG"
End Sub
und weiß viell. jemand wie ich das diagramm umbenennen kann?