Добрый день!
Есть код, который експортирует диаграмы как картинки в ексель, как можна его поменять, что-бы картинка была  такая же как размер слайда (длина)







Dim MainKrok As Long

Application.ScreenUpdating = False
Call namesWeekly ' вызов процедуры наименования


Dim slidenumber1 ' номера процедур для переноса в экселе
slidenumber1 = Array(2, 3, 4, 10, 11, 13, 15, 17, 20, 21, 24, 25)

Dim slidenumber11 ' номера слайдов для переноса   в ппт
slidenumber11 = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13
)
Dim identif As String ' имя процедуры выбора слайдов


Dim objPowerPoint As New PowerPoint.Application
Dim objTemplate As PowerPoint.Presentation
Const strTemplatePath As String = "C:\Users\yo.klymenko\Desktop\1234.pptx"
'Const strTemplatePath As String = "C:\Users\s.piskun\Desktop\ШАБЛОНSP short.pptx"


Set objTemplate = objPowerPoint.Presentations.Open(Filename:=strTemplatePath)


Visual.Activate


For MainKrok = 0 To UBound(slidenumber1)
identif = "Select" & slidenumber1(MainKrok)
Application.Run identif
Selection.Copy


Set temppict = objTemplate.Slides(slidenumber11(MainKrok)).Shapes.PasteSpecial(ppPasteJPG) '
temppict.Left = Application.CentimetersToPoints(-0.1)
temppict.Top = Application.CentimetersToPoints(-0.1)




Next MainKrok


End Sub