VBA - Drawing Shapes Inbetween Cells (screen position?)

[GBagley]

I want to learn how to draw a shape (an arrow) inbetween two specified cells. I recorded a macro while doing this, and found the addconnector method:

http://msdn.microsoft.com/en-us/library/aa200298(v=office.10).aspx

But this uses some kind of absolute vertical/horizontal screen positioning? How can I find this for each of the cells that I want to reference?

 

[VoG]

Try like this

Sub AddArrow()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, Range("C5").Left, Range("C5").Top, Range("F11").Left, Range("F11").Top)
shp.Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen
End Sub

 

[GBagley]

Ah ha! .Left and .Top, that's exactly what I was looking for. Thanks!

 

[GBagley]

One more question relating to this: how would you get the bottom/right coordinates, or the middle of the cell?

 

[GBagley]

Ah, nevermind, I got it. Just have to offset the cell first and then get the .top/.left coordinates (or offset and then halve the difference to get the middle). Easy!