... Font Größe des Zellenkommentars ...
14.01.2005 17:15:52
Martin
habe ein Problem, dass ich trotz einiger Hilfe aus dem "www" einfach nicht lösen läßt.
Eine Zelle wird über einen CmdButton mit einem Kommentar versehen. Dieser Kommentar soll mindestens FontSize 12 haben.
Ich bekomme andauernd folgende Fehlermeldung, wenn der Text geschrieben und die OK Bestätigung gedrückt wird:
"Unable to set the name property of the Font class" ...
Habe schon versucht das irgendwie anders zu schreiben, klappt einfach nicht.
Hier der Code (ursprünglich aus dem "WWW"):
Private Sub CommandButton5_Click()
Dim Kom As Comment
Dim s As String
s = InputBox _
("Hier bitte den Kommentar eingeben! Datum und Uhrzeit werden automatisch erzeugt ... ", "Kommentar erfassen")
If s = "" Then Exit Sub
Set Kom = ActiveCell.AddComment
Kom.Text Date & Chr(10) & Time & Chr(10) & s
With Kom.Shape.TextFrame.Characters.Font
.Name = "Verdana" 'HIER WIRD IMMER GESTOPPT !!!!!!!!!!!!!
.Size = 12
.AutoSize = True
End With
End Sub
Für einen Tipp wäre ich echt dankbar ...
Gruß ...
Martin