Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
change faceid
I created a toolbar. On a click on a button I want to change its faceid.
So far, it works, but as soon as I press the Stop-Button in the VBA-Window it stops working. How can I call a button from every point of the code? thx |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
change faceid
Let's see the code.
-- HTH RP "masterphilch" wrote in message ... I created a toolbar. On a click on a button I want to change its faceid. So far, it works, but as soon as I press the Stop-Button in the VBA-Window it stops working. How can I call a button from every point of the code? thx |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
change faceid
Global schutz As CommandBarButton
Sub add_vka_toolbar() Dim mybar As Object, abmeldung As CommandBarPopup, nachOrt As CommandBarButton, _ nach_Name As CommandBarButton, loeschen As CommandBarButton, sortierung As CommandBarPopup Dim abmeldung_anlass As CommandBarButton On Error GoTo ende: 'Generieren der Symbolleiste Set mybar = CommandBars.Add(name:="vka_toolbar", Position:=msoBarFloating, Temporary:=True) mybar.Visible = True 'Hinzufügen der Buttons Set Mitglieder = CommandBars("vka_toolbar").Controls.Add(Type:=msoC ontrolButton) Mitglieder.FaceId = 92 Mitglieder.Caption = "Mitglieder aktualisieren" Mitglieder.Enabled = True Set abmeldung = CommandBars("vka_toolbar").Controls.Add(Type:=msoC ontrolPopup) abmeldung.Caption = "Abmeldungen" Set abmeldung_normal = abmeldung.Controls.Add(Type:=msoControlButton) abmeldung_normal.Caption = "Abmeldung übertragen" abmeldung_normal.FaceId = 80 Set abmeldung_anlass = abmeldung.Controls.Add(Type:=msoControlButton) abmeldung_anlass.Caption = "Anlassabmeldungen" abmeldung_anlass.FaceId = 476 Set stundenplan = CommandBars("vka_toolbar").Controls.Add(Type:=msoC ontrolPopup) stundenplan.Caption = "Stundenplan" stundenplan.Enabled = True Set std_uebertragen = stundenplan.Controls.Add(Type:=msoControlButton) std_uebertragen.Caption = "Stundenplan übertragen" std_uebertragen.FaceId = 98 Set std_entfernen = stundenplan.Controls.Add(Type:=msoControlButton) std_entfernen.Caption = "Stundenplan entfernen" std_entfernen.FaceId = 478 Set sortierung = mybar.Controls.Add(Type:=msoControlPopup) sortierung.Caption = "Sortieren" sortierung.BeginGroup = True Set nachOrt = sortierung.Controls.Add(Type:=msoControlButton) nachOrt.FaceId = 94 nachOrt.Caption = "nach Ort/Abholort" Set nachGrad = sortierung.Controls.Add(Type:=msoControlButton) nachGrad.FaceId = 86 nachGrad.Caption = "nach Grad" Set nachpersnr = sortierung.Controls.Add(Type:=msoControlButton) nachpersnr.FaceId = 95 nachpersnr.Caption = "nach PersNr" Set nachName = sortierung.Controls.Add(Type:=msoControlButton) nachName.FaceId = 93 nachName.Caption = "nach Name/Vorname" Set schutz = Controls.Add(Type:=msoControlButton) schutz.FaceID = 1078 Set loeschen = CommandBars("vka_toolbar").Controls.Add(Type:=msoC ontrolButton) loeschen.FaceId = 47 loeschen.Caption = "löschen" loeschen.BeginGroup = True 'Verweise bei Betätigung der Buttons Mitglieder.OnAction = "mitglieder_aus_vka_tool" abmeldung_normal.OnAction = "abmeldung_aus_vka_tool" abmeldung_anlass.OnAction = "abmeldung_anlass" std_uebertragen.OnAction = "stundenplan_aus_vka_tool" std_entfernen.OnAction = "stundenplan_entfernen" nachOrt.OnAction = "sortieren_nach_ortschaft" nachGrad.OnAction = "sortieren_nach_grad" nachpersnr.OnAction = "sortieren_nach_persnr" nachName.OnAction = "sortieren_nach_name" loeschen.OnAction = "daten_loeschen" schutz.OnAction = "schuetzen" ende: CommandBars("vka_toolbar").Visible = True End Sub and afterthat, when the creation is finished I want to change the faceid from "schutz" into 1088. any other information needed? thx Bob Phillips wrote: Let's see the code. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
change faceid
if you set the TAG property of each control when you create them then later on you can search on that TAG. like.. With Application.Commandbars("wka_toolbar") With .Add(Type:=msoControlButton) .Tag = "mitglieder" .FaceId = 92 .Caption = "Mitglieder aktualisieren" .Enabled = True end with End with With application.commandbars("vka_toolbar").findcontrol (tag:="mitglieder") .FaceId=1088 end with keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool masterphilch wrote: Global schutz As CommandBarButton Sub add_vka_toolbar() Dim mybar As Object, abmeldung As CommandBarPopup, nachOrt As CommandBarButton, _ nach_Name As CommandBarButton, loeschen As CommandBarButton, sortierung As CommandBarPopup Dim abmeldung_anlass As CommandBarButton On Error GoTo ende: 'Generieren der Symbolleiste Set mybar = CommandBars.Add(name:="vka_toolbar", Position:=msoBarFloating, Temporary:=True) mybar.Visible = True 'Hinzufügen der Buttons Set Mitglieder = CommandBars("vka_toolbar").Controls.Add(Type:=msoC ontrolButton) Mitglieder.FaceId = 92 Mitglieder.Caption = "Mitglieder aktualisieren" Mitglieder.Enabled = True |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Qn: .FaceID?? | Excel Programming | |||
FaceID Toolbar (The best one ever!) | Excel Programming | |||
Button Faceid | Excel Programming | |||
Faceid 2003. | Excel Programming | |||
CommandBarButton.FaceId=? | Excel Programming |