Eksportuj wykres jako obraz - kliknięciem przycisku
Próbuję utworzyć przycisk, który wyeksportowałby wykres w arkuszu „Wykresy” jako plik jpeg. To jest kod, który mam, ale pokazuje ten błąd:
błąd wykonania 424: wymagany obiekt
W tym celu:
Set myChart = Graphs.ChartObjects(3).Name = "Chart4"
A oto kod
Sub ExportChart()
Dim myChart As Chart
Dim myFileName As String
Set myChart = Graphs.ChartObjects(3).Name = "Chart4"
myFileName = "myChart.jpg"
On Error Resume Next
Kill ThisWorkbook.Path & "\" & myFileName
myChart.Export Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="PNG"
MsgBox "OK"
Set myChart = Nothing
End Sub
Dziękuję wszystkim!