Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
RibbonX - Teil 9 - SplitButton
zurück: RibbonX - Teil 10 - Command, QAT, Officemenü anpassen weiter: RibbonX - Teil 8 - Menü 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, 16:10
Rufname: René
Wohnort: Lindau (B)

RibbonX - Teil 9 - SplitButton - RibbonX - Teil 9 - SplitButton

Nach oben
       Version: Office 2007

In diesem Teil lernen wir den Splitbutton kennen. Dieses Element wird selten genutzt. SplitButton können genutzt werden, wenn nicht genügend Platz auf dem Ribbon vorhanden ist.

Ein Spiltbutton ist in zwei Teile aufgeteilt. Dem Button und dem Menü. Dem Button wird dabei das aus dem Splitbutton-Menü zuletzt genutzte Makro zugewiesen. Normalerweise ist diese Zuweisung temporär, geht also beim Schließen der Arbeitsmappe verloren. Damit dies nicht geschied, nutzen wir wieder die DocumentProperties. Zu diesem Zweck wird ein neuer Eintrag in den DocumentProperties angelgt. Anders als bei Umschaltflächen muss der Eintrag in diesem Fall vom Typ String sein. Für jeden Splitbutton benötigen Sie einen eigenen Eintrag.

Erstellen Sie eine neue Arbeitsmappe (*.xslm). Fügen Sie ein neues Modul und in dieses das folgende Makro ein. Führen Sie selbiges einmalig aus. Danach können Sie es wieder löschen.

Sub DocumentProbertieFürToggleButtonAnlegen()
ActiveWorkbook.CustomDocumentProperties.Add Name:="SplitButton01", _
LinkToContent:=False, Type:=msoPropertyTypeString, Value:="Spalte A"
End Sub


Fügen Sie anschließend die folgenden Makros ein.

Option Explicit
Dim objRibbon As IRibbonUI
Dim strLabel As String
Public Sub rx_onLoad(ribbon As IRibbonUI)
   Set objRibbon = ribbon
End Sub
Public Sub SplitButton_getLabel(control As IRibbonControl, ByRef label)
If strLabel = "" Then strLabel = _
ThisWorkbook.CustomDocumentProperties("SplitButton01").Value
label = strLabel
End Sub
Public Sub SplitButton_onAction(control As IRibbonControl)
  SplitMacro strLabel
End Sub
Public Sub SplitMenüButton_onAction(control As IRibbonControl)
Select Case control.ID
Case "btn01"
strLabel = "Spalte A"
ThisWorkbook.CustomDocumentProperties("SplitButton01").Value = "Spalte A"
SplitMacro strLabel
Case "btn02"
strLabel = "Spalte B"
ThisWorkbook.CustomDocumentProperties("SplitButton01").Value = "Spalte B"
SplitMacro strLabel
Case "btn03"
strLabel = "Spalte C"
ThisWorkbook.CustomDocumentProperties("SplitButton01").Value = "Spalte C"
SplitMacro strLabel
End Select
objRibbon.Invalidate
End Sub
Private Sub SplitMacro(ByVal label As String)
   Select Case strLabel
      Case "Spalte A"
         If Columns("A:A").EntireColumn.Hidden = False Then
            Columns("A:A").EntireColumn.Hidden = True
            Else
            Columns("A:A").EntireColumn.Hidden = False
            End If
      Case "Spalte B"
         If Columns("B:B").EntireColumn.Hidden = False Then
            Columns("B:B").EntireColumn.Hidden = True
            Else
            Columns("B:B").EntireColumn.Hidden = False
            End If
      Case "Spalte C"
         If Columns("C:C").EntireColumn.Hidden = False Then
            Columns("C:C").EntireColumn.Hidden = True
            Else
            Columns("C:C").EntireColumn.Hidden = False
            End If
   End Select
End Sub



Speichern und schließen Sie jetzt die Arbeitsmappe und öffnen Sie sie 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="rx_onLoad">
<ribbon startFromScratch="true">
<tabs>
<tab id="tab01" label="Mein Tab">
<group id="grpDemo" label="SplitButton Demo">
<splitButton id="spbImage" size="large"  >
<button id="btnImage" getLabel="SplitButton_getLabel" 
onAction="SplitButton_onAction"
imageMso="TableSharePointListsModifyColumnsAndSettings"/>
<menu id="menSbt01">
<button id="btn01" label="Spalte A" onAction="SplitMenüButton_onAction"/>
<button id="btn02" label="Spalte B" onAction="SplitMenüButton_onAction"/>
<button id="btn03" label="Spalte C" onAction="SplitMenüButton_onAction"/>
</menu>
 </splitButton>
  </group>
   </tab>
    </tabs>
     </ribbon>
       </customUI>

Die Codebeispiele in diesem Beitrag stammen von Melanie Breden

(Datei geprüft und Virenfrei)



xl07_splitbutton_neu.zip
 Beschreibung:

Download
 Dateiname:  xl07_splitbutton_neu.zip
 Dateigröße:  16.94 KB
 Heruntergeladen:  406 mal



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


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

AW: RibbonX - Teil 9 - SplitButton - AW: RibbonX - Teil 9 - SplitButton

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 9 - SplitButton - AW: RibbonX - Teil 9 - SplitButton

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: Teil einer Formel Fett ? 1 ReneG8 2011 24. Jul 2008, 08:51
ReneG8 Teil einer Formel Fett ?
Keine neuen Beiträge Excel Formeln: Teil der Zelle zwischen zeichen ersetzen 2 Mandrake 3541 30. Jun 2008, 11:58
Mandrake Teil der Zelle zwischen zeichen ersetzen
Keine neuen Beiträge Excel Formeln: Teil einer Zelle anzeigen (=TEIL) bei unbek. Zeichenlänge 3 Steph95 1721 28. Mai 2008, 17:43
Heinz Schweigert Teil einer Zelle anzeigen (=TEIL) bei unbek. Zeichenlänge
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: 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
 

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