möchte gern die Schaltfläche "Rückgängig" in meine eigene Symbolleiste einblenden, wie geht das ? Hab hier nichts gefunden.
Sven
möchte gern die Schaltfläche "Rückgängig" in meine eigene Symbolleiste einblenden, wie geht das ? Hab hier nichts gefunden.
Sven
folgende Lösung wäre denkbar.
Sub NeueSymbolleisteAnlegenUndFüllen()
Dim SB As CommandBar
Dim Icon As CommandBarControl
'On Error Resume Next
Set SB = CommandBars.Add("TESTER")
With SB
.Visible = True
.Top = 150
.Left = 80
End With
Set Icon = SB.Controls.Add(msoControlButton)
With Icon
.FaceId = 128
.OnAction = "Rückgängig"
End With
End Sub
Sub Rückgängig()
Application.Undo
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen