Resize Comment Box

[mikeymay]

Is it possible to resize a comment box that has been added via code?

I recorded the resize and added the code to my routine but it doesn't seem to like it

                    With Selection.Offset(intCellShadeRow, intCellShadeCol)
                        .Interior.ColorIndex = intCellShade
                        .Font.ColorIndex = intCellShade
                        If strComment = "" Then
                            Else
                            .AddComment.Text strComment
                            .ShapeRange.ScaleHeight 0.2, msoFalse, msoScaleFromTopLeft
                        End If
                    End With

 

[Gary McMaster]

Try something like this:

Public Sub Test()

Dim oCell As Range
Dim oComment As Comment

Set oCell = Selection

Set oComment = oCell.Cells(1).Comment

If Not oComment Is Nothing Then
    oComment.Shape.Width = oComment.Shape.Width * 2
    oComment.Shape.Height = oComment.Shape.Height * 2
Else
    Set oComment = oCell.Cells(1).AddComment
    With oComment
        .Shape.TextFrame.Characters.Text = "Hello world"
        .Shape.Width = 400
        .Shape.Height = 50
    End With
End If

End Sub

Gary

 

[mikeymay]

Cheers