Zellumrandung setzen/löschen per Makro

[mecki_45]

Hallo zusammen,
per Hand kein Problem, aber wie geht das per Makro?
Geht das auch für einen kompletten Bereich?

Grüßle
Alex

[Stephan]

Code: Alles auswählen

Sub zelle_umrahmen
'Zellbereich oder Zelle angeben, für Zelle z.B. A1:A1 
zelle = ThisComponent.Sheets(0).getCellRangeByName( "A1:A5" )
linie = CreateUnoStruct("com.sun.star.table.BorderLine")
With linie
	.Color = RGB( 0, 0, 255 )
	.InnerLineWidth = 0
	'löschen mit .OuterLineWidth = 0 möglich
	.OuterLineWidth = 20
	.LineDistance = 0
End With
zelle.TopBorder = linie
zelle.BottomBorder = linie
zelle.LeftBorder = linie
zelle.RightBorder = linie
End Sub

Stephan