title image


Smiley Re: Alle Windowas Schriftarten mit einem Beispielsatz darstellen
Hallo



---------------------------------------------------------

Option Explicit

 

Sub SchriftAuslesen()

Dim cnt         As CommandBarControl

Dim intCounter  As Integer

Dim strText     As String

 

strText = "Das ist ein Beispieltext"

 

Application.ScreenUpdating = False

 

Set cnt = Application.CommandBars.FindControl(ID:=1728)

 

For intCounter = 1 To cnt.ListCount

    With Cells(intCounter, 1)

        .Value = cnt.List(intCounter)

        .Font.Name = cnt.List(intCounter)

    End With

    With Cells(intCounter, 2)

        .Value = strText

        .Font.Name = cnt.List(intCounter)

    End With

Next intCounter

 

   Columns(1).AutoFit

   Application.ScreenUpdating = True

End Sub





---------------------------------------------------------



mfg, GraFri

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: