Gruppe
Allgemein
Problem
Wie kann ich einen Kommentar in einer bestimmten Größe erstellen lassen?
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