Har fått en fråga kring varför Excelkommentarer ibland flyttar sig “magiskt” och att de ibland ändrar storlek och inte alltid visar hela kommentarens innehåll.
För att lösa detta kan ett par makron behövas så prova gärna makrona nedan om du vill få möjlighet att kontrollera redan inlagda kommentarer:
Det första makrot – Kommentarposition använder du för att justera kommentarens position om den flyttat sig över arket. Den hamnar då i närheten av den cell den tillhör.
Sub Kommentarposition() Dim cmt As Comment For Each cmt In ActiveSheet.Comments cmt.Shape.Top = cmt.Parent.Top + 5 cmt.Shape.Left = _ cmt.Parent.Offset(0, 1).Left + 5 Next End Sub
Detta makro använder du om du behöver justera dina kommentarer för att se den text som är inskriven i dem.
Sub Kommentarstorlek() Dim MyComments As Comment Dim lArea As Long For Each MyComments In ActiveSheet.Comments With MyComments .Shape.TextFrame.AutoSize = True If .Shape.Width > 300 Then lArea = .Shape.Width * .Shape.Height .Shape.Width = 200 .Shape.Height = (lArea / 200) * 1.1 End If End With Next End Sub
Vill du veta hur du lägger in och använder ett makro i Excel? Läs nästa inlägg så kommer en kort beskrivning där.