Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
RibbonX - Teil 3 - Umschaltflächen (Tooglebutton)
zurück: RibbonX - Teil 4 - Checkboxen weiter: RibbonX - Teil 2 - Schaltflächen (button) 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:
15. Jul 2008, 15:49
Rufname: René
Wohnort: Lindau (B)

RibbonX - Teil 3 - Umschaltflächen (Tooglebutton) - RibbonX - Teil 3 - Umschaltflächen (Tooglebutton)

Nach oben
       Version: Office 2007

In diesem Teil wollen wir eine Umschaltfläche (ToggleButton) erstellen. Hierfür wird folgender RibbonX-Code verwendet. Der Beispielcode erstellt eine Schaltfläche.

Bei Umschaltflächen muss der jeweilig Zustand gespeichert werden, damit dieser beim erneuten Öffnen der Arbeitsmappe wieder zur Verfügung steht. Ohne speichern des Zustandes geht selbiger beim Schließen der Arbeitsmappe verloren. Es gibt mehrere Möglichkeiten, den Zustand zu speichern. Die Registry, eine INI-Datei, eine Textdatei, In einer Zelle der Arbeitsmappe oder die DocumentProperties. Da letzteres am geeignetsten erscheint, wird hier dieses Beispiel vorgestellt.

Erstellen Sie eine neue Arbeitsmappe und speichern Sie diese mit der Endung *.xslm. Fügen Sie ein neues Modul ein, in welches Sie die folgendes Makro kopieren. Mit diesem wird ein neur Eintrag in den DocPorperties erstellt. Für jede Umschaltfläche benötigen Sie einen eigenen Eintrag. Nach dem Erstellen des Eintrages können Sie das Makro wieder löschen.

Sub DocumentProbertieFürToggleButtonAnlegen()
ActiveWorkbook.CustomDocumentProperties.Add Name:="ToggleButton01", _
LinkToContent:=False, Type:=msoPropertyTypeNumber, Value:=0
End Sub


Nachdem Sie den Eintrag erstellt haben, fügen Sie die folgenden Makros in ein Standardmodul ein.

Option Private Module
Public objRibbon As IRibbonUI
Public Sub onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
Sub ToggleButton_getPressed(control As IRibbonControl, ByRef returnedValue)
returnedValue = ThisWorkbook.CustomDocumentProperties _
("ToggleButton01").Value
End Sub
Sub ToggleButton_OnAction(control As IRibbonControl, pressed As Boolean)
If ThisWorkbook.CustomDocumentProperties("ToggleButton01").Value = 0 Then
ActiveWorkbook.CustomDocumentProperties("ToggleButton01").Value = 1
objRibbon.Invalidate
MsgBox "Umschaltfläche 1 eingerastet", vbOKOnly + vbInformation, "Hinweis"
ThisWorkbook.Save
Else
ActiveWorkbook.CustomDocumentProperties("ToggleButton01").Value = 0
objRibbon.Invalidate
MsgBox "Umschaltfläche 1 ausgerastet", vbOKOnly + vbInformation, "Hinweis"
ThisWorkbook.Save
End If
End Sub
Sub ToggleButton_getLabel(control As IRibbonControl, ByRef label)
If ThisWorkbook.CustomDocumentProperties("ToggleButton01").Value = 1 Then
label = "Umschaltfläche 1 eingerastet"
Else
label = "Umschaltfläche 1 ausgerastet"
End If
End Sub


Speichern Sie jetzt die Änderungen und schließen die Arbeitsmappe. Öffnen Sie die Arbeitsmappe mit dem CustomUI-Editor und fügen Sie in das Codefenster folgenden Code ein.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="onload">
<ribbon startFromScratch="true">
<tabs>
<tab id="tab01" label="Umschaltflächen">
<group id="grp01" label="Zustand in DocumentProperties" >
<toggleButton id="tgb01" getLabel="ToggleButton_getLabel"
imageMso="ExchangeFolder"
getPressed="ToggleButton_getPressed" onAction="ToggleButton_onAction"
size="large"/> </group>
  </tab>
    </tabs>
     </ribbon>
      </customUI>



Beschreibung:

id: Gibt die control.ID an

getLabel: Das Makro, welches die Beschriftung je nach Zustand der Schaltfläche angibt.

size: größe der Schaltfläche. large=groß, normal=klein.

imageMso: Gibt das Icon an, welches genutzt werden soll.

getPressed: Fragt beim Öffnen der Arbeitsmappe den Wert für den Zustand aus dem gespeicherten Wert ab. Bei 1 wird die Schaltfläche gedrückt.

onAction: Das auszuführende Makro.

Sie können auch die Beispielmappe nutzen.



XL07_ToggleButton.zip
 Beschreibung:

Download
 Dateiname:  XL07_ToggleButton.zip
 Dateigröße:  17.83 KB
 Heruntergeladen:  639 mal



Zuletzt bearbeitet von mumpel am 31. Aug 2011, 22:01, insgesamt 2-mal bearbeitet
mumpel
Fortgeschrittener


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

AW: RibbonX - Teil 3 - Umschaltflächen (Tooglebutton) - AW: RibbonX - Teil 3 - Umschaltflächen (Tooglebutton)

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:37
Rufname: René
Wohnort: Lindau (B)


AW: RibbonX - Teil 3 - Umschaltflächen (Tooglebutton) - AW: RibbonX - Teil 3 - Umschaltflächen (Tooglebutton)

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: Teil einer Reifengröße entnehmen 4 Anteraner 284 07. Jan 2009, 17:04
Anteraner Teil einer Reifengröße entnehmen
Keine neuen Beiträge Excel Formeln: Zellenbezug einer Formel zum Teil fixieren 6 -easyrider75- 4444 16. Aug 2008, 21:15
-easyrider75- Zellenbezug einer Formel zum Teil fixieren
Keine neuen Beiträge Excel Formeln: Teil einer Formel Fett ? 1 ReneG8 2011 24. Jul 2008, 08:51
ReneG8 Teil einer Formel Fett ?
Keine neuen Beiträge Excel Formeln: Summenprodukt Teil einer zahl suchen und zählen 11 formicacid 3330 28. Mai 2008, 17:09
HermannZ Summenprodukt Teil einer zahl suchen und zählen
Keine neuen Beiträge Excel Formeln: Hilfe bei verschaltelter Wenn-Funktion benötigt - Teil 2 2 Ruhrpottfriese 498 19. Mai 2008, 10:19
Ruhrpottfriese Hilfe bei verschaltelter Wenn-Funktion benötigt - Teil 2
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: 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: Teil des Dateinamens in Zelle 7 lioncar 976 20. Dez 2007, 19:38
HermannZ Teil des Dateinamens in Zelle
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: Teil 3 JOMO1000 375 27. Apr 2007, 12:43
Gast Teil
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme