PowerPoint VBA 画像のサイズ

こんにちは。

PowerPoint2007 VBAで今選択している画像のサイズを
指定のサイズに変える方法を教えていただけないでしょうか。
出来ればコードも書いていただけると嬉しいです

MSDN等調べれば出てくるかとも思ったのですが、
VBA自体をExcelで少し触った程度なので分かりませんでした。

よろしくお願いします。

No.1 ベストアンサー 回答者： DreamyCat 回答日時： 2012/09/24 21:48

１個づつでもよければ下記でできます。

WindowとslideがわかればあとはExcelと同じです。

Sub test()
Dim w As Single
Dim h As Single

w = 200
h = 200
With ActiveWindow.Selection
With .SlideRange.Shapes(.ShapeRange.Name)
.Width = w
.Height = h
End With
End With

End Sub

この回答へのお礼

お礼が大変遅くなり申し訳ありません。
教えていただいた方法で実装することができました。
ありがとうございました。

お礼日時：2013/01/23 16:44