Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Symbolleiste vertikal ausrichten

Forumthread: Symbolleiste vertikal ausrichten

Symbolleiste vertikal ausrichten
13.12.2002 16:36:11
Thomas Tauber
Ich erzeuge mit VBA beim Öffnen einer Excel-Datei eine Symbolleiste. Klappt auch wunderbar.
Ich möchte die Symbolleiste frei schwebend, Button untereinander haben.
Freischwebend ist sie schon, aber mit welcher Eigenschaft bekomme ich es hin, dass die Button untereinander angezeigt werden?

Vielen Dank für Eure Hilfe, ist sicherlich kein Problem für erfahrene Programmierer

T.T.

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Symbolleiste vertikal ausrichten
13.12.2002 16:45:31
GerdZ
Hallo Thomas,

hast Du es schon mit 


CommandBars("name der Symbolleiste").Width = 1
versucht?

Gruß
Gerd

Re: Symbolleiste vertikal ausrichten
13.12.2002 17:10:34
Thomas
geht leider nicht.
Hier einmal - nach hinten gekürzt - der jetzige Code:

On Error Resume Next
CommandBars("Dienstplan").Delete
Set SB = CommandBars.Add("Dienstplan", , , True)
With SB
.Visible = True
.Top = 93
.Left = 10
.Protection = msoBarNoChangeVisible
End With

Set cmb1 = SB.Controls.Add(Type:=msoControlButton)
With cmb1
.Caption = "Ne&uer Dienstplan"
.OnAction = "Neuer_Dienstplan"
.FaceId = 2646
.Style = msoButtonIconAndWrapCaption
End With

Hat noch jemand einen Tipp?

Anzeige
Re: Symbolleiste vertikal ausrichten
13.12.2002 17:32:32
GerdZ
An welcher Stelle hattest Du width=1 eingefügt?
Buttons die danach hinzugefügt werden, werden wieder rechts angehängt.
CommandBars("Dienstplan").Delete
Set SB = CommandBars.Add("Dienstplan", , , True)
With SB
.Visible = True
.Top = 93
.Left = 10
.Protection = msoBarNoChangeVisible
End With
Set cmb1 = SB.Controls.Add(Type:=msoControlButton)
With cmb1
.Caption = "Ne&uer Dienstplan"
.OnAction = "Neuer_Dienstplan"
.FaceId = 2646
.Style = msoButtonIconAndWrapCaption
End With
'
' alle weiteren Buttons hinzufügen
'
' als letztes die Breite auf 1
SB.Width = 1


Zumindest bei Excel 2000 funktioniert das so.

Gruß
Gerd

Anzeige
Re: Symbolleiste vertikal ausrichten
13.12.2002 17:49:56
Thomas Tauber
Vielen Dank, das hilft wie gewünscht!

Ich hatte die Zeile "SB.Width = 1" gleich oben in die ".With"-Anweisung mit hineingeschrieben, da tat sich nämlich nichts.

Wieder etwas dazugelernt.

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige