Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
RibbonX - Teil 8 - Menü
zurück: RibbonX - Teil 9 - SplitButton weiter: RibbonX - Teil 7 - Eingabefeld (Editbox) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mumpel
Fortgeschrittener


Verfasst am:
16. Jul 2008, 14:33
Rufname: René
Wohnort: Lindau (B)

RibbonX - Teil 8 - Menü - RibbonX - Teil 8 - Menü

Nach oben
       Version: Office 2007

In diesem Teil beschäftigen wir uns mit dem Menü. In einem Menü können Schaltflächen, Umschaltflächen und Checkboxen und Trennstriche (Menüseparator)eigebaut werden.

Legen Sie jetzt eine neue Arbeitsmappe an und speichern diese als *.xlsm.
Fügen Sie nun ein neues Modul und in dieses den folgenden Code ein.

Option Private Module
Public objRibbon As IRibbonUI
Public Sub onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
Sub Button01_onAction(control As IRibbonControl)
Range("A2").Value = Range("A2").Value + 1
MsgBox "Sie haben die Menüschaltfläche 1 gedrückt", _
vbInformation + vbOKOnly, "Hinweis"
End Sub
Sub Button02_onAction(control As IRibbonControl)
Range("B2").Value = Range("B2").Value + 1
MsgBox "Sie haben die Menüschaltfläche 2 gedrückt", _
vbInformation + vbOKOnly, "Hinweis"
End Sub
Sub Checkbox01_onAction(control As IRibbonControl, pressed As Boolean)
If pressed = True Then
MsgBox "Checkbox 1 aktiviert", vbInformation + vbOKOnly, "Hinweis"
Range("C2").Value = 1
Else
MsgBox "Checkbox 1 deaktiviert", vbInformation + vbOKOnly
Range("C2").Value = 0
End If
End Sub
Sub Checkbox01_getPressed(control As IRibbonControl, ByRef returnValue)
returnValue = ThisWorkbook.Sheets("Tabelle1").Range("C2")
End Sub
Sub ToggleButton01_onAction(control As IRibbonControl, pressed As Boolean)
If pressed = True Then
MsgBox "Umschaltlfäche 1 aktiviert", vbInformation + vbOKOnly, "Hinweis"
Range("D2").Value = 1
Else
MsgBox "Umschaltfläche 1 deaktiviert", vbInformation + vbOKOnly
Range("D2").Value = 0
End If
End Sub
Sub ToggleButton01_getPressed(control As IRibbonControl, ByRef returnValue)
returnValue = ThisWorkbook.Sheets("Tabelle1").Range("D2")
End Sub
Sub Checkbox02_onAction(control As IRibbonControl, pressed As Boolean)
If pressed = True Then
MsgBox "Checkbox 2 aktiviert", vbInformation + vbOKOnly, "Hinweis"
Range("E2").Value = 1
Else
MsgBox "Checkbox 2 deaktiviert", vbInformation + vbOKOnly
Range("E2").Value = 0
End If
End Sub
Sub Checkbox02_getPressed(control As IRibbonControl, ByRef returnValue)
returnValue = ThisWorkbook.Sheets("Tabelle1").Range("E2")
End Sub
Sub ToggleButton02_onAction(control As IRibbonControl, pressed As Boolean)
If pressed = True Then
MsgBox "Umschaltlfäche 2 aktiviert", vbInformation + vbOKOnly, "Hinweis"
Range("F2").Value = 1
Else
MsgBox "Umschaltfläche 2 deaktiviert", vbInformation + vbOKOnly
Range("F2").Value = 0
End If
End Sub
Sub ToggleButton02_getPressed(control As IRibbonControl, ByRef returnValue)
returnValue = ThisWorkbook.Sheets("Tabelle1").Range("F2")
End Sub



Speichern Sie die Änderungen und schließen Sie die Arbeitsmappe. Öffnen Sie selbige jtzt mit dem CustomUI-Editor. Fügen Sie dann den folgenden Code in das Codefenster ein.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" 
onLoad="onLoad" >
<ribbon startFromScratch="true">
<tabs><tab id="tab01" label="Menü">
<group id="grp01" label="Menü">
<menu id="mnu0" size="large" itemSize="normal" label="Menü"
imageMso="FileSaveAsExcelXlsxMacro">
<button id="menBtn01" label="Menüschaltfläche 1"
 onAction="Button01_OnAction" />
<menuSeparator id="menSpt01" />
<toggleButton id="menTgb01" label="Umschaltfläche 1" 
onAction="ToggleButton01_OnAction"
getPressed="ToggleButton01_getPressed"/>
<menuSeparator id="menSpt02" />
<menu id="men02" itemSize="normal" label="Untermenü 1">
<button id="menBtn02" label="Menüschaltfläche 2"
 onAction="Button02_OnAction" />
<menuSeparator id="menSpt03" />
<toggleButton id="menTgb02" label="Umschaltfläche 2"
 onAction="ToggleButton02_OnAction"
getPressed="ToggleButton02_getPressed" />
<menuSeparator id="menSpt04" />
<checkBox id="menCbx02" label="Checkbox 2" onAction="Checkbox02_OnAction"
getPressed="Checkbox02_getPressed"/>
</menu>
<menuSeparator id="menSpt05" />
<checkBox id="menCbx01" label="Checkbox 1" onAction="Checkbox01_OnAction"
getPressed="Checkbox01_getPressed" />
</menu></group></tab>
</tabs></ribbon></customUI>



Speichern sie die Änderung und öffnen Sie die Arbeitsmappe. Jetzt wird ein neues ribbon mit einem Menü angezeigt. Die Werte für die Checkboxen und Umschaltflächen (jeweils 2 Stück) werden in der Tabelle gespeichert. Idealer Weise sollten Sie die Werte in den DocumentProperties speichern. Gehen Sie hierzu so vor, wie Sie es in Teil 3 gelernt haben. Für jede Checkbox und jede Umschaltfläche benötigen Sie einen eigenen Eintrag in den DocumentProperties.

Sie können auch die Beispielmappe nutzen.



XL07_Menü.zip
 Beschreibung:

Download
 Dateiname:  XL07_Menü.zip
 Dateigröße:  14.37 KB
 Heruntergeladen:  727 mal



Zuletzt bearbeitet von mumpel am 31. Aug 2011, 21:46, insgesamt 3-mal bearbeitet
mumpel
Fortgeschrittener


Verfasst am:
14. Okt 2008, 13:06
Rufname: René
Wohnort: Lindau (B)

AW: RibbonX - Teil 8 - Menü - AW: RibbonX - Teil 8 - Menü

Nach oben
       Version: Office 2007

Bücher zum Thema:

Das Excel-VBA Codebook (Melanie Breden/Michael Schwimmer)

Ribbon-Programmierung für Office 2007 (André Minhorst / Melanie Breden )
mumpel
Fortgeschrittener


Verfasst am:
13. Aug 2009, 18:35
Rufname: René
Wohnort: Lindau (B)


AW: RibbonX - Teil 8 - Menü - AW: RibbonX - Teil 8 - Menü

Nach oben
       Version: Office 2007

{Dient nur der Sortierung}
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Summenprodukt mit Bedingung Teil der Zelle zB *NAV* ??? 5 Tobias.Sturm 1699 13. Mai 2008, 17:17
Tobias.Sturm Summenprodukt mit Bedingung Teil der Zelle zB *NAV* ???
Keine neuen Beiträge Excel Formeln: Aus einer Zelle ein Teil entnehmen 2 Rantanplan78 388 17. Apr 2008, 08:31
Rantanplan78 Aus einer Zelle ein Teil entnehmen
Keine neuen Beiträge Excel Formeln: Funktion Teil von hinten an zählen. 6 Saalko 5262 04. März 2008, 18:11
Saalko Funktion Teil von hinten an zählen.
Keine neuen Beiträge Excel Formeln: teil aus zeile löschen 4 freshbarcode 1111 25. Feb 2008, 20:50
freshbarcode teil aus zeile löschen
Keine neuen Beiträge Excel Formeln: teil der werte vergleichen und diese dann nicht übernehmen?? 2 redcab 485 11. Feb 2008, 12:07
Gast teil der werte vergleichen und diese dann nicht übernehmen??
Keine neuen Beiträge Excel Formeln: Kann Mir Jemand Helfen - WENN, SVERWEIS, TEIL 2 Ekin 798 13. Nov 2007, 16:36
Claudy Kann Mir Jemand Helfen - WENN, SVERWEIS, TEIL
Keine neuen Beiträge Excel Formeln: DropDown Menü um leere Inhalte beschneiden 20 suzhi 1612 08. Okt 2007, 11:47
suzhi DropDown Menü um leere Inhalte beschneiden
Keine neuen Beiträge Excel Formeln: Drop Down Menü - Werte aus andere Tabelle 9 MsgWaldfee 1092 07. Sep 2007, 13:07
Thomas Ramel Drop Down Menü - Werte aus andere Tabelle
Keine neuen Beiträge Excel Formeln: Teil 3 JOMO1000 375 27. Apr 2007, 12:43
Gast Teil
Keine neuen Beiträge Excel Formeln: Dropdown Menü 4 McChef46 683 07. Feb 2007, 13:01
Klaus-Dieter Dropdown Menü
Keine neuen Beiträge Excel Formeln: Teil von einem Datum verwenden 5 Iceman Pharao 4451 06. Feb 2007, 17:55
Iceman Pharao Teil von einem Datum verwenden
Keine neuen Beiträge Excel Formeln: Werte aus drop down menü zuweisen 0 Hiasl 3515 17. Jan 2007, 16:20
Hiasl Werte aus drop down menü zuweisen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum