Dialog neue Zellvorlage per Makro öffnen

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Dialog neue Zellvorlage per Makro öffnen

Beitrag von Stephan »

Hallo,

ich würde gerne den Dialog zum Erzeugen einer neuen Zellvorlage per Makro öffnen:

Dialog_neue_Zellvorlage.gif
Dialog_neue_Zellvorlage.gif (38.57 KiB) 8203 mal betrachtet

Der Screenshot ist in OO, ich brauchte aber eine Lösung für OO und LO.

Ich nehme an es gibt keine Lösung, aber vielleicht gibt es doch einen (versteckten) Weg. (evtl. hat sich auch schon jemand die Mühe gemacht den kompletten Dialog nachzuprogrammieren?)


Gruß
Stephan
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Dialog neue Zellvorlage per Makro öffnen

Beitrag von Stephan »

Durch Zufall(*) habe ich eine Lösung selbst gefunden:

Code: Alles auswählen

sub Oeffne_CellStyleDialog_NewStyle()
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 args(0) as new com.sun.star.beans.PropertyValue
args(0).Name = "Family"
args(0).Value = 2

dispatcher.executeDispatch(document, ".uno:NewStyle", "", 0, args())

end sub

(*)
Durch Aufzeichenen des Klicks auf "Neue Vorlage ..." im Dialog Format-Bedingte Formatierung per MaKrorecorder stiess ich auf ".uno:NewStyle" und durch Aufzeichnen von "Neue Vorlage aus Selektion" stiess ich auf die Property "Family" und konnte dann, durch Probieren, Beides kombinieren.



Gruß
Stephan
Antworten