パワーポイントの画像の代替テキスト欄にサイズを入れたい

以前こちらで質問し回答頂いた動作するコードを参考に、
VBAでシート内のshapeの大きさを代替テキスト欄に記入するものを考えていたのですが、
うまくいかなかったので質問させて下さい。

代替テキスト欄は調べると.alternativetextで設定しており、
その部分に画像の幅や高さを入れたいと試してみたのですが、設定が思うようにできません。

新しく編集したい部分を
マクロの記録機能でコードを確かめてみると、
この部分はshapeではなく、shaperangeになっておりました。
shaperangeは選択されている状態でないと指定できないのかと思いましたが、
知識が浅く選択する方法が見つかりませんでした。

詳しい方、申し訳ないのですがプロパティーのテキスト欄へ記載される方法がありましたら宜しくお願いします。

Sub sample()
    Dim s As Shape
    Dim shh As String
    Dim shw As String
    
    For Each s In ActivePresentation.Slides(1).Shapes
         shh = s.Height
         shw = s.width
      With ActiveWindow.ShapeRange            ’なぞ
      .AlternativeText = "横：" & shw & "縦：" & shh  ’なぞ
       End With                      ’なぞ
    Next
End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

ShapeRangeはShapeを任意個束ねたものです。たとえば、複数選択して一度にプロパティを触ったりすることができますが、その場合はShapeRangeに対する操作です。

任意個なので、1つでもShapeRangeとして扱えます。

ただShapeオブジェクトもAlternativeTextプロパティを持っていますので、単に以下のように書けば良いかと思います。

lang
1Sub sample()
2    Dim s As Shape
3    Dim shh As String
4    Dim shw As String
5
6    For Each s In ActivePresentation.Slides(1).Shapes
7         shh = s.Height
8         shw = s.width
9         s.AlternativeText = "横：" & shw & "縦：" & shh
10    Next
11End Sub