Farbe von Button ändern
27.09.2012 10:42:02
Button
ich habe mit dem unten angegebenen Code einen Button eingefügt. Ist es möglich, die Farbe dieses bestehenden Buttons zu ändern? Ist es auch möglich, die Farbe des Buttons bei der Erstellung des Buttons mitzugeben?
Vielen Dank für Antworten
Dominik
Code:
Sub xxx_AddButton()
Dim tarCell As Range
Set tarCell = Range("G3")
ActiveSheet.Buttons.Add(0, 0, 0, 0).Select
With Selection
.Top = tarCell.Top
.Left = tarCell.Left
.Height = 42
.Width = 120
.Text = "Test Result-Sheet"
.OnAction = "Makro_Name"
End With
End Sub
Anzeige