Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

command button format

Forumthread: command button format

command button format
21.10.2021 14:37:41
Fred
Hallo Excel Profis,
ich habe auf meinem Sheet 4 Befehlsschaltflächen (activeX)
Die Namen: cb_01, cb_02, cb_03, cb_04
Wenn ich z.B. auf cb_01 klicke, wird diese Schaltfläche im Aussehen etwas verändert

Private Sub cb_01_Click()
Basis:
cb_01.BackColor = RGB(100, 100, 100)
cb_01.ForeColor = RGB(0, 255, 0)
cb_01.Shadow = False
end sub
Meine Frage:
Wie müßte ein Makro geschrieben werden (Private Sub Basis) um zuvor alle 4 Schaltflächen so zu formatieren:

ForeColor = RGB(100, 100, 100)
BackColor = RGB(242, 242, 242)
Shadow = True
Kann mir bitte jemand dabei helfen?!
Gruss
Fred
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: command button format
21.10.2021 15:07:00
Pierre
Hallo Fred,
z. B., wie hier in diesem Thread zu lesen: 

https://www.herber.de/forum/archiv/1688to1692/1690000_Alle_Buttons_in_der_Datei_formatieren.html

Auf deine Frage angepasst bedeutet das:

Private Sub Workbook_Open()
Dim objWorksheet As Worksheet
Dim objOLEObject As OLEObject
For Each objWorksheet In ThisWorkbook.Worksheets
For Each objOLEObject In objWorksheet.OLEObjects
With objOLEObject
With .Object
.ForeColor = RGB(100, 100, 100)
.BackColor = RGB(242, 242, 242)
'.Shadow = True
End With
End With
Next
Next
End Sub
Bei Shadow hat er bei mir gemeckert...geht scheinbar bei diesen Objekten nicht.
Ich habe jetzt auch nur den vorhandenen Code angepasst.
Gruß Pierre
Anzeige
AW: command button format
21.10.2021 15:25:00
Fred
Hallo Pierre,
das Makro funzt bestens und nimmt mir viel code-zeilen ab. Das "Shadow" einen Fehler erzeugt ist nicht so tragisch.
Über den Link gelange ich leider nicht zu dem Beitrag ....
Vielen Dank für deine Mühe!!
Gruss
Fred
bitteschön... und wg. Link:
21.10.2021 15:32:32
Pierre
Wenn du den aus meinem Beitrag markierst, Strg+C kopierst, in einem neuen Tab einfügst, dann geht es komischerweise.
Ansonsten in Google "Alle Buttons in der Datei formatieren", vielleicht findest du ihn so.
Gruß Pierre
Anzeige
;

Forumthreads zu verwandten Themen

aufbau vieler command buttons, verzögerung?
marc

