Linienstil bzw. Linienstärke ändern

[Stephan]

Das sollte mittels Makro gehen. Das folgende Makro zeichnet eine 0,75pt breite Linie um Zelle A1 des Tabellenblattes namens "Tabelle1":

Code: Alles auswählen

Sub ZelleUmranden()
linie = createUnoStruct( "com.sun.star.table.BorderLine" )
With linie
	.Color = RGB(0,0,0)
	.InnerLineWidth = (25.4/72)*75 '0,75pt
End With
'Tabelle1, Zelle A1
With ThisComponent.sheets().GetByName("Tabelle1").getCellByPosition(0,0)
	.TopBorder=linie
	.BottomBorder = linie
	.LeftBorder = linie
	.RightBorder = linie
End With
End Sub

Gruß
Stephan