Sub BalkenAufAlleSeitenKopieren
i = ActiveDocument.Shapes.Count 'Das ist das letzte eingefügte Shape und deswegen die Bestimmung der Shape-Anzahl
Activedocument.Shapes(i).Top = 0
Activedocument.Shapes(i).Left = -60
End Sub
Hallo zusammen,
ich würde gerne einen Balken, den ich bereits erzeugt und positioniert habe, auf alle folgenden Seiten kopieren.
Das Shape befindet sich auf der ersten Seite. Man muss nun die Anzahl der Seiten ermitteln und dann auf alle folgenden Seiten einfügen.
Weiß jmd. wie das geht?
Vielen Dank vorab.
|