Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Jaké jsou možností při úpravě písma (fontů) pomocí VBA v Excel? Tloušťka, kurzíva, podtržení, barva?
Určitě se dostanete do situace, kdy budete potřebovat upravit písmo pomocí VBA. Ač jde o základy, takový horná dolní index většinou z hlavy nedám. Proč si vše pamatovat, když stačí jen kus kódu zkopírovat. Pro přehlednost jsem článek rozdělil:
Krátký teoretický úvod:
With Range("B22").Characters(Start:=13, Length:=2).Font
'změna jen dvou písmen v buňce na horní index
.Superscript = True
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Převede znaky v buňce B4 na tučné.
Range("B4").Select
Selection.Font.Bold = True
Odstraní z buňky tučný řez.
Range("B4").Select
Selection.Font.Bold = False
Převede znaky v buňce B6 na kurzívu.
Range("B6").Select
Selection.Font.Italic = True
Odstraní z buňky řez kurzivou.
Range("B6").Select
Selection.Font.Italic = False
Podtržení textu v buňce
Range("B8").Select
Selection.Font.Underline = xlUnderlineStyleSingle
Příklad na přeškrtnutí textu
Range("B12").Select
Selection.Font.Strikethrough = True
Velikost písma lze nastavit od 1 do 409.
Range("B14").Select
Selection.Font.Size = "17"
Nastavení barev
Dim MojeRange As Range
Set MojeRange = Range("B18")
MojeRange.Font.Color = RGB(150,150,150)
Podrobněji o barvách v samostatném článku:
Jak nastavit pomocí VBA horní index
Range("B21").Select
Selection.Font.Superscript = True
pokud chcete jen některé znaky.
With Range("B22").Characters(Start:=13, Length:=2).Font
.Superscript = True
End With
>Jak nastavit pomocí VBA dolní index
Range("B25").Select
Selection.Font.Subscript = True
Jak na ohraničení je popsáno v samostatném článku:
Soubor
Jak nastavit písmo (font) - Excel VBA
ke stažení zdarma. Soubor využívá makra, pro Excel verze 2007 a novější.
Pokud už máte buňku (oblast) označenou můžete pokračovat dále například:
Pokud víte o jiném triku jak nastavit (upravit) písmo (font), klidně se pochlubte v komentářích.
Článek byl aktualizován: 19.09.2020 11:06
Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.
Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2025 |