Not sure if this is what you really want by did you know that you can give a
shape a formula that displays the value of a cell?
You can do this from the formula with the shape selected or here is a sample
from code...
Sub MakeShape()
ActiveSheet.Shapes.AddShape(msoShapeOval, 1, 25, 200, 50).Select
With Selection
.Formula = "$A$1"
.AutoSize = True
.ShapeRange.Fill.ForeColor.SchemeColor = 26
.ShapeRange.Fill.Transparency = 0.33
End With
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.