| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel worksheet cell comment box
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 *** |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel worksheet cell comment box
Sub E()
ActiveCell.AddComment ActiveCell.Comment.Visible = False ActiveCell.Comment.Text Text:="This is a Test" With ActiveCell.Comment.Shape.TextFrame.Characters.Font .Name = "Times New Roman" .Size = 12 .Bold = False End With End Sub -- Regards, Tom Ogilvy "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 *** |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel worksheet cell comment box
Hi
Search this Group using "How do I change the font inside a cell comment" regards Paul |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel worksheet cell comment box
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 *** |
|
#5
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 *** |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel worksheet cell comment box
One more question about the comment box....
Can it be sized? for instance, can I size it to fit the contents? "D.S." wrote in message ... 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 *** |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel worksheet cell comment box
Hi
Try searching this group using "can I size a comment box to fit the contents" regards Paul |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel worksheet cell comment box
Hi Don,
In addition to Paul's advice see Debra Dalgleish's suggestions at: http://www.contextures.com/xlcomments03.html#Resize --- Regards, Norman "D.S." wrote in message ... One more question about the comment box.... Can it be sized? for instance, can I size it to fit the contents? "D.S." wrote in message ... 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 *** |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel worksheet cell comment box
With Range("A1") ..addComment ("This is my sized comment") ..Comment.Shape.Height = 11 ..Comment.Shape.Width = 123 End With -- ph8 ------------------------------------------------------------------------ ph8's Profile: http://www.excelforum.com/member.php...o&userid=19871 View this thread: http://www.excelforum.com/showthread...hreadid=513219 |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Excel worksheet cell comment box
Thanks to all.. All of your suggestions have been very helpfull.
"ph8" wrote in message ... With Range("A1") addComment ("This is my sized comment") Comment.Shape.Height = 11 Comment.Shape.Width = 123 End With -- ph8 ------------------------------------------------------------------------ ph8's Profile: http://www.excelforum.com/member.php...o&userid=19871 View this thread: http://www.excelforum.com/showthread...hreadid=513219 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Inserting comment in unlocked cell of protected Excel worksheet? | Excel Worksheet Functions | |||
| Can I add a "Comment" to an unlocked cell in a protect worksheet | Excel Worksheet Functions | |||
| Create Cell Comment based on text in a cell on another worksheet | Excel Discussion (Misc queries) | |||
| excel contents cells on different worksheet like a comment | Excel Discussion (Misc queries) | |||
| a comment plugin & copy paste directly from excel to comment ? fr. | Excel Worksheet Functions | |||
Linear Mode
