Code Snippets

Test 10

Posted by tom on 16. Dezember 2024 at 21:15



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

tom replied 1 month aktiv. 1 Member · 1 Reply

1 Reply

tom

Administrator
16. Dezember 2024 at 21:42
```
Sub Test()

MsgBox "Hallo!"

End Sub
```