Toggle Button gleich nach Öffnung aktivieren

Hallo Herber Fans,
ich habe mit Hilfe dieses Forums (Dank an Renée und Reinhard!) es geschafft, einen Toggle Button in ein SubMenü zu integrieren und über diesen Toggle Button werden Überwachungsfunktionen gesteuert. In der Beispieldatei wird die Fensterfixierung automatisch adjustiert.
Mein Problem nun: Wenn die Datei geöffnet wird, steht der Toggle Button (Im SubMenü) auf inaktiv. D.h. die Lampe ist weiß und der Überwachungsstatus ist negativ. Erst wenn ich OnAction anspreche durch Klick ist der Überwachungsstatus gesetzt.
Wie kann ich erreichen, daß nach Öffnen den Datei das Betätigen des Toggle Buttons simuliert wird? Ich habe schon mit dem ButtonState experimentiert ohne Erfolg.
Das dazugehörige Ein/ Aus Makro über CALL anzusprechen. Aber dann kommt eine Fehlermeldung bezüglich With/ Objektvariablen.
Wie kann ich also den gedrückten Toggle Button Status gleich nach der Öffnung automatisch herstellen. Ich bin mit meinem Latein am Ende und würde mich freuen, wenn jemand von Euch eine Idee für die Realisierung hat.
https://www.herber.de/bbs/user/53286.xls
Dank und Gruß, Andreas Hanisch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() CreateMyCommandBar ''Call Ein_Aus_3 With Application.CommandBars(MyCommandBarName).Controls("PivotDialoge").CommandBar.Controls( _ "Pivot Fensterueberwachung") .FaceId = 352 .State = True End With End Sub

Hallo Luschi,
vielen Dank für Deinen Lösungsansatz. Es funktioniert auch, daß der Button den Control State True und die rote Lampe nach Öffnung bekommt. Aber es ist so, daß das onAction Attribut dieses Buttons bei Druck ein anderes Makro aufruft, welches Boolean Werte festlegt, von denen es abhängig ist, ob ein Überwachung der Pivot durchgeführt wird oder nicht.
Wenn der Button State auf True gesetzt wird, habe ich dadurch aber leider noch nicht das Makro Ein_Aus_3 angesprochen.
Am besten wäre es, wenn ich so wie Du es aufgezeigt hast über eine With Anweisung mit genauer Bestimmung des Buttons auch das onAction auslösen könnte.
Oder ich rufe bei Öffnung gleich via CALL das Makro Ein_Aus_3 auf, und baue davor Deine Anweisung ein, um den Status auf True zu setzen und anschließend gleich den Status auszuwerten.
Ziel soll es sein, daß die Datei geöffnet wird, der Button auf True geht, seine Rote Lampe bekommt und der Boolsche Wert PivotUeberwachung True ist.
Ich habe noch einiges experimentiert, aber ich fand nichts, um onAction auch ohne Klick zu simulieren. Ich habe mit Deinem With Ansatz noch experimentiert, aber ich bekomme im Ein_Aus_3- Code wieder die With Fehlermeldung bei der IF Auswertung des Status.

Die Datei https://www.herber.de/bbs/user/53348.xls wurde aus Datenschutzgründen gelöscht

Hast Du noch ein Idee, wie das realisiert werden könnte?
Vielen Dank und Gruß, Andreas

Beliebteste Forumthreads (12 Monate)

Toggle Button gleich nach Öffnung aktivieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread