В настоящее время я отображаю график в пользовательской форме, поэтому мне нужно экспортировать график в jpg и загрузить его обратно. Иногда график не сохраняется в файл и после просмотра этого вопроса {link} . Я вижу решение для активации графика. Но при этом возникает ошибка «метод активации объекта _chart failed» Как активировать график?
Function Load_Chart(Area)
Dim Est As Worksheet
Dim CurrentChart As Chart
Set Est = ThisWorkbook.Sheets("Estimate")
Set CurrentChart = Est.Shapes("Estimate Chart").Chart
CurrentChart.Activate
CurrentChart.SetSourceData Source:=Sheets("Estimate").Range(Area)
CurrentChart.Export VBA.Environ("Temp") & Application.PathSeparator & "CurrentChart.jpg"
Me.imgChart.Picture = LoadPicture(VBA.Environ("Temp") & Application.PathSeparator & "CurrentChart.jpg")
End Function
EDIT Я только что заметил, что если я найду график в электронной таблице, прежде чем я пытаюсь экспортировать его, он работает правильно, и мне не нужна строка CurrentChart.Activate
Я не знаю, связано ли это?