Auteur Topic: Melding vermijden (gelezen 1587 keer)

SoftAid · « **Reactie #30 Gepost op:** 17 februari 2023, 11:59:40 »

Dag Molly,

nee, ik geef het op. Heb ook al geprobeerd met Win 10 en 11, maar daar doet hij het niet.

Laat maar, niemand heeft er last van, en ik gewen wel

Groeten,

SoftAid

MollyVH · « **Reactie #31 Gepost op:** 17 februari 2023, 12:48:11 »

Hey SoftAid,

Citaat

Laat maar

Uitmuntend plan

Laat ons dan nog eens fors 'off topic' gaan. Wie geregeld iets anders wil en op zoek moet naar een passend lettertype kan deze code uitvoeren op een leeg werkblad (geeft wat uitgebreider voorbeeld dan openklikken in het lint):

Code: [Selecteer]

Sub mijn_fonts()

Application.ScreenUpdating = False
Cells(1, 1) = "naam"
Cells(1, 2) = "voorbeeld"
tekst = "abcdefghijklmnopqrstuvwxyz"
tekst = tekst & " " & UCase(tekst) & " 0123456789"

Set alle_fonts = Application.CommandBars("Formatting").FindControl(ID:=1728)
aantal = alle_fonts.ListCount
    
For i = 1 To aantal
    Cells(i + 1, 1) = alle_fonts.List(i)
    With Cells(i + 1, 2)
        .Value = tekst
        .Font.Name = alle_fonts.List(i)
    End With
Next i
With Columns("A:B")
    .Font.Size = 16
    .EntireColumn.AutoFit
End With
    
End Sub

Ze naar eigen smaak aanpassen mag ook

Groetjes,
Molly

SoftAid · « **Reactie #32 Gepost op:** 17 februari 2023, 13:53:21 »

Hallo Molly,

Thanks !!

Een grote verbetering t.o.v. de standaard weergave, zeker omdat je de tekst zelf kan kiezen.

Een bijkomende mogelijkheid is te verwijzen naar een cel om dan de tekst in die cel te zien (in een ander werkblad) in de verschillende lettertypen.

Ik heb je macro al in een module (van PERSONAL.XLSB) gezet, zo kan ik in ieder werkboek in een leeg werkblad oproepen.

Bedankt

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics