|
Hallo zusammen,
ich versuche mit einem Makro in Powerpoint die Position einer ersten Autoform (Top, Left) zu erfassen und dann auf eine zweite Autoform anzuwenden, sodass die zweite Autoform dann die gleiche Position hat. Die zweite Autoform befindet sich dabei üblicherweise auf einer anderen Folie.
Die Anwendung auf die zweite Autoform funktioniert bei mir leider nicht - könnt ihr mir bitte hierbei helfen. Danke schon mal. Hier ist mein bisheriger, jedoch fehlerhafter Code (eine Fehlermeldung mit dem Hinweis "Methode oder Datenobjekt nicht gefunden" kommt bei mir an der fett markierten Stelle):
Sub test()
' Get the position (Top, Left) of first object
Dim L As Long
Dim T As Long
With ActiveWindow.Selection
If .Type = ppSelectionShapes Then
L = .ShapeRange.Left
T = .ShapeRange.Top
Else
MsgBox "You have not selected an OBJECT."
Exit Sub
End If
End With
' Apply position on second object
With ActivePresentation.Slides() _
.Shapes.Placeholders(1).ActionSettings(ppMouseClick)
If .Type = ppSelectionShapes Then
.ShapeRange.Left = L
.ShapeRange.Top = T
Else
MsgBox "You have not selected an OBJECT."
Exit Sub
End If
End With
End Sub
|