View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Peter T Peter T is offline
external usenet poster
 
Posts: 5,600
Default Rotate Fill Effect With Shape in VBA

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

"EricG" wrote in message
...
P.S. - the MSDN reference is for 2007. I'm still running 2003.
--
.-------------------:
If toast always lands butter-side down, and cats always land on their
feet,
what happen if you strap toast on the back of a cat and drop it?
Steven Wright (1955 - )


"Peter T" wrote:

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