Resize commentbox in VB
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. |
Resize commentbox in VB
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 12:59 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com