kommentare
09.03.2023 10:14:56
Thomas
ich möchte gern in den Zellen A1 bis NM1 Kommentare schreiben. Diese Kommentare stehen ( testweise) in der Spalte a.
Dies bekomme ich auch schon hin.
Nun möchte ich gern die Größe und die Schriftart der Kommentare anpassen. Dies versuche ich gerade mit
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
.Characters.Font.Name = "Verdana"
'.Comment.Visible = True 'False
.Shape.TextFrame.Characters.Font.Size = 10
.Shape.TextFrame.Characters.Font.Bold = True
.Shape.Width = 140
.Shape.Height = 160
End With
Next xRgEach
https://www.herber.de/bbs/user/158193.xlsm
Das ganze Makro sieht im Moment so aus:
Dim xRg As Range
Dim xRgEach As Range
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Range("a1:nm1")
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = "Eintrag1:" & Range("a2").Text & Chr(10) & "Eintrag2:" & Range("a3").Text & Chr(10) & "eintrag3:" & Range("a4").Text & Chr(10) & " >> "
If xText = "" Then
MsgBox "Keine Kommentare vorhanden"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
.Characters.Font.Name = "Verdana"
'.Comment.Visible = True 'False
.Shape.TextFrame.Characters.Font.Size = 10
.Shape.TextFrame.Characters.Font.Bold = True
.Shape.Width = 140
.Shape.Height = 160
End With
Next xRgEach
' Application.DisplayCommentIndicator = xlCommentIndicatorOnly
https://www.herber.de/bbs/user/158193.xlsm
ich bekomme zwar keine Fehlermeldung aber die Schriftart und die Größe der Kommentare werden auch nicht angepasst.
Kann mir jemand sagen was ich falsch mache?
habt schon mal rechtvielen dank für euer Interesse.
mfg thomas