VBA Schriftgröße aller Commandbutton ändern

Forumthread: VBA Schriftgröße aller Commandbutton ändern
8 Beiträge zu diesem Forumthread
Anzeige

Forumthread: VBA Schriftgröße aller Commandbutton ändern

30.01.2025 18:50:29

Georgi

Hallo Forum,
ich möchte die Schriftgröße aller Commandbutton in der Arbeitsmappe ändern, gibt es dafür einen Befehl für alle Button?
Alternativ müsste ich sonst for next schleifen für jedes Tabellenblatt und jeden Button mit error resume next anlegen, da die Buttonanzahl unterschiedlich hoch ist und auch mal schwankt.

Viele Grüße
Georgi

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Du kannst doch...

30.01.2025 19:12:42

Case
AW: Du kannst doch...

30.01.2025 19:25:29

Georgi
Da dir der Begriff...

31.01.2025 10:29:05

Case
AW: VBA Schriftgröße aller Commandbutton ändern

30.01.2025 19:21:03

ralf_b
AW: VBA Schriftgröße aller Commandbutton ändern

30.01.2025 20:37:05

Onur
AW: VBA Schriftgröße aller Commandbutton ändern

30.01.2025 19:36:42

Georgi
Schneller geht es...

30.01.2025 19:59:36

Case
AW: Schneller geht es...

31.01.2025 01:25:08

ralf_b

Du kannst doch...

30.01.2025 19:12:42

Case

Moin Georgi, :-)

... mit den Schleifen alle CommnadButton ohne Error Resume so erreichen: ;-)

Option Explicit

Public Sub Main()

    Dim wksSheet As Worksheet

    Dim objOLE As OLEObject

    For Each wksSheet In ThisWorkbook.Worksheets

        For Each objOLE In wksSheet.OLEObjects

            With objOLE

                If TypeName(.Object) = "CommandButton" Then

                    .Object.Font.Size = 14

                    .Object.ForeColor = RGB(255, 0, 0) ' Rot

                    .Object.Font.Italic = True ' Kursiv

                    .Object.Font.Bold = True ' Fett

                End If

            End With

        Next objOLE

    Next wksSheet

End Sub

Fett , Farbe und Kursiv nimmst du raus, wenn du es nicht brauchst. ;-)

Servus
Case

AW: Du kannst doch...

30.01.2025 19:25:29

Georgi

Hallo Case,
das OLEObject sagt mir nichts und alles andere sieht schlüssig aus, das könnte also klappen :-)
Vielen Dank vorerst, ich werde das morgen früh gleich testen.

Viele Grüße
Georgi

Da dir der Begriff...

31.01.2025 10:29:05

Case

Moin Georgi, :-)

... "OLEObject" nichts sagt, hier eine Erklärung: ;-)

https://learn.microsoft.com/de-de/office/vba/api/excel.oleobjects

Servus
Case

AW: VBA Schriftgröße aller Commandbutton ändern

30.01.2025 19:21:03

ralf_b

schöne Grüße von chatgpt. Ungetestet, dafür in Nullkommanichts erstellt.

Sub ChangeCommandButtonFontSize()

    Dim ws As Worksheet

    Dim shp As Shape

    Dim newSize As Integer

    

    ' Neue Schriftgröße festlegen

    newSize = 12 ' Hier gewünschte Schriftgröße anpassen

    

    ' Durch alle Arbeitsblätter iterieren

    For Each ws In ThisWorkbook.Worksheets

        ' Durch alle Shapes auf dem Arbeitsblatt iterieren

        For Each shp In ws.Shapes

            ' Prüfen, ob das Shape ein CommandButton ist

            If shp.Type = msoOLEControlObject Then

                On Error Resume Next

                If TypeName(shp.OLEFormat.Object.Object) = "CommandButton" Then

                    shp.OLEFormat.Object.Object.Font.Size = newSize

                End If

                On Error GoTo 0

            End If

        Next shp

    Next ws

    

    MsgBox "Die Schriftgröße aller CommandButtons wurde auf " & newSize & " geändert.", vbInformation

End Sub

AW: VBA Schriftgröße aller Commandbutton ändern

30.01.2025 20:37:05

Onur

Sind das denn Active-X-Buttons ?
Wenn ja, geht das auch ohne Code.

AW: VBA Schriftgröße aller Commandbutton ändern

30.01.2025 19:36:42

Georgi

Hallo ralf_b,
danke auch für Deine Antwort.
Ich muss gestehen, mit chatgpt kenn ich mich noch garnicht aus.
Die Lösung sieht für mich deutlich "kryptischer" (unverständlicher) aus, aber eine Alternative wenn die Lösung von Case nicht klappen sollte :-)

Object.Object, sachen gibts...

Viele Grüße
Georgi

Schneller geht es...

30.01.2025 19:59:36

Case

Moin Ralf, :-)

... mit den MZ-Tools: ;-)
https://www.mztools.com/

Da kann man fertige Codebausteine hinterlegen und per Maus einfügen. ;-)
Das Teil ist einfach nur Klasse. ;-)

Servus
Case

AW: Schneller geht es...

31.01.2025 01:25:08

ralf_b

tastächlich habe ich MZ tools installiert und Automacro und Rubberduck. Aber nutze es nicht wirklich. Es gab ne Zeit da habe gedacht ich würde die Tools unbedingt brauchen. Aber ich hab es nie geschafft die Power dieser Addins zu nutzen bzw. mich für Eines zu entscheiden. Bis auf die automatische Zeileneinrückung.

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