Občas se dělá malý trik - "na oko" změna výšky řádku a zalomení obsahu v ní.
Programově:
Sub SkrytiPretekajicihoTextu()
Dim rngRadek As Range
'pro každý řádek ve výběru
For Each rngRadek In Selection.Rows
With rngRadek
'fiktivní změna výšky řádku
.RowHeight = .RowHeight
'zalomení textu
.WrapText = True
End With
Next rngRadek
End Subcitovat
Programově:
Sub SkrytiPretekajicihoTextu()
Dim rngRadek As Range
'pro každý řádek ve výběru
For Each rngRadek In Selection.Rows
With rngRadek
'fiktivní změna výšky řádku
.RowHeight = .RowHeight
'zalomení textu
.WrapText = True
End With
Next rngRadek
End Subcitovat
RSS nejnovější články