|
Posted to microsoft.public.excel.programming
|
|
|
Excel worksheet cell comment box
Thanks to all
"John" wrote in message
...
Hi Donald,
Have a go with this.
Best regards
John
Sub DonaldsComment()
Dim oCmt As Comment
'Set reference to new comment
Set oCmt = ActiveCell.AddComment
'Set visibility & text
oCmt.Visible = False
oCmt.Text "This is a test"
'Set font
With oCmt.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 10
.Bold = False
End With
'Set comment size
With oCmt.Shape
.Width = 100
.Height = 100
End With
End Sub
"Donald Stockton" wrote in message
...
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="This is a Test"
The above code will add a comment to the active cell, but how can I also
change the Font properties rather than excel using the default setting?
D.S.
*** Sent via Developersdex http://www.developersdex.com ***
|