Schriftgröße im Excel-Kommentar

[Nimmersatt]

Hallo,


Wie kann ich die Schriftgröße im Excelkommentar einstellen ?

Code:

excelobj.cells.item[1,1].Comment.text.font.Size:=14;

ist fehlgeschlagen.

Der VBA-Code lautet

'Schrift u.automatische Kommentargröße
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.ColorIndex = 32 'blau
.Characters.Font.Bold = True
.AutoSize = True
End With



Nimmersatt

[uligerhardt]

Zitat von Nimmersatt:

Wie kann ich die Schriftgröße im Excelkommentar einstellen ?

Code:

excelobj.cells.item[1,1].Comment.text.font.Size:=14;

ist fehlgeschlagen.

Der VBA-Code lautet

'Schrift u.automatische Kommentargröße
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.ColorIndex = 32 'blau
.Characters.Font.Bold = True
.AutoSize = True
End With

Mittels Transferdenken geraten:

Code:

excelobj.cells.item[1,1].Comment.Shape.TextFrame.Characters.Font.Size := 14;

[Nimmersatt]

Leider auch fehlgeschlagen.

[uligerhardt]

Wo kommt denn das Cmt in deinem VBA-Schnipsel her?

[Nimmersatt]

Hier der ganze Quelltext


Option Explicit

Sub Kommentar()
On Error GoTo fehler
ActiveSheet.Unprotect

Dim Cmt As Comment

'Kommentar in Zelle vorhanden
'Set Cmt = ActiveCell.Comment


'Kommentar in Zelle nicht vorhanden
Set Cmt = ActiveCell.AddComment


'Schrift u.automatische Kommentargröße
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.ColorIndex = 32 'blau
.Characters.Font.Bold = True
.AutoSize = True
End With


'Hintergrundfarbe Kommentarfeld
Cmt.Shape.Fill.ForeColor.SchemeColor = 5 'gelb

'Text u.Zellfarbe
With ActiveCell
.Comment.Text Text:="Mein Kommentar:"
.Interior.ColorIndex = 43 'grün
End With
Exit Sub

fehler:
MsgBox "kein Kommentar in Zelle oder falsche Anweisung im Makro"

'ActiveSheet.Protect
End Sub


http://www.herber.de/forum/archiv/28...A_aendern.html

[p80286]

Zunächst einmal, auch VBA-Sourcen kann man zwischen die Code Tags setzen.
Wenn ich das richtig verstanden habe, willst Du da wo kein Kommentar vorhanden ist, einen Kommentar setzen und die dann vorhandenen Kommentare formatieren?

Und das VBA-Makro funktioniert?

Und was bedeutet

Zitat:

ist fehlgeschlagen.

in diesem Zusammenhang?

gibt es Fehlermeldungen oder wird nur die Schriftgröße nicht eingestellt? Oder was?

Gruß
K-H

[Nimmersatt]

Code:

excelobj.cells.item[1,1].Comment.Shape.TextFrame.Characters.Font.Size := 14;

von Uli Gerhardt funktioniert tatsächlich !


Ich bitte die von mir ausgelöste Verwirrung zu entschuldigen, es hatte sich da bei mir ein Programmierfehler eingeschlichen.


Nimmersatt

[uligerhardt]

Zitat von Nimmersatt:

Code:

excelobj.cells.item[1,1].Comment.Shape.TextFrame.Characters.Font.Size := 14;

von Uli Gerhardt funktioniert tatsächlich !

Gut.

Zitat von Nimmersatt:

Ich bitte die von mir ausgelöste Verwirrung zu entschuldigen, es hatte sich da bei mir ein Programmierfehler eingeschlichen.

No prob.

[Nimmersatt]

Ich wünsche ein frohes Fest und einen guten Rutsch ins neue Jahr.

[uligerhardt]

Zitat von Nimmersatt:

Ich wünsche ein frohes Fest und einen guten Rutsch ins neue Jahr.

Danke, ebenso!