Replizieren ein Objekt in Powerpoint mit VBA?

Question

Ich mag ein ausgewähltes Objekt in Powerpoint mit VBA-Code replizieren. Ich habe eine folgende Code Erwähnung unter

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 

Aber ich möchte meinen Wert anstelle von Objekt Wert angeben. Also, bitte hilf und danke im Voraus!

Answer 1

Vorausgesetzt, dass Sie eine einzelne Form ausgewählt haben, können Sie Ihre Werte wie folgt einstellen:

' 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