Экспорт сгруппированной формы как изображения не работает

Question

Мне нужно экспортировать сгруппированные фигуры с именем «центр» в общую папку как .jpg. У меня есть код, который выполняет эту работу при использовании кнопки клавиатуры f8. Однако, если код работает нормально, он экспортирует пустое изображение.

Пожалуйста, помогите.

Sub Export_JPG()

Dim ws1 As Worksheet: Set ws1 = Worksheets("KPI")
Dim ws2 As Worksheet: Set ws2 = Worksheets("ChartPage")

Dim chtObj As ChartObject
Dim SharepointAddress As String
Dim myshape As shape

ws1.Range("A1").FormulaR1C1 = "=NOW()"

Set myshape = ws1.Shapes("center")
Set chtObj = ws2.ChartObjects.Add(myshape.Left, myshape.Top, myshape.Width, myshape.Height)

myshape.CopyPicture
chtObj.Chart.Paste

SharepointAddress = "C:\Users\me\Desktop\1.jpg"
Kill SharepointAddress
chtObj.Chart.Export Filename:=SharepointAddress, Filtername:="JPG"

chtObj.Delete
Set chtObj = Nothing

End Sub

Answer 1

Пожалуйста, вставьте строку между CopyPicture и Paste:

myshape.CopyPicture
 chtObj.Select
chtObj.Chart.Paste 'it works only for a selected chart!