sind die anderen nur ausgeblendet, erkennbar an den Doppelpfeilen unten.
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
warum baust du die Symbolleiste nicht von Hand wieder auf
Ansicht - Symbolleisten > Anpassen
und ziehst die Symbole auf die Leiste.
Wenn es eine Hau-Ruck Aktion sein soll,... lösch die Datei EXCEL10.XLB und starte EXCEL neu.
Gruss Rainer
schaue mal in den entsprechenden Phad bei Dir
C:\Dokumente und Einstellungen\Hajo_Zi.HAJO\Anwendungsdaten\Microsoft\Excel
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Aber warum das so war ... - ... keine Ahnung
funktioniert :-))
Den Rest nehme ich als Ansporn zur Kenntnis :-))
Gruss Rainer
Option Explicit
Private Sub CommandButton1_GotFocus()
Dim sh As Shape, L As Double, T As Double
L = CommandButton1.Left + CommandButton1.Width + 2
T = CommandButton1.Top + CommandButton1.Height + 2
Call lösche
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, L, T, 100, 60)
With sh
.Name = "Ramses"
.TextFrame.Characters.Text = "Ramses rein, aber nicht zu tief!"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(255, 255, 153)
End With
End Sub
Private Sub CommandButton1_LostFocus()
On Error Resume Next
Call lösche
End Sub
Sub lösche()
On Error Resume Next
ActiveSheet.Shapes("Ramses").Delete
End Sub
Gruß L.Vira
wenn du die Datei haben willst, mail mir.
Bei mir tut es.
Der Focus wird ja nicht vom Button genommen.
Allenfalls kann man dann die letzte Zeile auskommentieren wenn es bei dir nicht geht.
Gruss Rainer
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