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