Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

CommandButton Farbe ändern
#1
Hallo Leute!
Ersteinmal schööööön das ihr wieder da seit!
Aber jetzt zu meinen Thema.
Ich möchte gerne einen VBA CommandButton die farbe so ändern wie es in Excel in einer Zelle möglich ist. Zelle formatieren>Ausfüllen>Füllefekte>Graduell> Zweifarbig>Schattierung>Varianten. Ist dies möglich und wenn ja wie?

Danke im vorraus

mfg
Michael
mfg
Michael
:98:

WIN 10  Office 2019
Antworten Top
#2
hi Michael, muss es denn unbedingt ein CommandButton sein..? warum..?
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#3
Hallo Jörg!
Danke für das Intresse
Ja, leider ist es ein CommandButton! Habe eine UserForm wo ich dies gerne einsetzen würde.

mfg
Michael
mfg
Michael
:98:

WIN 10  Office 2019
Antworten Top
#4
Hi,
Farbverläufe sind nicht über Standard möglich. Aber wenn Du künstlerisch begabt bist kannst Du welche Grafiken erzeugen und den Commandbutton ein Bild zuweisen.
Standard: in den Eigenschaften bei Backcolor -> Farbe auswählen
oder bei Picture -> ein Bild auswählen.
Du kannst die Bilder auch über Code zuweisen.

in dieseArbeitsmappe
Code:
Private Sub Workbook_Open()
With Tabelle1
    .CommandButton1.Picture = LoadPicture("c:\temp\mypic.jpg")
End With
End Sub

für einen Button am Tabellenblatt

oder bei
Code:
Private Sub UserForm_Activate()
Me.CommandButton1.Picture = LoadPicture("c:\temp\mypic.jpg")
End Sub
Pfad und Buttonname natürlich anpassen. ;)

lg
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
Antworten Top
#5
Hallo Michael,

Antworten hast Du ja jetzt schon bekommen, wie man sowas erledigen könnte.
Wenn es nicht ganz so künstlerisch sein soll, dann schau mal in das Eigenschaftenfenster.

Farbe ändern ginge dann beispielsweise so:

Code:
With CommandButton3
    .ForeColor = &HFF&                                                           ' rot
    .BackColor = &H80FFFF                                                        ' hellgelb
End With
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#6
Hallo Michael,


Du kannst auch eine Zelle in der Tabelle nach Deinen Wünschen
färben und die Farbe der Zelle dem Button zuweisen.
Gruß Atilla
Antworten Top
#7
Hallo Leute!
Vilen Dank für eure antworten, werde diese jetzt erst einmal alle testen und mich dann wieder melden.
Nur eine frage noch an Atilla wie funktioniert das zuweisen????
Danke nochmals.
mfg
Michael
:98:

WIN 10  Office 2019
Antworten Top
#8
Hey Michael, hier siehe unten.
THX für die PN, kannst du mal deine letzte xls-datei vom gestorbenen Forum einstellen
Grüße aus NRW :21:
Antworten Top
#9
Hallo Michael,

so z.B.:

Code:
Private Sub UserForm_Initialize()
   Me.CommandButton1.BackColor = Sheets("Tabelle1").Cells(1, 1).Interior.Color
End Sub
Gruß Atilla
Antworten Top
#10
Hallo Frank!
Natürlich kann ich das machen, aber dazu sollte ich eine neu frage zu dem Thema einstellen, da ja meine jetzige frage nichts damit zu tun hat. Werde dies morgen mal tun und dann auch die Datei dazu anhängen.
mfg
Michael
:98:

WIN 10  Office 2019
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste