Alle Buttons in der Datei formatieren

hallo,
ich habe in meiner Exceldatei mehrere CommandButtons auf verschiedenen Tabellenblättern. Diese sollen optisch alle Gleich aussehen.
Bisher regle ich dies über ein Modul, wo ich jeden Button einzeln anspreche


Sub ButtonsFormatieren()
With Login_A
With .btn_TabSchreiben
.BackColor = vbYellow
.ForeColor = vbBlue
.Caption = "Tabellen" & vbLf & "neu schreiben"
End With
With .btn_TabUpdate
.BackColor = vbYellow
.ForeColor = vbBlue
.Caption = "Tabellen" & vbLf & "aktualisieren"
End With
End With
End Sub

gibt es eine Möglichkeit (bei einer Userform weiß ich das das geht über die Variable objObject in me.controls) über eine for each Schleife alle Buttons zu formatieren.
Geht das auch innerhalt der Datei? also das er jedes Tabellenblatt, die dort befindlichen Buttons, die alle ein Suffix von btn_ haben formatiert, ohne das ich jeden Button (außer bei der Caption) extra ansprechen muss?
und wenn ja wo muss ich das modul dann aufrufen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub test() Dim objWorksheet As Worksheet Dim objOLEObject As OLEObject For Each objWorksheet In ThisWorkbook.Worksheets For Each objOLEObject In objWorksheet.OLEObjects With objOLEObject If .progID = "Forms.CommandButton.1" Then With .Object .BackColor = vbYellow .ForeColor = vbBlue End With End If End If Next Next End Sub

Hallo Rudi,
danke, dass hat soweit geklappt, jedoch habe ich es etwas verändert, da die Buttons ja nicht gleich dem Namen lauten.
Jetzt noch mal ein grundsätzliches Problem, ich möchte die Buttons mit Arial 10 Fett haben.
habe folgenden Code
Public Sub ButtonsFormatieren()
Dim objSheet As Worksheet
Dim objOLEObject As OLEObject
For Each objSheet In ThisWorkbook.Sheets
For Each objOLEObject In objSheet.OLEObjects
With objOLEObject
If .progID = "Forms.CommandButton.1" Then
With .Object
.BackColor = vbYellow
.ForeColor = vbBlue
.font.Name = "Arial"
.font.Size = 10
.font.FontStyle = "Bold"
End With
End If
'Namen festlegen
Select Case Mid(.Name, 5)
Case Is = "Login"
.Object.Caption = "Login"
End Select
End With
Next objOLEObject
Next objSheet
aber er springt mir bei Bold sofort in einen debug Error, ist die Syntax für Fette schrift da anders?

Beliebteste Forumthreads (12 Monate)

Alle Buttons in der Datei formatieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle Buttons in der Datei formatieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread