Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Symbolleiste löschen?!? Hilfe!

Symbolleiste löschen?!? Hilfe!
21.11.2005 08:39:22
Markus
Hallo zusammen,
habe gerade mal wieder etwas mit VBA herumexperimentiert und dabei ein Symbolleiste wie folgt integriert:

Sub TextSchaltflaecheEinrichten()
CustomizationContext = NormalTemplate
Dim x As CommandBarControl
Set x = CommandBars("Standard").Controls.Add(Type:=msoControlEdit)
With x
.BeginGroup = True
.Style = 1
.Caption = "Zoll -> cm"
.Width = CentimetersToPoints(3.5)
.OnAction = "TextSchaltflaecheExit"
.Text = "1"
End With
End Sub


Sub TextSchaltflaecheExit()
Dim x As CommandBarControl
Set x = CommandBars.ActionControl
If IsNumeric(x.Text) Then x.Text = x.Text * 2.54 Else x.Text = "*Error*"
End Sub

Quelle: http://mypage.bluewin.ch/reprobst/WordFAQ/OnAction.htm#OnAction1101
Das Skript habe ich nun dummerweise schon 5mal ablaufen lassen und jetzt habe ich die Symbolleiste 5 mal in meinem Excel und trotzdem keine Ahnung wie ich sie wieder löschen kann. Mit "CommandBars("Standard").Controls.Delete" funktioniert es leider nicht. Wer kann mir weiterhelfen?
Danke im voraus und viele Grüße
Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Extras-Anpassen-Symbolleisten-Löschen o.T
21.11.2005 08:58:36
Rolf Beißner
fG
Rolf
AW: Extras-Anpassen-Symbolleisten-Löschen o.T
21.11.2005 09:01:23
Markus
Hallo Rolf,
DANKE - Problem gelöst. :-)
Gruß
Markus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige