Hoppande Excelkommentarer

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.

Kommentera

E-postadressen publiceras inte. Obligatoriska fält är märkta *