vbaを使ってパワーポイント内のオブジェクトを複製しますか？

Question

VBAコードを使用して、選択したオブジェクトをパワーポイントに複製したいとします。私は以下のコードに言及しています

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 

しかし、私はオブジェクトの値を取得する代わりに私の値を指定します。ですから、事前にお手伝いしてください！

Answer 1

あなたはこのようなあなたの値を設定することができ、あなたは、単一の図形を選択していると仮定：

' Sets the size and position of the first shape in a selection 
Sub SetShapeSizeAndPosition() 
    With ActiveWindow.Selection.ShapeRange(1) 
    .Width = 100 
    .Height = 100 
    .Left = 100 
    .Top = 100 
    End With 
End Sub