- Thu Dec 28, 2017 9:57 pm
#1071
PS: I just wrote a bit of VBA to programmatically change the formula in a shape from =a2 I has set via Excel interface to =a1 to see if this also trigger the format change of the shape. It did! My shape had a format of red font and size 40 and when I executed the Shp.DrawingObject.Formula = "=A1" statement it change to black and size 11, being the format of cell A1. I also had this in the Watch window. I can send a screenshot to you if you like, but it simply going to confirm what I have been experiencing. I have also placed a forum post on Mr Excel for this. Will see what comes of that.
Sub FormApp()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
'formula
Shp.DrawingObject.Formula = "=A1"
Next
End Sub
Sub FormApp()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
'formula
Shp.DrawingObject.Formula = "=A1"
Next
End Sub