Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1316to1320
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
VBA: Schriftgröße aller ListBoxen ändern
25.06.2013 18:48:54
Bernd
Hallo zusammen,
gibt es ein Makro, welches alle Schriften/Größe aller Userform ListBoxen auf einmal ändert.
Wäre für eure Hilfe sehr dankbar.
Gruß
Bernd

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Schriftgröße aller ListBoxen ändern
25.06.2013 19:24:29
Uduuh
Hallo,
am einfachsten zur Laufzeit.
z.B.
Private Sub UserForm_Activate()
Dim ctl As Control
For Each ctl In Controls
If TypeName(ctl) = "ListBox" Then
ctl.Font.Size = 10
End If
Next
End Sub
Gruß aus’m Pott
Udo

Designer
25.06.2013 19:37:13
ransi
Hallo Bernd
Wie das zur LAufzeit geht hat dir Udo ja gezeigt.
So gehts zur Entwicklungszeit:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Public Sub machs()
    Dim objVBcomp As Object
    Dim myCtrl As MSForms.Control
    Set objVBcomp = Application.VBE.ActiveVBProject.VBComponents("Userform1")
    For Each myCtrl In objVBcomp.designer.Controls
        If TypeOf myCtrl Is MSForms.ListBox Then
            myCtrl.Font.Size = 10
        End If
    Next
End Sub


ransi

Anzeige
@ Udo & ransi - Danke passt ! owT
25.06.2013 23:42:45
Bernd
.

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige