Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

symbolleiste

symbolleiste anlegen
24.02.2003 09:31:38
Thomas
Guten Morgen!

Mit folgenden Code kann ich über Button-Click eine symbolleiste anlegen:

'symbolleiste anlegen
Dim symbolleiste As Object
Dim symbol As CommandBarControl
On Error Resume Next
Set symbolleiste = CommandBars.Add
With symbolleiste
.Name = "Thomas"
.Visible = True
.Left = 540
.Top = 55
End With

With Application.CommandBars("Thomas")
Set symbol = .Controls.Add( _
Type:=msoControlButton, ID:=3, _
before:=.Controls.Count + 1, _
Temporary:=True)
End With

With Application.CommandBars("Thomas")
Set symbol = .Controls.Add( _
Type:=msoControlButton, ID:=4, _
before:=.Controls.Count + 1, _
Temporary:=True)
End With

With Application.CommandBars("Thomas")
Set symbol = .Controls.Add( _
Type:=msoControlButton, ID:=109, _
before:=.Controls.Count + 1, _
Temporary:=True)
End With

Wenn ich diesen Code jedoch mit Workbook_Open() einsetze wird die symbolleiste nicht generiert. Kann mir wer sagen warum das so ist?

LG
Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: symbolleiste anlegen
24.02.2003 09:55:17
Ralf Sögel

In einem Klassenmodul ist Application n i c h t das default- Objekt und muss daher explicit angegebene werden.
Gruß Ralf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige