Comment
11.01.2005 10:48:01
Clippersoft
Möchte gerne in Kommentare Farbe bringen?
Kopf schwarz, Text(Ter) rot.
Mein VBA-Code:
Sub Lesezeichen2(Ter) 'Comment , Ter as Text
On Error GoTo Fehler
Worksheets(1).Range("A2").ClearComments
Worksheets(1).Range("A2").AddComment
Worksheets(1).Range("A2").Comment.Visible = False
Worksheets(1).Range("A2").Comment.Shape.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
Worksheets(1).Range("A2").Comment.Shape.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
Worksheets(1).Range("A2").Comment.Text Text:="abgelaufene Medikamente:" & Chr(10) & Ter & Chr(10) & ""
Fehler:
End Sub
mfg Clippersoft
Anzeige