Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-listy-bunky » pismo-font-format-excel-vba

Písmo formát (Font) - Excel VBA

Videokurzy Excel

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?

Úvodem

Písmo - Excel VBA

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:


Teorie

Krátký teoretický úvod:

Konstanty pro podtržení:

  • xlUnderlineStyleNone
  • xlUnderlineStyleSingle
  • xlUnderlineStyleDouble
  • xlUnderlineStyleSingleAccounting
  • xlUnderlineStyleDoubleAccounting

Změna části textu v buňce

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

Změna více vlastností:

With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With

Tučné

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

Kurzíva

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í

Podtržení textu v buňce

Range("B8").Select Selection.Font.Underline = xlUnderlineStyleSingle
  • xlUnderlineStyleNone
  • xlUnderlineStyleSingle
  • xlUnderlineStyleDouble
  • xlUnderlineStyleSingleAccounting
  • xlUnderlineStyleDoubleAccounting

Přeškrtnutí

Příklad na přeškrtnutí textu

Range("B12").Select Selection.Font.Strikethrough = True

Velikost písma

Vzhled písma - font

Velikost písma lze nastavit od 1 do 409.

Range("B14").Select Selection.Font.Size = "17"

Barva

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:

Horní index

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

Dolní index

>Jak nastavit pomocí VBA dolní index

Range("B25").Select Selection.Font.Subscript = True

Ohraničení

Jak na ohraničení je popsáno v samostatném článku:

Microsoft Excel VBA - stahuj logo

Ke stažení

Soubor Jak nastavit písmo (font) - Excel VBA soubor ve formátu *.xlsm ke stažení zdarma. Soubor využívá makra, pro Excel verze 2007 a novější.


Další související články:

Pokud už máte buňku (oblast) označenou můžete pokračovat dále například:

Závěrem

Pokud víte o jiném triku jak nastavit (upravit) písmo (font), klidně se pochlubte v komentářích.

Článek byl aktualizován: 01.11.2014 13:07

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2000 (od 2004 ne této doméně) - Roku 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici také na on-line videích pro SEDUO. Školím a konzultuji, učím na MUNI. Hlavně tvořím tento web. Je zde k dispozici přes 1.000 návodu, tipů a triků včetně stovek různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

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 - 2017 | 5798

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.