使用自定义模具作为Visio形状的VBA填充图案

我正在开发一个vba宏，它可以根据各种形状的名称更改它们的填充图案。我在另一个.vssx文件中制作了一些自定义模具（名为“test”），并尝试将这些模具用作填充模式，但没有成功。 在手动应用自定义模板后，当我检查形状的vsoShp1.CellsU（“FillPattern”）。公式时，我得到“使用（“测试”）。但我不明白如何选择这个填充模式与vba代码

以下是我代码的一部分：

For Each vsoPage In vsoDoc.Pages 
    Set vsoDoc = vsoApp.Documents.Open(File.Path)
    'Path of the .vssx file
    strNewPath = local_path
    Favoris = local_path & "\Favoris.vssx"
    'Loading the .vssx file in a current open visio doc
    Dim vsoDocNew As Visio.Document
    Set vsoDocNew = vsoApp.Documents.OpenEx(Favoris, visOpenDocked + visAddStencil)
    'Use the custom stencil for each shapes in the page
    For Each vsoShp1 In vsoPage.Shapes
         vsoShp1.CellsU("FillPattern").FormulaU = "test"
    Next
Next

---

多亏了宏记录器，解决方案是：vsoShp1.CellsU（“FillPattern”）.FormulaU=“USE”（“test”）”现在，我可以选择FillPattern，但它没有在visio文件上显示正确的模式（我想我必须先在主控板中添加模具）