Monospaced typefaces

[Senso]

Vaak heb je in Excel dat je niet naar 'liggend' wilt. Je hebt tekst en cijfers in één kolom (omschrijving). Het lettertype is monospaced. Wie weet uit ervaring wat het smalste, duidelijkste monospaced lettertype is dat dan zo smal mogelijk is en in een kolom past. Wel normale grootte van 11, 12 pt.

 

[OctaFish]

Waarom probeer je de fonts niet zelf uit op een kolom?

Dim arr() As Variant

Sub ChangeFont()
Dim rng As Range
Dim cel As Range
Dim i As Integer

    ListInstalledFonts
    Set rng = ActiveSheet.UsedRange
    For Each cel In rng.Cells
        cel.Font.Name = arr(i)
        i = i + 1
    Next cel
End Sub

Function ListInstalledFonts()
Dim FontList As Object
    Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)
'   If Font control is missing, create a temp CommandBar
    If FontList Is Nothing Then
        Set TempBar = Application.CommandBars.Add
        Set FontList = TempBar.Controls.Add(ID:=1728)
    End If
'   Put the fonts into column A
    For i = 0 To FontList.ListCount - 1
        ReDim Preserve arr(i)
        arr(i) = FontList.List(i + 1)
    Next i
    
'   Delete temp CommandBar if it exists
    On Error Resume Next
    TempBar.Delete
End Function

 

[Senso]

Ik heb veel uitgeprobeerd. Ik heb nu gekozen voor tekst KaïTi en cijfers/getallen Arial Narrow 11pt en dan kan ik het meeste op één A4 (breed/staand) krijgen. Bedankt voor de hulp.