我在excel中有宏，它可以创建visio绘图。此宏在第一页上创建形状。之后，我想颜色这个形状，但我不能这样做。直到我的形状从基本形状变成“盒子”或“正方形”之类的东西。还可以。但是这个形状我不能做类似的动作。我发现，我的形状是一组形状。它包含12个其他形状，以及称为“RootShape”的东西。如果我试着旋转，或者移动形状-我可以。（当然，这是部分）但我不能给它上色。我试着像这样调用形状：

shpObj."do_the_coloring"
shpObj.RootShape."do_the_coloring"
shpObj.Shapes.Item(x)."do_the_coloring"

但我还是没有成功。
这是完整的代码

Option Explicit

Sub TEST()

   Dim AppVisio As visio.Application
   Dim docsObj As visio.Documents 
   Dim DocObj As visio.Document 
   Dim stnObj As visio.Document 
   Dim mastObj As visio.master 
   Dim pagsObj As visio.Pages 
   Dim pagObj As visio.Page 
   Dim shpObj As visio.shape 

   Set AppVisio = CreateObject("visio.application")      
   AppVisio.Visible = True
   
   
   Set docsObj = AppVisio.Documents
   Set DocObj = docsObj.Add("Detailed Network Diagram.vst")

   Set pagsObj = AppVisio.ActiveDocument.Pages
   Set pagObj = pagsObj.Item(1) 
   Set stnObj = AppVisio.Documents.Item("periph_m.vss") 'i use this stencil
   
   Set mastObj = stnObj.Masters("Mainframe") 'trying to color this shape
  
  Set shpObj = pagObj.Drop(mastObj, 2, 2) 'creating a figure
  'trying to paint it
   shpObj.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "rgb(1,220,2)"
   shpObj.RootShape.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "rgb(1,220,2)"
   shpObj.Shapes.Item(4).CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "rgb(1,220,2)"
   'other method
   shpObj.Cells("Fillforegnd").FormulaU = "RGB(255,0,0)"
   shpObj.RootShape.Cells("Fillforegnd").FormulaU = "RGB(255,0,0)"
   shpObj.Shape.Item(4).Cells("Fillforegnd").FormulaU = "RGB(255,0,0)"
   'other method
   shpObj.Fill.ForeColor.RGB = RGB (255, 0, 0)
   shpObj.RootShape.Fill.ForeColor.RGB = RGB (255, 0, 0)
   shpObj.Shapes.Item(4).Fill.ForeColor.RGB = RGB (255, 0, 0)
   'other similar methods
    ...
    End Sub

我尝试添加行/绘制其他行。我试着用颜色代码（ex 2代表红色）来绘画，我也试着从页面中调用形状作为对象（像这样，但当然不只是这样）

pagObj.Shapes.Item(1)

所以，我可以做的形状几乎任何我想要的，但不是着色。可能的问题是什么？（我的目标是shpObj.Shapes.Item（4））