Autoform duplizieren und positionieren
Alexander
ich habe auf einem Tabellenblatt eine Autoform mit dem Namen Info eingesetzt. Dieses möchte ich per Makro duplizieren und unter der Originalform positionieren.
Ich habe bis jetzt einmal ein Makro aufgezeichnet.
Sub Makro()
ActiveSheet.Shapes("Info").Select
Selection.ShapeRange.Duplicate.Select
Selection.ShapeRange.IncrementLeft -13.5
Selection.ShapeRange.IncrementTop 36.75
End Sub
Das Problem ist, dass die Positionsangaben für das Duplikat fix sind. Die neuen Duplikate sollen aber bei erneutem Makrodurchlauf wieder ein paar Zentimeter nach unten gesetzt werden.
Heißt: Original wird dupliziert, Duplikat wird unter das Original gesetzt. Zweiter Makrodurchlauf: Das Original wird wieder dupliziert und unter das vorherige Duplikat gesetzt usw.
Wie kann ich das realiseren?
Gruß
Anzeige