Resize commentbox in VB
tHenks Jacob!
"Jacob Skaria" wrote: Try Sub AddComment() Dim ComBox As Comment On Error Resume Next Set ComBox = Range("C9").AddComment("Bladiblabla") On Error GoTo 0 If Not ComBox Is Nothing Then With ComBox .Visible = False .Shape.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft .Shape.ScaleWidth 0.1, msoFalse, msoScaleFromTopLeft End With Set ComBox = Nothing End If End Sub -- Jacob (MVP - Excel) "Henk" wrote: How do I resize a comment box in VB? When I record a macro I get : Range("C9").Select Range("C9").AddComment Range("C9").Comment.Visible = False Range("C9").Comment.Text Text:="Bladiblabla" Selection.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleWidth 0.1, msoFalse, msoScaleFromTopLeft Running this code results in : Runtime error '438': Object doesn't support this property or method Anyone any idea? Thanks in advance. |
All times are GMT +1. The time now is 05:38 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com