スライドショー中に写真のサイズを変更したい。

Question

パワポのマクロにて下記を実現したいです。
スライドショー中にスライド1の中のlabel1を押下すると、
スライド1中の複数の写真のサイズを変更する。

開発>イメージ（ActiveXコントロール)より写真をオブジェクト化することができるのは知っているのですが、
今回の写真は背景を透過したいことからオブジェクトにはせず写真のまま行きたいです。

activewindow.selection.shaperangeであればスライドショー中でなければ写真をマクロ内で選択できることがわかりましたが、スライドショー中だとうまくいきません。
スライドショー中にマクロ内で写真を明示する方法があればご教授ください。

Answer 1

こんな感じでどうでしょうか。

Private Sub Label1_Click()
    Dim s As Shape
    For Each s In Me.Shapes
        If s.Type = msoPicture Then s.ScaleHeight 0.9, msoFalse
    Next
End Sub

---

＜追記＞
個別にサイズ指定するならこんな感じでしょうか。

Private Sub Label1_Click()
    Me.Shapes("Image 1").Width = 100
    Me.Shapes("Image 2").Width = 200
    Me.Shapes("Image 3").Width = 300
End Sub

Comments

[0987kjhfas]

ご回答ありがとうございます。

一度に複数の写真のサイズを下げることに成功しました。
今回はサイズを下げるのではなく、明示したサイズにしたいのですが、その場合どのようにすればよいでしょうか。
ご教授ください。

[jinoji]

その場合は、ScaleHeight の代わりに s.Width = 100 とかにしたらよいと思います。

[0987kjhfas]

できました。ありがとうございました。

[0987kjhfas]

ベストアンサー選択後に申し訳ないです。

上記に加えてスライド中の写真1-4をそれぞれ指定のサイズに変更したい場合の法h上についてご教授いただきたいです。

[0987kjhfas]

Image 1項目はshapesにはありません。

と出てしまいまうす。

[jinoji]

それぞれの写真がどういう名前になっているかはご自身で確認してください。

[0987kjhfas]

いけました、ありがとうございます。