vycentrovani a automaticka velikost komentaru v excelu

Vyzkoušej

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'www.contextures.com/xlcomments03.html
Dim rng As Range
Dim cTop As Long
Dim cWidth As Long
Dim cmt As Comment
Dim sh As Shape
Application.DisplayCommentIndicator _
= xlCommentIndicatorOnly

Set rng = ActiveWindow.VisibleRange
cTop = rng.Top + rng.Height / 2
cWidth = rng.Left + rng.Width / 2
If ActiveCell.Comment Is Nothing Then
'do nothing
Else
Set cmt = ActiveCell.Comment
Set sh = cmt.Shape
sh.TextFrame.AutoSize = True
sh.Top = cTop - sh.Height / 2
sh.Left = cWidth - sh.Width / 2
cmt.Visible = True
End If

přidán řádek
sh.TextFrame.AutoSize = True

vysledek: snazi se to sice centrovat, ale kdyz je delsi text tak to pak stejne prekryva, tak ze to neni videt cely - roztahuje se to pouze do šírky ale ne do vysky.

viz. obrazek

Samozřejmě se komentář roztahuje jak do šířky, tak do výšky. Pokud naženeš do komentáře text v jednom řádku (nepoužiješ enter k odřádkování) tak se nemůžeš divit, že se roztahuje jen do šířky.