ich habe folgendes Makro, aber leider funktioniert die gewünschte Einstellung bzgl. des Innenabstands (Abstand vom Text zum Rahmen) nicht. Erst wenn ich manuell über das Excelmenü den Abstand einstellen möchte, tauchen die Werte aus dem VBA auf.
Kann mir jemand mal sagen, wie man das im VBA korrekt aufbaut, so dass der Innenabstand und möglichst auch alle anderen Einstellmöglichkeiten bzgl. des Kommentarfelds möglich werden?
Vielen Dank im Voraus,
Andreas X
- - - - -
Sub Kommentarfeld_einfuegen()
On Error GoTo Fehler
ActiveSheet.Unprotect
Dim Cmt As Comment
Set Cmt = ActiveCell.AddComment
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Arial"
.Characters.Font.Size = 7
.Characters.Font.Bold = False
.AutoSize = True
.MarginLeft = 2.83
.MarginRight = 2.83
.MarginTop = 2.83
.MarginBottom = 2.83
End With
With ActiveCell
.Comment.Text Text:="abc"
End With
Exit Sub
Fehler:
MsgBox "Ein Kommentarfeld ist in dieser Zelle bereits vorhanden."
End Sub