Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
RibbonX - Teil 2 - Schaltflächen (button)
zurück: RibbonX - Teil 3 - Umschaltflächen (Tooglebutton) weiter: RibbonX - Teil 1 - Einführung. Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mumpel
Fortgeschrittener


Verfasst am:
15. Jul 2008, 15:26
Rufname: René
Wohnort: Lindau (B)

RibbonX - Teil 2 - Schaltflächen (button) - RibbonX - Teil 2 - Schaltflächen (button)

Nach oben
       Version: Office 2007

In diesem Teil wollen wir einen Button erstellen. Hierfür wird folgender RibbonX-Code verwendet. Der Beispielcode erstellt zwei Schaltflächen.

Erstellen Sie eine neue Arbeitsmappe und speichern Sie diese mit der Endung *.xslm. Fügen Sie ein neues Modul ein, in welches Sie die folgenden Makros kopieren.

Option Private Module
Public objRibbon As IRibbonUI
Public Sub onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
Sub Button1_OnAction(control As IRibbonControl)
If ThisWorkbook.Sheets("Tabelle1").Columns("A:A"). _
EntireColumn.Hidden = False Then
ThisWorkbook.Sheets("Tabelle1").Columns("A:A"). _
EntireColumn.Hidden = True
MsgBox "Spalte A wurde ausgeblendet", vbOKOnly + _
vbInformation, "Hinweis"
Else
ThisWorkbook.Sheets("Tabelle1").Columns("A:A"). _
EntireColumn.Hidden = False
MsgBox "Spalte A wurde eingeblendet", vbOKOnly + _
vbInformation, "Hinweis"
End If
End Sub
Sub Button2_getLabel(control As IRibbonControl, ByRef label)
If ThisWorkbook.Sheets("Tabelle1").Columns("B:B"). _
EntireColumn.Hidden = False Then
label = "Spalte B eingeblendet"
Else
label = "Spalte B ausgeblendet"
End If
End Sub
Sub Button2_OnAction(control As IRibbonControl)
If ThisWorkbook.Sheets("Tabelle1").Columns("B:B"). _
EntireColumn.Hidden = False Then
ThisWorkbook.Sheets("Tabelle1").Columns("B:B"). _
EntireColumn.Hidden = True
objRibbon.Invalidate
MsgBox "Spalte B wurde ausgeblendet", vbOKOnly + _
vbInformation, "Hinweis"
Else
ThisWorkbook.Sheets("Tabelle1").Columns("B:B"). _
EntireColumn.Hidden = False
objRibbon.Invalidate
MsgBox "Spalte B wurde eingeblendet", vbOKOnly + _
vbInformation, "Hinweis"
End If
End Sub


Anschließend beenden Sie Excel und öffnen die Datei mit dem CustomUI-Editor. Fügen Sie in das Codefenster den folgenden Code ein.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="onload">
<ribbon startFromScratch="true">
<tabs>
<tab id="tab01" label="Schaltflächen">
<group id="grp01" label="Spalte A" >
<button id="tgb01" label="Spalte A" imageMso="ExchangeFolder"
onAction = "Button1_onAction"
size="large"/>
</group>
<group id="grp02" label="Spalte B" >
<button id="tgb02" getLabel="Button2_getLabel" imageMso="ExchangeFolder" 
onAction = "Button2_onAction"
size="large"/>
</group></tab></tabs></ribbon></customUI>



Speichern Sie die Änderungen und schließen den Editor. Öffnen Sie die Datei mit excel. Jetzt sollte ein Ribbon mit zwei Schaltflächen erscheinen. Die erste blendet Spalte A im wechsel ein oder aus. Die Schaltflächenbeschriftung ändert sich nicht. Schaltfläche 2 blendet Spalte B im Wechsel ein oder aus, wobei die Schaltflächenbeschriftung den jeweiligen Zustand anzeigt.

Schaltfläche 1:
Diese Schaltfläche hat eine feste Beschriftung.

Schaltfläche 2:
Diese Schaltfläche bezieht ihre Beschriftung aus dem Makro Button2_getLabel.

Beschreibung:

id: Legt die control.ID fest.

onAction: Gibt das zu startende Makro an

label: Beschriftung der Schaltfläche (für Schaltfläche 1)
getLabel: Gibt das Makro an, welches die Beschriftung anhand bestimmter Einstellungen einträgt.
Wichtig: Es ist immer nur eines möglich. Enweder label oder getLabel.

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

size: gibt die Größe der Schaltfläche an. large=groß. normal=klein

Sie können auch die Beispielmappe nutzen.



XL07_Button.zip
 Beschreibung:

Download
 Dateiname:  XL07_Button.zip
 Dateigröße:  17.51 KB
 Heruntergeladen:  1342 mal



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


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

AW: RibbonX - Teil 2 - Schaltflächen (button) - AW: RibbonX - Teil 2 - Schaltflächen (button)

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 2 - Schaltflächen (button) - AW: RibbonX - Teil 2 - Schaltflächen (button)

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 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: Per Button Felder leeren 8 Gast 1201 22. Mai 2007, 11:05
c0bRa Per Button Felder leeren
Keine neuen Beiträge Excel Formeln: Teil 3 JOMO1000 375 27. Apr 2007, 12:43
Gast Teil
Keine neuen Beiträge Excel Formeln: 2 zellen mit hilfe von einem button addieren 4 Jansen 1503 26. Nov 2006, 20:33
Fux85 2 zellen mit hilfe von einem button addieren
Keine neuen Beiträge Excel Formeln: Wenn Abfrage nach einem Teil einer Zelle 4 Biky 1311 18. Jun 2006, 18:16
Gast Wenn Abfrage nach einem Teil einer Zelle
Keine neuen Beiträge Excel Formeln: Hilfe-->Button 5 lowryder 779 10. Apr 2006, 11:42
lowryder Hilfe-->Button
Keine neuen Beiträge Excel Formeln: Erstellung eines Button mit einer Formel ohne VBA 4 Holger781 829 06. März 2006, 13:24
Gast Erstellung eines Button mit einer Formel ohne VBA
Keine neuen Beiträge Excel Formeln: durch Betätigung des Button automatisch Tabelle1 ausdrucken 1 mik612 866 13. Jan 2006, 23:55
fridgenep durch Betätigung des Button automatisch Tabelle1 ausdrucken
Keine neuen Beiträge Excel Formeln: Zellwerterhöhung/Verminderung per Button 1 Gast 1075 24. Dez 2005, 02:00
Hübi Zellwerterhöhung/Verminderung per Button
Keine neuen Beiträge Excel Formeln: nur Teil einer Zelle: von 2. " " - 3. " " 12 Bernd S 580 17. Nov 2005, 11:09
AnBo nur Teil einer Zelle: von 2. " " - 3. " "
Keine neuen Beiträge Excel Formeln: bestimter teil eines textes soll in einer anderen zelle ausg 8 gast0815 819 03. Aug 2005, 14:43
ae bestimter teil eines textes soll in einer anderen zelle ausg
 

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