Stránka 1 z 1

makro výška řádku

Napsal: 06 kvě 2014 10:00
od revol
Ahoj,

potřeboval bych poradit s makrem, které bude automaticky přizpůsobovat výšku řádku podle textu, který je v buňce, ale zároveň, aby výška řádku neklesla pod určitou hranici.

Pro vysvětlení. Mám excel, kam lidi kopírují určitý text a mají vše zamčeno. (nemůžou měnit vůbec nic). Občas je text dlouhý a zalomí se. Problém je, že když označím celou tabulku a poklikám na kraj řádku, aby se přizpůsobily řádky, tak jednořádkové se zmenší na výšku 16 pixelů. Firemní interní předpisy ale máme, že minimální výška je 21 pixelů. Takže bych potřeboval aby u jednohořádku nechal 21p výšku a u víceřádkových, tak aby to bylo čitelné.

Lze to ohlídat makrem? funkce by byla asi "nastav výšku řádku dle textu, minimálně však 21pixelů"

Děkuji za rady

Re: makro výška řádku

Napsal: 06 kvě 2014 12:33
od cmuch
Makrem to lze také, ale je to zbytečné.

-Označ všechny buňky
-Vyper styl písma Arial Narrow
-Nastav velikost na 12,5

A od teď bude na listu min. výška 21px

Takže si stačí pohrát s nastavením stylu a velikosti písma ;)

Re: makro výška řádku

Napsal: 06 kvě 2014 12:43
od revol
Velikost písma je také stanovena interně na Arial 9.

Re: makro výška řádku  Vyřešeno

Napsal: 06 kvě 2014 12:48
od cmuch
Tak pak tady je makro pro řádek 1 až 10000 (uprav dle sebe)

Kód: Vybrat vše

Sub VelikostRadku()
  Dim radek As Long
 
  Application.ScreenUpdating = False

  Cells.EntireRow.AutoFit

  For radek = 1 To 10000
    If Rows(radek).RowHeight < 15.75 Then
      Rows(radek).RowHeight = 15.75
    End If
  Next radek
  Application.ScreenUpdating = True
End Sub

Chvíli to trvá :-)