Cascade fill colours in a group

Cascade fill colours in a group

I have a group made by selecting a couple of shapes and using the 'Shape - 
Group' context menu option. Using the 'Format - Fill...' context menu dialog, 
I can change the foreground colour of the group.

However, using the shapesheet 'FillForegnd' cell for the same selected 
group, the "dummy" group shape value at the top is changed but the sub-shapes 
are not.

I can write a VBA function that looks to see if a shape is a group and then 
sets the colours for all subshapes if there are any, but I was wondering if 
there is a way to tell the shape that it is to cascade all colour values from 
the group level down to all subgrouped shapes?

(BTW Visio 2003).

Thanks

Susan

date: Thu, 1 May 2008 19:57:01 -0700 author: Aussie Susan

RE: Cascade fill colours in a group

Hi, Aussie Susan.

My idea may not elegant, but 
you may need to enter in Fillforegnd cell of each child shape
in the group, for example, if the name of the group parent shape
is "Sheet.7", then "GUARD(Sheet.7!Fillforegnd)".
-- 
JuneTheSecond  

Now, visual calculation is more visual.
http://www.geocities.jp/visualcalculation/english/index.html

date: Fri, 2 May 2008 04:23:01 -0700 author: JuneTheSecond

RE: Cascade fill colours in a group

June,

If I understand you correctly, then I'm not missing something obvious as to 
how to get this cascading to occur automagically.

The workaround I've been using is use VBA to see if the shape is a group and 
then setting the shapesheet cell of all subshapes if it is. At elast it works 
but at the cost of a separate function to set a cell value - not that much 
but  was hoping for something more 'elegant'.

Thanks

Susan

"JuneTheSecond" wrote:

> Hi, Aussie Susan.
> 
> My idea may not elegant, but 
> you may need to enter in Fillforegnd cell of each child shape
> in the group, for example, if the name of the group parent shape
> is "Sheet.7", then "GUARD(Sheet.7!Fillforegnd)".
> -- 
> JuneTheSecond  
> 
> Now, visual calculation is more visual.
> http://www.geocities.jp/visualcalculation/english/index.html
>

date: Sun, 4 May 2008 19:27:01 -0700 author: Aussie Susan

Re: Cascade fill colours in a group

On Thu, 1 May 2008 19:57:01 -0700, Aussie Susan
 wrote:

>I have a group made by selecting a couple of shapes and using the 'Shape - 
>Group' context menu option. Using the 'Format - Fill...' context menu dialog, 
>I can change the foreground colour of the group.
>
>However, using the shapesheet 'FillForegnd' cell for the same selected 
>group, the "dummy" group shape value at the top is changed but the sub-shapes 
>are not.
>
>I can write a VBA function that looks to see if a shape is a group and then 
>sets the colours for all subshapes if there are any, but I was wondering if 
>there is a way to tell the shape that it is to cascade all colour values from 
>the group level down to all subgrouped shapes?

Have a look at the format painter. I'm sure it can do exactly what you
want.



-- 
Regards, Paul Herber, Sandrila Ltd.
Electronics for Visio        http://www.electronics.sandrila.co.uk/

date: Tue, 06 May 2008 00:18:54 +0100 author: Paul Herber

Re: Cascade fill colours in a group

Paul,

Thanks for the suggestions, and it certainly seems to work when I do this 
manually. However, then I tried to record a macro while I used the format 
painter, I ended up with an empty macro.

I can't seem to find any reference to the format painter functionality in 
the VBA or shapesheet help files. (Probably looking for it in all the wrong 
places!)

Can you point me in the right direction as to how I can use the format 
painter functionality from a shapesheet formula or VBA code?

Thanks

Susan

"Paul Herber" wrote:

> On Thu, 1 May 2008 19:57:01 -0700, Aussie Susan
>  wrote:
> 
> >I have a group made by selecting a couple of shapes and using the 'Shape - 
> >Group' context menu option. Using the 'Format - Fill...' context menu dialog, 
> >I can change the foreground colour of the group.
> >
> >However, using the shapesheet 'FillForegnd' cell for the same selected 
> >group, the "dummy" group shape value at the top is changed but the sub-shapes 
> >are not.
> >
> >I can write a VBA function that looks to see if a shape is a group and then 
> >sets the colours for all subshapes if there are any, but I was wondering if 
> >there is a way to tell the shape that it is to cascade all colour values from 
> >the group level down to all subgrouped shapes?
> 
> Have a look at the format painter. I'm sure it can do exactly what you
> want.
> 
> 
> 
> -- 
> Regards, Paul Herber, Sandrila Ltd.
> Electronics for Visio        http://www.electronics.sandrila.co.uk/
>

date: Tue, 6 May 2008 16:44:00 -0700 author: Aussie Susan

Re: Cascade fill colours in a group

On Tue, 6 May 2008 16:44:00 -0700, Aussie Susan
 wrote:

>Paul,
>
>Thanks for the suggestions, and it certainly seems to work when I do this 
>manually. However, then I tried to record a macro while I used the format 
>painter, I ended up with an empty macro.
>
>I can't seem to find any reference to the format painter functionality in 
>the VBA or shapesheet help files. (Probably looking for it in all the wrong 
>places!)
>
>Can you point me in the right direction as to how I can use the format 
>painter functionality from a shapesheet formula or VBA code?

Look at the DoCmd with parameter visCmdFormatPainter




-- 
Regards, Paul Herber, Sandrila Ltd.
Electronics for Visio        http://www.electronics.sandrila.co.uk/

date: Wed, 07 May 2008 11:12:10 +0100 author: Paul Herber