Changing a Shape object's formula changes its format
In Excel 2010 when I change the formula of all shapes on the active sheet to be "=A1", then he format (font, color, etc) of the shapes ALSO change from whatever they were set to to be the same as the format of cell A1. Why is this? How can you just change the formula of the shape without the shape's format also changing to that of the cell referenced by the formula.
Sub FormApp()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
'formula
Shp.DrawingObject.Formula = "=A1"
Next
End Sub
|