Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Command-Button Schrift

Command-Button Schrift
01.08.2006 20:59:05
Walter
Guten Abend,
ich habe ein Command-Button25, die Schrift ist 8/Schwarz, ich möchte diese aber beim anklicken des Command-Button1 in Rot +12 haben.
Wenn ich das Command-Button2 gedrückt habe soll die Schrift wieder 8/Schwarz werden.
gruß Walter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Command-Button Schrift
01.08.2006 21:13:00
Xelleron
Hallo Walter,

Private Sub CommandButton1_Click()
CommandButton25.FontSize = "12"
CommandButton25.ForeColor = RGB(250, 40, 10)
End Sub



Private Sub CommandButton2_Click()
CommandButton25.FontSize = "8"
CommandButton25.ForeColor = RGB(0, 0, 0)
End Sub

Gruss Dennis
AW: Command-Button Schrift
01.08.2006 21:13:49
Josef
Hallo Walter!
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
With CommandButton25
  .ForeColor = vbRed
  .Font.Size = 12
End With
End Sub


Private Sub CommandButton2_Click()
With CommandButton25
  .ForeColor = vbBlack
  .Font.Size = 8
End With
End Sub


Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige