Seite 1 von 1
Zellumrandung setzen/löschen per Makro
Verfasst: Sa, 14.08.2004 15:46
von 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
Verfasst: So, 15.08.2004 12:01
von 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