von lorbass » Sa, 29.01.2011 17:01
nonox hat geschrieben:
Leider klappt das mit den Makro´s auch nicht, […]
Ich weiß nicht, was du aufgezeichnet hast. Mein aufgezeichnetes Makro (OpenOffice.org 3.2.1, OOO320m18 (Build 9502)) fügt am unteren Rand der markierten Zelle bzw. des markierten Zellbereichs zuverlässig eine doppelte Rahmenlinie ein und entfernt alle anderen Linien der Zelle / des Zellbereichs:
Code: Alles auswählen
sub doppelt_unten
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BorderOuter.LeftBorder"
args1(0).Value = Array(0,0,0,0)
args1(1).Name = "BorderOuter.LeftDistance"
args1(1).Value = 0
args1(2).Name = "BorderOuter.RightBorder"
args1(2).Value = Array(0,0,0,0)
args1(3).Name = "BorderOuter.RightDistance"
args1(3).Value = 0
args1(4).Name = "BorderOuter.TopBorder"
args1(4).Value = Array(0,0,0,0)
args1(5).Name = "BorderOuter.TopDistance"
args1(5).Value = 0
args1(6).Name = "BorderOuter.BottomBorder"
args1(6).Value = Array(0,2,2,35)
args1(7).Name = "BorderOuter.BottomDistance"
args1(7).Value = 0
dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args1())
end sub
Du kannst ja noch ein bißchen damit Spielen und z.B. die Left-, Right-, Top-Anteile 'rausschmeißen…
Gert Seler hat geschrieben:Entschuldige bitte, das meine Lösung auch nicht, "das gelbe vom Ei ist".
Welche »Lösung«, und wieso »auch«? Eine Textformatierung ist doch keine Lösung, wenn Zellformatierung gefragt ist.
Gruß
lorbass
[quote="nonox"]:? Leider klappt das mit den Makro´s auch nicht, […][/quote]
Ich weiß nicht, was du aufgezeichnet hast. Mein aufgezeichnetes Makro (OpenOffice.org 3.2.1, OOO320m18 (Build 9502)) fügt am unteren Rand der markierten Zelle bzw. des markierten Zellbereichs zuverlässig eine doppelte Rahmenlinie ein und entfernt alle anderen Linien der Zelle / des Zellbereichs:
[code]sub doppelt_unten
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BorderOuter.LeftBorder"
args1(0).Value = Array(0,0,0,0)
args1(1).Name = "BorderOuter.LeftDistance"
args1(1).Value = 0
args1(2).Name = "BorderOuter.RightBorder"
args1(2).Value = Array(0,0,0,0)
args1(3).Name = "BorderOuter.RightDistance"
args1(3).Value = 0
args1(4).Name = "BorderOuter.TopBorder"
args1(4).Value = Array(0,0,0,0)
args1(5).Name = "BorderOuter.TopDistance"
args1(5).Value = 0
args1(6).Name = "BorderOuter.BottomBorder"
args1(6).Value = Array(0,2,2,35)
args1(7).Name = "BorderOuter.BottomDistance"
args1(7).Value = 0
dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args1())
end sub[/code]
Du kannst ja noch ein bißchen damit Spielen und z.B. die Left-, Right-, Top-Anteile 'rausschmeißen…
[quote="Gert Seler"]Entschuldige bitte, das meine Lösung auch nicht, "das gelbe vom Ei ist".[/quote]
Welche »Lösung«, und wieso »auch«? Eine Textformatierung ist doch keine Lösung, wenn Zellformatierung gefragt ist.
Gruß
lorbass