Although I wasn't able to simply copy I was able to brute force it by simply determining if a gradient existed and then copy each attribute.
Thank you again for the help.
Narayan, thank you for your response and afterwards realized what a poor job I had done in explaining what I was trying to really accomplish. Basically I want to copy all of the properties from 1 shape to another. So I was looking for either a way to loop thru all the properties and/or a...
Is there an easy way to copy the fill properties (i.e. gradient, colors, patterns, etc.) from 1 shape to another?
I thought it would be as easy as, but received an error
Set toShape = Sheets("Sheet1").Shapes(1).Fill
Set FroShape = Sheets("Sheet2").Shapes(2).Fill
toShape.Fill =...