change faceid

[masterphilch]

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

 

[Bob Phillips]

Let's see the code.

 

[masterphilch]

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:=msoControlButton)
Mitglieder.FaceId = 92
Mitglieder.Caption = "Mitglieder aktualisieren"
Mitglieder.Enabled = True

Set abmeldung =
CommandBars("vka_toolbar").Controls.Add(Type:=msoControlPopup)
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:=msoControlPopup)
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:=msoControlButton)
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

 

[keepITcool]

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 >