更改 Visio 标题栏的形状颜色 object

Changing shape color of a Visio Title block object

我正在尝试更改“小标题块”形状的颜色,我最初认为这很容易。 我一定是找错了树,因为我似乎无法让它发挥作用。 我正在使用下面的代码,将 18 个单独的单元格设置为所需的颜色,但没有骰子。

foreach(Shape s in TitleShape.Shapes) { s.get_CellsSRC((short)VisSectionIndices.visSectionObject, (short)VisRowIndices.visRowFill, (short)VisCellIndices.visFillBkgnd).FormulaForceU = "RGB(255,255,255)"; }

我也直接尝试了 TitleShape.get_CellsSRC(bla bla bla).FormulaForceU,但没有任何反应。

我能得到一个提示吗?

s.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(255,0,0))"

在VBA

工作