PDA

Vollständige Version anzeigen : Menüleiste selbst erstellen


Radgott
26.07.2001, 17:53
Wie kann ich eine Menüleiste mit einigen ausgewählten Befehlen selbst erstellen und festlegen, dass diese beim Öffnen dieser Datei aufgerufen wird? Außerdem soll der Benutzer keine anderen Menüleisten oder Symbolleisten in dieser Datei aufrufen können.
Hat jemand eine Idee?

jinx
28.07.2001, 15:15
Moin, Radgott,

vielleicht helfen Dir die folgenden Beispiele ?

Zum Erstellen von eigenen Menueleisten siehe hier (http://www.herber.de/mailing/021298h.htm):

Text-Index: 021298
Thema: Menue
Betrifft: Eigene Menüleiste mit Untermenü's erstellen
Frage: Wie kann ich in XL8 eine eigene Menüleiste mit Untermenüs erstellen und diese anstelle der Tabellenblattmenüleiste anzeigen lassen.
Antwort: Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="REM">' ClassModule: Diese Arbeitsmappe</span>
&nbsp;
<span class="TOKEN">Private Sub</span> Workbook_BeforeClose(Cancel <span class="TOKEN">As</span> <span class="TOKEN">Boolean</span>)
<span class="TOKEN">Call</span> MenuLoeschen
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span><hr>&nbsp;
<span class="TOKEN">Sub</span> MenuErstellen()
<span class="TOKEN">Dim</span> oBar <span class="TOKEN">As</span> CommandBar
<span class="TOKEN">Dim</span> oPopUp <span class="TOKEN">As</span> CommandBarPopup
<span class="TOKEN">Dim</span> oBtn <span class="TOKEN">As</span> CommandBarButton
<span class="TOKEN">Set</span> oBar = Application.CommandBars.Add( _
Name:=&quot;MyCommandBar&quot;, _
Position:=msoBarTop, _
MenuBar:=True, _
temporary:=True)
<span class="TOKEN">Set</span> oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = &quot;Men&uuml;1&quot;
<span class="TOKEN">Set</span> oBtn = oPopUp.Controls.Add
<span class="TOKEN">With</span> oBtn
.Caption = &quot;Erster Men&uuml;punkt&quot;
.Style = msoButtonCaption
<span class="TOKEN">End</span> <span class="TOKEN">With</span>
<span class="TOKEN">Set</span> oBtn = oPopUp.Controls.Add
<span class="TOKEN">With</span> oBtn
.Caption = &quot;Zweiter Men&uuml;punkt&quot;
.Style = msoButtonCaption
<span class="TOKEN">End</span> <span class="TOKEN">With</span>
<span class="TOKEN">Set</span> oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = &quot;Men&uuml;2&quot;
<span class="TOKEN">Set</span> oBtn = oPopUp.Controls.Add
<span class="TOKEN">With</span> oBtn
.Caption = &quot;Erster Men&uuml;punkt&quot;
.Style = msoButtonCaption
<span class="TOKEN">End</span> <span class="TOKEN">With</span>
<span class="TOKEN">Set</span> oBtn = oPopUp.Controls.Add
<span class="TOKEN">With</span> oBtn
.Caption = &quot;Zweiter Men&uuml;punkt&quot;
.Style = msoButtonCaption
<span class="TOKEN">End</span> <span class="TOKEN">With</span>
CommandBars(&quot;MyCommandbar&quot;).Visible = <span class="TOKEN">True</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span><hr>&nbsp;
<span class="TOKEN">Sub</span> MenuLoeschen()
<span class="TOKEN">On</span> <span class="TOKEN">Error</span> <span class="TOKEN">Resume</span> <span class="TOKEN">Next</span>
Application.CommandBars(&quot;MyCommandbar&quot;).Delete
<span class="TOKEN">On Error GoTo 0</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>


Zum Aufrufen der eigenen Leisten bei Öffnen der Mappe hier (http://www.herber.de/mailing/011898h.htm):

Text-Index: 011898
Thema: Menue
Betrifft: Menüleiste wechseln
Frage: Wie kann ich beim Öffnen der Arbeitsmappe eine eigene Menüleiste erstellen, die Arbeitsblattmenüleiste durch diese ersetzen und den Vorgang beim Schließen der Arbeitsmappe wieder rückgängig machen? pe die Tabellenblattmenüleiste ausblenden, eine benutzerdefinierte
Antwort: Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private Sub</span> Workbook_Open()
<span class="TOKEN">Dim</span> oBar <span class="TOKEN">As</span> CommandBar
<span class="TOKEN">Dim</span> oButton <span class="TOKEN">As</span> CommandBarButton
<span class="TOKEN">On</span> <span class="TOKEN">Error</span> <span class="TOKEN">Resume</span> <span class="TOKEN">Next</span>
Application.CommandBars.Add(&quot;My Commandbar&quot;).Delete
<span class="TOKEN">On Error GoTo 0</span>
<span class="TOKEN">Set</span> oBar = Application.CommandBars.Add(&quot;My Commandbar&quot;, _
MenuBar:=True, temporary:=True)
<span class="TOKEN">Set</span> oButton = oBar.Controls.Add
<span class="TOKEN">With</span> oButton
.Caption = &quot;My Button&quot;
.Style = msoButtonCaption
<span class="TOKEN">End</span> <span class="TOKEN">With</span>
Application.CommandBars(&quot;My Commandbar&quot;).Visible = <span class="TOKEN">True</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span><hr>&nbsp;
<span class="TOKEN">Private Sub</span> Workbook_BeforeClose(Cancel <span class="TOKEN">As</span> <span class="TOKEN">Boolean</span>)
<span class="TOKEN">On</span> <span class="TOKEN">Error</span> <span class="TOKEN">Resume</span> <span class="TOKEN">Next</span>
Application.CommandBars(&quot;My Commandbar&quot;).Delete
<span class="TOKEN">On Error GoTo 0</span>
Application.CommandBars(&quot;Worksheet Menu Bar&quot;).Visible = <span class="TOKEN">True</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span>&nbsp;</pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)


Zu Deinem Punkt: keinen Schimmer, leider...

<font color="#808080" size="3" face="Arial Black">HTH
jinx</font>

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag der Code für dieses Forum angepasst und die Signatur angepasst.<font>