powerpointマクロでJPEG画像サイズを変更したい

powerpointに貼ったJPEG画像のサイズを変更する目的で、ある人に教えていただいて下記のマクロを作成しました。

JPEG画像サイズをクリックして、下記のマクロを実行しても、画像のサイズは変わりませんでした。
何がまずいのでしょうか？


ｰｰｰｰｰ＜コードはここから＞----
Sub 画像サイズ調整()
　　With ActivePresentation.Slides(1).Shapes(1)
　　　　.LockAspectRatio = msoTrue　　　　　　　　'縦横比を固定
　　　　'.Height = '縦横比を固定なので不要、Heightで指定の場合Width不要
　　　　.Width = 300　
　　　　.Top = 200
　　　　.Left = 100
　　End With
End Sub
ｰｰｰｰｰ＜コードはここまで＞----

No.1 回答者： fujillin 回答日時： 2020/07/28 14:33

こんにちは

＞ある人に教えていただいて下記のマクロを作成しました。
質問者様は、どういうマクロを作成したのか理解しているのでしょうか？

＞JPEG画像サイズをクリックして、下記のマクロを実行しても
ご提示のマクロは、Slides(1).Shapes(1)に該当する図形（固定）を幅300、位置はTop:200、Left:100（単位は多分ポイントだったかな？）の固定値に設定するものです。
ですので、「画像をクリック」などの操作とは、まったく無関係です。

さらには、当該図形のサイズが変わっていないと、何回マクロを実行したとしても、「（現在と）同じサイズに変更する」処理が行なわれるだけなので、見た目には「何も起こらない」ということになるでしょう。

＞画像のサイズは変わりませんでした。
クリックした画像のサイズが変わることを期待しているのなら、処理の対象がその画像になるようにしなければなりません。
選択図形を対象にしたいのなら、「Selection」を利用するとかでしょうか。