ActiveSheet.ChartObjects.Activate
Ximena
Erneut ein Problem im Excel... Ich bin am verzweifeln...
Ich erstelle per Makro eine Grafik (was auch funktioniert). Danach möchte ich die Grafik als JPG Bild abspeichern. Das klappt soweit eigentlich auch, nur bei manchen Makros tut er doof!
Ich lasse meine Excel Makros aus dem Word laufen und deshalb sieht das folgendermassen aus:
'Backup Makro laufen lassen und die drei Variablen mitgeben
objXLS.Application.Run "VBAProject.BackupSuccess.BackupSuccess", myMonth, myYear, _
myDivision
'Chart als Bild abspeichern
objXLS.ActiveSheet.ChartObjects(1).Activate
Dateiname = "H:\SLRReports\Backup Report Grafik " & myDivision & ".jpg"
objXLS.ActiveChart.Export FileName:=Dateiname, FilterName:="JPG"
Bei diesem Beispiel hat die Makro keine Probleme. Aber hier:
'Availability Makro laufen lassen und die drei Variablen mitgeben
objXLS.Application.Run "VBAProject.Availability.Availability", myMonth, myYear, myDivision
'Chart als Bild abspeichern
'Gold
objXLS.ActiveSheet.ChartObject(1).Activate
Dateiname = "H:\SLRReports\Gold Availability Grafik " & myDivision & ".jpg"
objXLS.ActiveChart.Export FileName:=Dateiname, FilterName:="JPG"
'Silver
objXLS.ActiveSheet.ChartObject(2).Activate
Dateiname = "H:\SLRReports\Silver Availability Grafik " & myDivision & ".jpg"
objXLS.ActiveChart.Export FileName:=Dateiname, FilterName:="JPG"
'Bronze
objXLS.ActiveSheet.ChartObject(3).Activate
Dateiname = "H:\SLRReports\Bronze Availability Grafik " & myDivision & ".jpg"
objXLS.ActiveChart.Export FileName:=Dateiname, FilterName:="JPG"
kommt immer eine Fehlermeldung! Und zwar markiert er mir objXLS.ActiveSheet.ChartObject(1).Activate.
Object doesn't support this property or method¨
Was stimmt nicht an meinem Code? Warum funzt es oben und unten nicht?
Kann mir da jemand weiterhelfen?
Liebe Grüsse
Ximena