Schriftgröße im Kommentar vergrößern
16.03.2004 13:45:27
Sven
kann mir eventuell jemand helfen?
In dem folgenden Modul soll ein Kommentar immer wieder ergänzt werden.
Jetzt möchte ich aber die Schriftgröße etwas größer haben.
Sub KommentareErgänzen()
Dim sAlt As String
Dim sNeu As String
sNeu = InputBox _
("Geben Sie einen Kommentar ein", "Kommentar ergänzen")
If sNeu = "" Then Exit Sub
With Selection
On Error Resume Next
sAlt = .Comment.Text
If sAlt = "" Then .AddComment
sNeu = sAlt & Chr(10) & Application.UserName _
& Chr(10) & "Kommentar vom " & Date & _
Chr(10) & sNeu & Chr(10)
.Comment.Text sNeu
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
Kann mir jemand helfen, danke!
Gruß Sven
Anzeige