Thema: Kommentarfenster in bestimmter Größe erstellen

StandardModule: Modul1

Sub SetComment()
   Dim cmt As Comment
   Application.DisplayCommentIndicator = xlCommentAndIndicator
   Set cmt = ActiveCell.AddComment
   With cmt
      .Text Text:=Application.UserName & ":" _
         & Chr(10) & ""
      With .Shape
         .Height = 80
         .Width = 50
      End With
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kommentar