"Graphs"シートのグラフをjpegファイルとしてエクスポートするボタンを作成しようとしています。これは私が持っているコードです、しかしそれは、このエラーを示すに保持します。このために具体的にグラフを画像としてエクスポートする - ボタンをクリックする
runtime error 424: object required
:
Set myChart = Graphs.ChartObjects(3).Name = "Chart4"
をそしてここでコード
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
みんなありがとうです!
あなたは速すぎます! OPの1つのメモは、シッダースの答えに組み込まれているので、できるだけ早くOn Error GoToをコードに追加するか、エラーをマスクします。この場合、ChartObjectのChartオブジェクトが必要です。これは常に混乱します。 –
私は最後の数日間は活動していません:D –
すごくうれしいです。ありがとう! – pufAmuf