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

Macro einem Icon zuweisen

Macro einem Icon zuweisen
12.02.2007 14:23:56
Helmut
Hallo Excel-Freunde,
ich habe mal wieder ein kleines Problem.
Ich habe in der Menüleiste über anpassen ein neues Icon "Smilie" eingefügt. Nun würde ich gerne nach dem Öffnen einer Vorlage diesem Icon ein Makro zuweisen. Allerdings nur wenn ein Arbeitsblattes mit dem Namen "Zeichnung" aktiviert wird.
Nach dem Schliesen der Datei soll die Zuweisung gelöscht werden.
Der Recorder zeichnet hier nicht auf.
vielen Dank für die Hilfe
gruss Helmut

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

Betreff
Datum
Anwender
Anzeige
AW: Macro einem Icon zuweisen
12.02.2007 15:00:26
Rudi
Hallo,
ich würde eher beim öffnen der Mappe eine Symbolleiste einfügen und wieder löschen.
In DieseArbeitsmappe von 'Zeichnung.xls'
Const CMDBARNAME As String = "cmdZeichnung"

Private Sub Workbook_Activate()
On Error Resume Next
Application.CommandBars(CMDBARNAME).Visible = True
On Error GoTo 0
End Sub


Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars(CMDBARNAME).Visible = False
On Error GoTo 0
End Sub


Private Sub Workbook_Open()
Dim oMenueBar As CommandBar, oCmdBtn As CommandBarButton
On Error Resume Next
Application.CommandBars(CMDBARNAME).Delete
On Error GoTo 0
Set oMenueBar = Application.CommandBars.Add(CMDBARNAME, msoBarTop, , True)
Set oCmdBtn = oMenueBar.Controls.Add(msoControlButton)
With oCmdBtn
.Style = msoButtonIcon
.FaceId = 59
.OnAction = "MeinMakro" 'anpassen
.TooltipText = "Test"   'anpassen
End With
oMenueBar.Visible = True
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars(CMDBARNAME).Delete
On Error GoTo 0
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Macro einem Icon zuweisen
12.02.2007 15:31:24
Helmut
Hallo Rudi,
vielen Dank.
Passt 100 %
gruß
Helmut

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige