Rotate Fill Effect With Shape in VBA

[EricG]

I have a little routine that replaces the data points on an X-Y chart series
with arrows pointing in the direction of the line. That part works fine.

The arrows are gradient filled block arrows, rotated to the proper angle for
each data point. The arrows start out horizontal, with a horizontal
one-color gradient fill.

When I rotate the arrows, the gradient fill is not rotating with them - it
stays horizontal. I recorded a macro to get the VBA code to set the gradient
fill. I am trying to figure out what property I need to set to emulate the
"Rotate fill effect with shape" check box option in the "Fill
Effects.../Gradient" dialog box. When I record macros with and without that
box checked, there is no difference in the code.

Do any of you know what the VBA code is to set that option?

TIA,

Eric

 

[Peter T]

In theory this should do it

shp.Fill.RotateWithObject = msoTrue ' msoFalse

http://msdn.microsoft.com/en-us/library/bb242619.aspx

However the code fails for me trying to write. Read the value always returns
msoFalse 0 irrespective of the actual setting. Looks like a bug.

Regards,
Peter T

 

[EricG]

Thanks for the input.

When I'm in the debugger, my block arrow shape does not have a
"RotateWithObject" property underneath the "Fill" property, so there is not
way to set it. I'm not sure if this is because it's an autoshape or what,
but if the property is not there, then there is no way to set it. Perhaps
it's just not exposed in the VBA object model?

I'll keep looking, but you are probably right about the bug.

Thanks,

Eric

 

[EricG]

P.S. - the MSDN reference is for 2007. I'm still running 2003.

 

[Peter T]

Ah, OK.

Well there doesn't appear to be the equivalent of a RotateWithObject
property exposed at all in 2003/VBA, so can't even say it's a bug!

Regards,
Peter T