Hallo Robert,
Am 13.06.2021 um 17:04 schrieb Robert Großkopf:
Hallo Gerhard,
SUB Test
DIM oFrame AS OBJECT
oFrame = StarDesktop.getCurrentFrame()
oWin = oFrame.getContainerWindow()
aElemente = oFrame.LayoutManager.getElements()
FOR i = LBound(aElemente) TO UBound(aElemente)
obj = aElemente(i)
invoc = CreateUnoService("com.sun.star.script.Invocation")
invocCurrObj = invoc.createInstanceWithArguments(Array(obj))
resourceURL= invocCurrObj.getValue("ResourceURL")
if resourceURL=
"private:resource/toolbar/addon_LibreLogo.OfficeToolBar" then
oFrame.LayoutManager.hideElement(resourceURL)
wait 2000
oFrame.LayoutManager.showElement(resourceURL)
end if
next
end sub
Das Makro ist sicher noch nicht wasserdicht, aber das Prinzip ist klar.
Wieso nicht wasserdicht? Wenn es den Fall mit abdeckt, den ich Dir
genannt habe, ist es doch besser geeignet als das Script, das ich nutze.
Gruß
Robert
Ich würde "if resourceURL..." in eine weitere Bedingung einschließen:
if VarType(resourceURL) = 8 then
...
end if
weil die Variable resourceURL an sich Variant ist (ich habe mich ja um
die Deklarationen nicht gekümmert, aber das weiß ich aus Xray) und ich
nicht sicher bin, was beim Vergleich mit String eventuell passieren
kann, wenn da etwas anderes kommen sollte. SOnst fällt mir momentan auch
nichts ein, die Aussage sollte auch eine Warnung sein, weil das ja doch
schnell zusammengebaut ist.
Gruß
Gerhard
--
Liste abmelden mit E-Mail an: [email protected]
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
