Как переместить изображение вниз, используя VBA в PowerPoint из Excel?

Question

Я новичок в vba и макросах в powerpoint. Каков правильный синтаксис для позиционирования изображения вниз -30?

PPT.ActiveWindow.View.GotoSlide 9

Set PPApp = GetObject(, "Powerpoint.Application")
' Reference active presentation
Set PPPres = PPApp.ActivePresentation
' Reference active slide
Set PPSlide = PPPres.Slides _
    (PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
' Copy chart as a picture
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
    Format:=xlPicture
' Paste chart
PPSlide.Shapes.Paste.Select
' Align pasted chart

Dim xyz As Shape
Set xyz = PPSlide.Shapes.Selection


PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
xyz.Top = xyz.Top - 30

Answer 1

ОБНОВЛЕНО

На основании вашего примера кода, я думаю, вы хотите попробовать что-то вроде этого:

 PPSlide.Shapes.Paste.Select
' Align pasted chart

PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
PPApp.ActiveWindow.Selection.ShapeRange(1).Top = PPApp.ActiveWindow.Selection.ShapeRange(1).Top + 30

Вы можете удалить строки, относящиеся к xyz.