同時にパワーポイント（2007）で複数のリンク画像のサイズをフォーマットするにはどうすればいいですか？

各スライドに1つのリンク画像があるパワーポイントを使いました。これらの画像は定期的に更新する必要がありますが、更新すると、各リンク画像のサイズフォーマットが変わります。マクロを使用せずに、各スライドのすべてのリンク画像のサイズを同時にフォーマットする簡単な方法（各方法で同じ）を教えてもらえますか

— Adam Brave
ソース

私はあなたがこれに対する非VBA解決策を見つけるとは思わない。それが何か慰めであれば、あなたのPowerPointがマクロ可能にならないようにあなたは（それ自身のファイルで）PowerPointの外側にVBAを保存することができます。 SOに関する関連質問： stackoverflow.com/questions/30264820/…

— Byron Wall

私は考えを変えて、あなたが私にくれたそのスレッドで提示されたマクロを使いました。そのマクロは私の画像の "Height"と "Alignment"を正しく設定しましたが、Widthは正しい値を取得できませんでした。誰かが私にその理由を教えてもらえますか？

— Adam Brave

お願いしますあなたの元の質問にそれを編集。コメント内のコードを分析することはほとんど不可能です。

— Byron Wall

各図形には、.LockAspectRatioプロパティがあります。これがtrueに設定されている場合、.Heightを変更したときはいつでも、PowerPointは.Widthも変更して図形の元の比率を維持します。同様に、.Widthを変更すると、.Heightも変更されます。形が歪んでいても構わない場合は、.Heightまたは.Widthを変更する前に、.LockAspectRatioをFalseに変更できます。

— Steve Rindsberg

@Steve Rindsberg、必要な高さと幅を正確に取得するために、どのようにして ".LockAspectRatio = False"をマクロコードに入れることができますか？ "ActiveWindow.Selection.ShapeRange（1）"の行の後に "OutputDetails"を追加しようとしましたが、エラーが発生しました...

— Adam Brave

これが私が使ったマクロです。

Dim w As Double
Dim h As Double
Dim l As Double
Dim t As Double

Sub StoreDetails()
    With ActiveWindow.Selection.ShapeRange(1)
        w = .Width
        h = .Height
        l = .Left
        t = .Top
    End With
End Sub

Sub OutputDetails()
    With ActiveWindow.Selection.ShapeRange(1)
        .Width = w
        .Height = h
        .Left = l
        .Top = t
    End With
End Sub

私の画像の "Height"と "Alignment"は正しく設定されていますが、Widthの値が正しくありません。誰かが私にその理由を教えてもらえますか？

— Adam Brave
ソース

これを質問に編集してください（答えとしてではありません）。

— Byron Wall