Gruppe
Allgemein
Bereich
Kommentar
Thema
Kommentarfenster in bestimmter Größe erstellen
Problem
Wie kann ich einen Kommentar in einer bestimmten Größe erstellen lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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