关于PPT里面VBA的使用问题

user_bvssr

我的PPT里面没页有个图片，我想用宏来改图片的大小，改成统一的，不知道怎么弄，录制了一个宏，但是有的时候能用，有的时候不能用。
想要图片高为15CM，图片居中
录完宏代码如下，请高手帮忙:handshake
Sub Macro6()
'
'
ActiveWindow.Selection.SlideRange.Shapes("Picture 8").Select
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Height = 425.38
.Width = 605.62
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 92.38
.IncrementTop 66.38
End With
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.38
ActiveWindow.Selection.ShapeRange.IncrementLeft 3.5
End Sub

1379270383

::L 在线等答案，谢谢了:handshake

user_dlcul

高手快来呀，我需要你~~~~