Репликация объекта в powerpoint с помощью vba?

Question

Я хочу реплицировать выделенный объект в powerpoint с помощью кода 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