Re: [de-users] Symbolleisten Ausblenden per Makro

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: users+unsubscribe@de.libreoffice.org
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