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" wrote in message
...
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