Wie kann man sich die sichtbaren Symbolleisten anzeigen lassen?

Man kann sich mit einer Schleife alles sichtbaren Symbolleisten anzeigenlassen.

Basic

sub mySymbolleisten
layout = ThisComponent.CurrentController.Frame.LayoutManager
elem=layout.getElements()
for i=1  to ubound(elem())
  msgbox  elem(i).ResourceURL
next i  
End Sub