von Stephan » Mo, 24.05.2021 10:38
Hallo,
die Überschrift ist vielleicht etwas unklar, aber es gibt in OO/LO an diversen Stellen von Menüs Einträge welche man altivieren kann und bei welchen dann diese Aktivierung per Häkchen visualisiert wird, z.B.:
- AktivierterMenüpunkt.gif (40.99 KiB) 2122 mal betrachtet
Wie kann man dieses Verhalten bei eigenen Menüs erreichen, welche per Addon.xcu in Extensions weitergegeben werden?
Natürlich geht es dabei auch um eigenen Menüpunkte (mit welchen Makros gestartet werden sollen) und nicht um in OO/LO vorhandene Standard-Menü-Punkte die die 'Häkchen-Funktionalität' ohnehin beinhalten.
Z.B. soll einer einen Menüpunkt ein Makro gestartet werden, das der aktuellen Tabelle ein Ereignis zuordnet
Code: Alles auswählen
Sub activate_2()
Dim mEventProps(1) as new com.sun.star.beans.PropertyValue
mEventProps(0).Name = "EventType"
mEventProps(0).Value = "Script"
mEventProps(1).Name = "Script"
mEventProps(1).Value = "vnd.sun.star.script:SpecialInput.work.Zwei_Nachkommastellen?language=Basic&location=application"
ThisComponent.CurrentController.ActiveSheet.Events.ReplaceByName("OnChange", mEventProps())
End Sub
und dabei soll dann gleichzeitig dieser Menüpunkt das Häkchen bekommen um dem Anwender zu signalisieren, das das Ereignis, zum aktuellen Zeitpunkt, zugeordnet ist.
Gruß
Stephan
Hallo,
die Überschrift ist vielleicht etwas unklar, aber es gibt in OO/LO an diversen Stellen von Menüs Einträge welche man altivieren kann und bei welchen dann diese Aktivierung per Häkchen visualisiert wird, z.B.:
[attachment=0]AktivierterMenüpunkt.gif[/attachment]
Wie kann man dieses Verhalten bei eigenen Menüs erreichen, welche per Addon.xcu in Extensions weitergegeben werden?
Natürlich geht es dabei auch um eigenen Menüpunkte (mit welchen Makros gestartet werden sollen) und nicht um in OO/LO vorhandene Standard-Menü-Punkte die die 'Häkchen-Funktionalität' ohnehin beinhalten.
Z.B. soll einer einen Menüpunkt ein Makro gestartet werden, das der aktuellen Tabelle ein Ereignis zuordnet
[code]Sub activate_2()
Dim mEventProps(1) as new com.sun.star.beans.PropertyValue
mEventProps(0).Name = "EventType"
mEventProps(0).Value = "Script"
mEventProps(1).Name = "Script"
mEventProps(1).Value = "vnd.sun.star.script:SpecialInput.work.Zwei_Nachkommastellen?language=Basic&location=application"
ThisComponent.CurrentController.ActiveSheet.Events.ReplaceByName("OnChange", mEventProps())
End Sub[/code]
und dabei soll dann gleichzeitig dieser Menüpunkt das Häkchen bekommen um dem Anwender zu signalisieren, das das Ereignis, zum aktuellen Zeitpunkt, zugeordnet ist.
Gruß
Stephan