guten abend zusammen
ich habe eine etwas "unschöne" erscheinung in meiner anwendung:
ich wechse von den ca. 20 arbeitsblättern jeweils mittels folgendem code auf das hauptarbeitsblatt:
Public Sub Hauptmenü() Application.ScreenUpdating = False Worksheets("tabelle1").Activate Range(...
09.10.2008 19:10:08
Thread-ID: 1015438
7 Beiträge
Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Command Button & Variablenübergabe
Jacques

Hallo,
ich erzeuge aus jeder beschriebenen Zeile in einer Mappe einen Command Button. wird dieser gedrückt soll eine Userform aufgehen, und in derenn Feldern die Einträge aus der Zeile stehen, die zum Erzeugen des Buttons führte. Beim Erzeugen der CommandButton stelle ich mir vor, dass ich...
06.11.2008 15:31:39
Thread-ID: 1022322
2 Beiträge
Anzeige
Auswahl von Command Buttons
Command

Hallo,
Ich möchte einen CommandButton auf einem Acces Form aus Excel heraus mit VBA aktivieren. Konkret weiß ich nicht, wie man einen CommandButton ansteuert und diesen per Makro klickt.
Vielen Dank für Eure Hilfe!
Gruß
Lars
24.11.2008 18:49:40
Thread-ID: 1027439
3 Beiträge
Command Button
eric1

Hallo zusammen und einen schönen Abend,
ich möchte die Ansicht der UserForm verschönern, die CommandButton werden wie folgt erstellt :
....
Set ctlOK1 = Controls("frm2").Controls.Add("forms.commandbutton.1", _
"cmdOK1", True)
With ctlOK1
.Left = 320
.Top = 40
.Wi...
17.02.2009 19:53:00
Thread-ID: 1051607
3 Beiträge
Command Button wie Schaltfläche benützen
Andre

Hi Leute,
ich habe keine Ahnung, warum diese zwei Makro codes bei einer Schaltfläche funktionieren, aber wenn ich es einem Command Button zuweise nicht.
Bei Range flippt er jedes mal aus und macht nicht weiter. Kann man einen Command Button mit diesen Codes füttern?
Sub back() Ac...
18.02.2009 18:03:00
Thread-ID: 1051885
6 Beiträge
Anzeige
Werte löschen mit Command Button
Thomas

Hi Profis,
trotz Google Recherche komm ich nicht so richtig weiter. Mist.
Mein Problem besteht darin, das ich hier einen Code aus diesem Forum nach Anpassung an meine Bedürfnisse benutze, welcher Leere Zellen mit einer Ziffer ausfüllt. Klappt soweit sehr gut.
Nun aber macht dieser...
04.03.2009 17:53:38
Thread-ID: 1056535
5 Beiträge
Command Button
Frank

Hei,
muss noch mal stören!! :-)
Kann mir jemand veraten wie ich meine Buttons in meiner Exelmappe wieder zum Leben erwecke.
In Tabelle 1 und 2 sind sie anklickbar in Tabelle 3 und 4 seit 2h nicht mehr. Gehe ich auf Eigenschaften wird mir da nur die Hälfte der Eigenschaftsvariablen a...
06.06.2009 15:28:08
Thread-ID: 1079604
7 Beiträge
Command Button verruscht
merlin

Hallo,
wer kann mir bei diesem Problem helfen?
Eine Tabelle von A bis J und von 1 bis ca. 2000.In diese Tabelle sortiert ich alle Spalten mit dem AutoFilter. Das klappt sehr gut, jetzt möchte ich den gefilterten Bereich über einen Command Button ausdrucken. Aber der Button verruscht manch...
29.04.2002 12:52:26
Thread-ID: 117135
3 Beiträge
Anzeige
Command Button
Ralf

Hallo Excel - Experten,
ich habe eine Excel - Datei mit 11 Tabellen. In
jeder Tabelle habe ich einen CommandButton ( mit VBA Code ).
Jeder CommandButton für sich funktioniert ganz
super.
Nun zu meinem Problem: ich möchte gerne aus der
Tabelle 1 heraus alle 11 gleichzei...
30.08.2010 10:38:58
Thread-ID: 1174739
9 Beiträge
Command Buttons
Peter

Hallo zusammen,
ich habe eine Userform. Es soll eine Abfrage über 30 ToggleButton (TB) erfolgen.
(Name= TB1, TB2,...; Caption=1, 2, ...)
Wird ein TB gedrückt (Value=true) soll sich die Hintergrundfarbe ändern und der Wert (Caption) in Spalte A schreiben. Und umgekehrt (Value=false)<...
21.02.2011 22:40:49
Thread-ID: 1202211
3 Beiträge
Command Button als Grafik ausblenden
EarnyToLearny

Hallo zusammen,
um eine Schaltfläche auszublenden könnte man das doch verwenden?
If ActiveSheet.Cells(17, 3) = 1 Then CommandButton?.Visible = True
Else
CommandButton?.Visible = False
End If

Jedoch verwende ich selbst erstellte Grafik-Buttons in denen dann das M...
11.06.2011 20:15:48
Thread-ID: 1218168
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige