text over shapes

  • Thread starter Thread starter zackb
  • Start date Start date
Z

zackb

Is it possible to have text from a cell overlap a transparent/gradient
filled rectangle shape?
 
Zack,

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
 
Back
Top