insert shape as specific location

[Av8tordude]

I'm using a code to insert a red triangle in a cell. When I click on the triangle, I will have a message box appear.

Two things: (Note: The activecell will always be in column A)

1. How can I place the msgbox shape in the location as it appears in the picture.
2. How can I place the pointer pointed at the red triangle as it appears in the picture. (Note: The red triangle will always be in the top left corner)

Sub Callout()
Dim shCallout As Shape

Set shCall = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, 112.5, 112.5, 89.25, 60)

With shCall
    .Name = "Callout"
    .TextFrame.Characters.Text = ActiveCell.Offset(, 18).Comment.Text
End With
End Sub

 

[Yongle]

To bump after only 30 minutes shows unbelievable impatience ?
Is this what you want ?

 

[Av8tordude]

Yes and bring the pointer to point to the red triangle in the upper left corner of the cell.

Forgive my impatience.

 

[Yongle]

Try this

Sub Callout()
    Dim shCallout As Shape, cel As Range
    Set shCallout = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, 112.5, 112.5, 89.25, 60)
    Set cel = ActiveCell.Offset(, 18)
    shCallout.Select
        
    With Selection.ShapeRange
        .Adjustments.Item(1) = 0.45
        .Adjustments.Item(2) = -0.7
        .TextFrame.Characters.Text = ActiveCell.Offset(, 18).Comment.Text
        .Name = "Callout"
        .Left = cel.Left - .Width
        .Top = cel.Offset(1).Top
    End With
End Sub

This is the result I get

 

[Av8tordude]

Perfect. Thank you Yongle.

PS. I will be more patient to allow someone to answer my question in the future.

 

[Yongle]