guter Hinweis, ich habe weiter gemacht.
09.03.2005 05:06:21
Jörg
Hallo Rainer,
ich brauch so meine Zeit zum Rumprobieren, ich habe große Probleme die Objektstruktur zu begreifen, hauptsächlich dann, wenn eine Methode, die ich aus Intellisense angeboten bekomme, auf das Objekt nicht anwendbar ist. Ich hoffe daß manchmal was hängenbleibt, zum warum.
Ja das ist ein guter Hinweis zum Index!
Warum läuft Ransis Programm aber nicht?
Sub test() 'von Ransi
Application.CommandBars.FindControl(ID:=522).Enabled = True
End Sub
Ich habe mir gedacht vielleicht läuft es auf ein falsches Optionen... auf?
also habe ich diese mal gezählt
Sub wieviele()
Dim mycontrols As CommandBarControls
Set mycontrols = Application.CommandBars.FindControls(ID:=522)
MsgBox "Es sind " & mycontrols.Count & _
" controls die dem Suchkriterium entsprechen."
End Sub
Es sind 3 controls, die dem Suchkriterium entsprechen.
Achtung: Siehe FindControls jetzt mit s.(Unterschied zu Ransis Zeile)
Da ich nicht weiss wo sich die 3 controls verstecken, habe ich wieder über Index, eins nach dem anderen probiert.
Ich denke diesmal ist es erlaubt, die können ja nur 1,2,3 zählen, oder?
Liegen doch nun zusammen im Kasten mycontrols, den ich gezimmert habe?!
Das gesuchte Optionen... im Menü Extras hat, im Kasten mycontrols, den Index 2.
So lässt es sich wieder einschalten:
Sub mytest()
Dim mycontrols As CommandBarControls
Set mycontrols = Application.CommandBars.FindControls(ID:=522)
mycontrols(2).Enabled = True
End Sub
Die anderen beiden Optionen... habe ich nicht gefunden.
Gruß Jörg