运行 Visio 中的私有子

Question

我在 MS Visio 中写了两个宏。第一个宏隐藏所有图层，第二个宏选择要显示的特定图层。这两个宏本身都可以正常工作，但是当我尝试运行第二个宏中的第一个宏时，我收到一个编译错误，找不到子程序。关于如何正确调用私有 sub 的任何想法？

第一个子，隐藏所有层：私人潜艇 Deselect_layers()

Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
Dim vsoLayers As Visio.Layers
Dim vsoLayer As Visio.Layer
Set vsoPage = ActivePage
Set vsoLayers = vsoPage.Layers

For Each vsoLayer In vsoLayers
    If vsoLayer.CellsC(visLayerVisible).FormulaU = "1" Then
        vsoLayer.CellsC(visLayerVisible).FormulaU = "0"
    End If
Next
End Sub

第二个子，显示一个特定层：

Sub Select18()

Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
Dim vsoLayers As Visio.Layers
Set vsoPage = ActivePage
Set vsoLayers = vsoPage.Layers

RUNMACRO ("SelectLayers.Deselect_layers")  <-- Error occurs here

vsoLayers.Item("18").CellsC(visLayerVisible).FormulaU = "1"

End Sub

到目前为止我尝试过的：

RUNADDON ("ThisDocument.Deselect_layers")
RUNMACRO ("ThisDocument.Deselect_layers")
Callthis ("ThisDocument.Deselect_layers")
RUNADDON ("ThisDocument.SelectLayers.Deselect_layers")
RUNMACRO ("ThisDocument.SelectLayers.Deselect_layers")
Callthis ("ThisDocument.SelectLayers.Deselect_layers")

这些命令均无效。任何帮助将不胜感激！

Answer 1

试试这个：

Private Sub Deselect_layers()
    Debug.Print "In Deselect_layers()"
End Sub

Sub Select18()
    Call Deselect_layers
End Sub

运行 Visio 中的私有子

Run private sub in Visio

vba

visio