Beim Klick auf einen CommandButton ändert die Schriftgröße des But

11/02/2010 - 20:24 von charly_27 | Report spam
In einer Tabelle habe cih einen Commandbutton erstellt.
Er führt das Einfügen einer neuen Zeile an einer definierten Stelle aus.
Beim Klicken auf den Knopf und auch, wenbn die Maus sich vom Knopf bewegt,
veràndert sich die Schrift. Ich bin nicht sicher, ob es die Größe ist oder
die Plazierung auf dem Button, jedenfalls "zuckt der Text rum".

Wie kann ich das verhindern. Es gibt keine Mouse_over Einstellung in den
Eigenschaften, die ich deaktivieren könnte.

Ich benutze Windows XP Pro Deustch SP3 und Excel 2003.
Hier noch der Code:

Private Sub CommandButton1_Click()

Worksheets("Aktionen").Unprotect ""
Range("A9").Select
Cells.Find(What:="BEMERKUNGEN:", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(-1, 0).Select

Rows(ActiveCell.Row).Insert Shift:=xlDown
Rows(ActiveCell.Row - 1).Copy Range("A" & ActiveCell.Row)
CommandButton1.BackColor = RGB(200, 200, 200)
CommandButton1.Caption = " Zeile einfügen "
Worksheets("Aktionen").Protect ""

End Sub
 

Lesen sie die antworten

#1 Andreas Killer
12/02/2010 - 19:09 | Warnen spam
charly_27 schrieb:

Er führt das Einfügen einer neuen Zeile an einer definierten Stelle aus.


Unter anderem. :-)

Beim Klicken auf den Knopf und auch, wenbn die Maus sich vom Knopf bewegt,
veràndert sich die Schrift. Ich bin nicht sicher, ob es die Größe ist oder
die Plazierung auf dem Button, jedenfalls "zuckt der Text rum".


Kann ich nicht nachvollziehen, jedoch macht Dein Code Sachen die nicht
sein müssen, probier mal diesen Code.

Andreas.

Private Sub CommandButton1_Click()
Dim R As Range
Worksheets("Aktionen").Unprotect
Set R = Cells.Find(What:="BEMERKUNGEN:", After:=Range("A9"), _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:= _
False)
If R Is Nothing Then Exit Sub
Set R = R.Offset(-1, 0)
Rows(R.Row).Insert Shift:=xlDown
Rows(R.Row - 1).Copy Range("A" & R.Row)
Worksheets("Aktionen").Protect ""
End Sub

Ähnliche fragen