Powerpoint VBAオブジェクトのサイズと位置をコピーして別のオブジェクトに貼り付けるマクロ

Question

MacとWindowsのpptでWindowsに切り替えただけで、サイズや位置などのオブジェクトのプロパティをコピーして貼り付けることができましたコピーするプロパティのトグルを持つ高度なフォーマットペインタのようなものです。

私はもうこのアドインを持っていませんが、サイズと位置をコピーするための簡単なマクロを作成したいと思います。これは可能性の領域ですか？もしそうなら、コードを提供したり、私が自分自身に教えることができるリソースに私を指摘したりすることができますか？

私は検索に約2時間を費やしており、オフィス用のMac互換ソリューションを見つけることができません。これが私の最後の希望です！

Answer 1

ここでは動作する例を示します。特定のニーズに合わせて変更することができます。

Sub CopySizeAndPosition() 

    ' Usage: Select two shapes. The size and position of 
    ' the first shape selected will be copied to the second. 

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

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

End Sub