Hi Group,

Has tried to find an answer on this problem in Goggles without result.
Has code as below. Works fine, but the Comment TextFrame shows
a blank line before the text. This make the Comment Frame a rectangel
with the text always at the bottom. Is it possible to remove this blank
line by VBA to get the text in the first line of the AutoSized TextFrame?
(The text is supposed to be a date in the format: dd mmm)

Thankful for any hints.

Brgds

CG Rosén
-----------------------------------------------------

With ActiveCell.AddComment
.Visible = False
.Text Text:= _
Chr(10) & " text"

With ActiveCell.Comment.Shape.TextFrame
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.AutoSize = True

End With
End With

Hi CG Rosén,

You need to remove Chr(10) before your text.

Use:

With ActiveCell.AddComment
.Visible = False
.Text Text:= "your text"

With ActiveCell.Comment.Shape.TextFrame
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.AutoSize = True

End With
End With


Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Thanks Shailesh, works perfect!

Brgds

CG Rosén


"Shailesh Shah" wrote in message
...
Hi CG Rosén,

You need to remove Chr(10) before your text.

Use:

With ActiveCell.AddComment
.Visible = False
.Text Text:= "your text"

With ActiveCell.Comment.Shape.TextFrame
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.AutoSize = True

End With
End With


Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!