shape fill color

[jzc10]

I would like to create a shape that when "right clicked" will provide a menu
with a list of fill colours for the shape.

There is a MS shape with "Yes/No box" options that allows this, and changes
the color from black to white based on the option choosen. I want to have the
option to change to red, green, yellow, blue or black.

Can anyone advise on how I might do this ?

Thanks

 

[Frank Wuenschel]

1. mark your shape then open shape sheet
2. insert "Action" type section
3. insert 5 rows (Actions.Row_1...5)
4. enter this formula into the Action cell of the first row:
=SETF(GetRef(FillForegnd),2)
5. enter "red" into the Menu cell of the first row
6. repeat steps 4 and 5 for other rows and colours, changing number in the
formula (0=black, 2=red, 3=green, 4=blue, 5=yellow)
7. right click menu should provide fill colours now

Frank

 

[jzc10]

Thanks,
Your advice is much apreciated.

Regards

1. mark your shape then open shape sheet
2. insert "Action" type section
3. insert 5 rows (Actions.Row_1...5)
4. enter this formula into the Action cell of the first row:
=SETF(GetRef(FillForegnd),2)
5. enter "red" into the Menu cell of the first row
6. repeat steps 4 and 5 for other rows and colours, changing number in the
formula (0=black, 2=red, 3=green, 4=blue, 5=yellow)
7. right click menu should provide fill colours now

Frank