OpenOffice.info

Verfasst: **Mo, 07.06.2021 15:40**

Hallo Leute,
ich blende beim Start meines "Rechentrainers" die nicht benötigten Symbolleisten per Makro aus und möchte sie beim Schließen wieder einblenden.
Das mit dem Ausblenden geht prima - nur bei Symbolleiste die in deutsch einfach "Format" heißt, klappt das nicht. Wie heißt die den in englisch?
Die Symbolleiste "textobjectbar" funktioniert, "tableobjectbar" ist es aber anscheinend nicht.
Der Code:

Code: Alles auswählen

sub onOpenAnyForm
if OSName="UNIX" then exit sub 					'Linux kann das wohl nicht
	layout = ThisComponent.CurrentController.Frame.LayoutManager

	layout.hideElement("private:resource/toolbar/standardbar")
	layout.hideElement("private:resource/menubar/menubar")
	layout.hideElement("private:resource/statusbar/statusbar")
	layout.hideElement("private:resource/toolbar/textobjectbar")
	layout.hideElement("private:resource/toolbar/tableobjectbar")
		
	call SeitenleisteAus
	call LeistenAusblenden
end sub

Weiterhin habe ich das Wiedereinblenden-Makro mit dem Ereignis "Dokument wird geschlossen" verknüpft - das geht aber nicht, die Leisten sind beim Öffnen eines neuen Calc-Dokuments weg und müssen händisch eingeblandet werden.
Der Code:

Code: Alles auswählen

sub onCloseAnyForm
if OSName="UNIX" then exit sub
	layout = ThisComponent.CurrentController.Frame.LayoutManager

	layout.showElement("private:resource/menubar/menubar")
	layout.showElement("private:resource/statusbar/statusbar")
	'layout.createElement("private:resource/toolbar/standardbar")	
	layout.showElement("private:resource/toolbar/standardbar")
	layout.createElement("private:resource/toolbar/tableobjectbar")
	layout.showElement("private:resource/toolbar/tableobjectbar")

	call LeistenEinblenden
end sub

Hat da jemand eine Idee
Pit

Nachtag: Wo gibt es eine Liste mit den englischen Namen der Symbolleisten?

Verfasst: **Mo, 07.06.2021 17:12**

Also die Lösung des ersten Problems ist mir wieder eingefallen. Man kann sich die eingeblendeten Symbolleisten ja mit:

Code: Alles auswählen

sub leistenanzeigen
    Dim LayoutManager, LayoutElements
    Dim i As Integer
    LayoutManager = ThisComponent.CurrentController.Frame.LayoutManager
    LayoutElements = LayoutManager.getElements()
    For i = 0 to Ubound( LayoutElements )
       print( LayoutElements(i).ResourceURL )    
    Next
End Sub

... anzeigen lassen. Der gesuchte Namen ist "formatobjectbar".
Das mit dem hinterher wieder Einblenden kann ich immer noch nicht.

OpenOffice.info

englischer Name der Symbolleiste "Format"

englischer Name der Symbolleiste "Format"

Re: englischer Name der Symbolleiste "Format"