Na první pohled vidíte, která písma jsou k dispozici v Excelu
Písmo pro buňku můžete snadno vybrat. Seznam nainstalovaných písem je ale dlouhý. Hledáte -li správné písmo pro displej nebo chcete -li s písmem trochu experimentovat, pomůže vám makro.
Pokud chcete ve sloupci A nového sešitu zobrazit všechna dostupná písma, použijte následující makro:
Podfonty Enter ()
Dim seznam písem jako CommandBarControl, čítač jako celé číslo
Application.ScreenUpdating = False
Sešity. Přidat
Nastavit seznam písem = Application.CommandBars.FindControl (ID: = 1728)
Pro čítač = 1 Do seznamu písem.ListCount
S buňkami (čítač, 1)
.Value = Seznam písem. Seznam (čítač)
.Font.Name = Seznam písem.List (čítač)
Konec s
Další počítadlo
Sloupce (1). AutoFit
Application.ScreenUpdating = True
End Sub
Excel zadá do buněk název každého písma a buňku okamžitě naformátuje v příslušném písmu. Následující obrázek ukazuje, jak to může vypadat: