Comment Box

[Fuggles]

How do you set the default font in the comments box using Excel 2000.

 

[lenze]

Close Excel. Right Click on your Desktop and choose properties. On the appearance tab. Under item, select tooltip. Choose the desired font and click OK. Note: This will also change the font on your tooltip popups
This message was edited by lenze on 2002-10-29 16:44

 

[Jack in the UK]

Hi

This i wrote some time back took a bit of time, has been refered to a few time, here you will see i JACK decided to have clouds me bing a tad flash i agree but the syntax you require re fonts size , font , and all is in here two, edit to your needs it god fun, VBA solution thats perfect, tested in E97 and Excel XP

HTH

Jack

PS i dedicate this VBA solution to all the readers who have list a close friend and miss them dearly, to your buddys, never forget them guys - love Jack

Sub Jacks_SpecialCommentBox()

' To those in our thoghts - Always!

' Jack Creates the comment.
ActiveCell.AddComment ("")
' Can have user name in top left by adding name between ""
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select

With Selection
'Jack Chooses the CLOUD AutoShape from Drawing T/Bar.
.ShapeRange.AutoShapeType = _
msoShapeCloudCallout

'Jack decides to have col(u)rs in the cloud.
.ShapeRange.Fill.PresetGradient _
msoGradientHorizontal, 1, _
msoGradientHorizon

' Jack decides to have BOLD and Italics, felt like it!
.Font.Name = "Arial"
.Font.FontStyle = "Bold Italic"

'Jack moves and resizes the cloud - wanted to!
Selection.ShapeRange.Adjustments.Item(1) = -1.1562
Selection.ShapeRange.ScaleWidth 1.4, msoFalse, msoScaleFromTopLeft

End With

End Sub