VBA relative Objekt Position

[koter]

Hallo Pucki,

Auch wenn es schon lange her ist...

Das macht nichts! Um auch alte Themen weiterführen zu können, werden sie hier im Forum so gut wie nie geschlossen oder als gelöst markiert.

Um die „optische Unterbrechung“ zu erzeugen, kannst Du die Rahmenbreiten einer Zeile auf Null setzen:

Code:

Sub ZeileOhneRahmen()
   Dim tab_1 As Shape
   Dim tab_1C As CustomShape
   
   ActiveDocument.Unit = cdrMillimeter
   Set tab_1 = ActivePage.Shapes("Tabelle1")
   Set tab_1C = tab_1.Custom
   
   With tab_1C.Rows(4).Cells.All.Borders
       .Vertical.Width = 0
       .Left.Width = 0
       .Right.Width = 0
   End With
   
End Sub

So kannst Du eine Zelle einfärben:

Code:

tab_1C.Cells(5).Fill.UniformColor = CreateCMYKColor(0, 0, 50, 0)

Gruß

Koter