Changing ForeFillgnd / RUNADDON

[fortunado]

Hi there
I cant make Actions work. I need to change fill color of groupped shape by selecting the appropriate style in submenu of this shape. So, did an action like this:

RUNADDON("Set shp = ActiveWindow.Selection(1): shp.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = ""RGB(213,198,236)"": For i = 1 To shp.Shapes.Count: shp.Shapes(i).CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = ""RGB(213,198,236)"": Next i")

and it does not work..
even sample from msdn like this:

=RUNADDON("MsgBox ""I’ve been clicked!""")

doesn't work too
where is the problem or mistake?

Thanks

 

[fortunado]

So.. I've found that from visio 2000 such features had been disabled for security