change faceid

  • Thread starter Thread starter masterphilch
  • Start date Start date
M

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
 
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
 
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 >
 
Back
Top