Code Snippets

WORD Falzrand hinzufügen

Posted by Excel Community on 6. September 2024 at 23:05



Sub Falzrand()

    Dim shpConnect  As Shape

    'Abstand vom Seitenrand (Vertikal) 8.7cm

    'Abstand von der Seite (inkl. Kopfzeile) 11.2 cm

    'Faktor=28.37*11.2cm

    'Bevorzugt aber 295

    With ActiveDocument.Shapes.AddConnector _

         (Type:=msoConnectorStraight, _

         BeginX:=0, _

         BeginY:=295, _

         EndX:=25, _

         EndY:=295)

        .Line.ForeColor.RGB = RGB(0, 0, 0)

    End With

End Sub

Excel Community replied 4 months, 1 week aktiv. 1 Member · 0 Replies

VBA
WORD

0 Replies

Sorry, there were no replies found.