Code Snippets

WORD Falzrand hinzufügen

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

[vba]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[/vba]

Excel Community replied 2 months, 2 weeks ago 1 Member · 0 Replies

VBA
WORD

0 Replies

Sorry, there were no replies found.