Экспорт графиков из Excel

Question

Мне было интересно, как экспортировать графики из Excel вместо использования инструмента Snipping ... Я нашел код там и там .Но я застрял со следующей ошибкой:

"Run-Time error '424'": Object required 

(так же, как в ссылке 2), но я не могу понять, откуда она взялась ...

Есть мысли, с чего начать?

Sub SaveAllCharts()

Dim SaveToDirectory As String

Dim myChart As Chart

SaveToDirectory = ActiveWorkbook.Path & "\Images\"

MsgBox ("Saved Directory:" + SaveToDirectory)

For Each myChart In ActiveWorkbok.Charts MsgBox (OK) myChart.Export SaveToDirectory & myChart.Name & ".png", PNG Next

End Sub

Answer 1

В вашем коде было несколько ошибок Option Explicit - отличный способ найти опечатки, как сказали несколько человек.

Другая ошибка была в вашей myChart.Export (SaveToDirectory & myChart.Name & ".png", PNG) строке.Вам не нужно filterName, поэтому myChart.Export (SaveToDirectory & myChart.Name & ".png") идеально подходит для этого случая

Полный код:

Option Explicit
Sub SaveAllCharts()

Dim SaveToDirectory As String

Dim myChart As Chart

SaveToDirectory = ActiveWorkbook.Path

MsgBox ("Saved Directory:" + SaveToDirectory)

For Each myChart In ActiveWorkbook.Charts
myChart.Export (SaveToDirectory & myChart.Name & ".png")
Next myChart

End Sub

Я протестировал этот код, и он работает на моем компьютере, если у вас возникли проблемыЯ постараюсь помочь вам

Надеюсь, это поможет