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

[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

[Reklama]

[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

[revol]

Velikost písma je také stanovena interně na Arial 9.

[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á