1、打开VISIO，制作一个简单流程如下图所示
2、第二步给处理3添加图层先选中处理3的所有流程图，右击->格式->图层，
3、在弹出的对话框中添加新的图层，命名为"处理3"勾选“处理3”
4、第三步测试添加的图层是否好用①工具栏右击->视图②点击视图工具栏最后一个"兔脒巛钒图层属性"，在名称为"处理3"的"可见"属性上取消妾良蛐伍勾选，点击应用可以看到"处理3"可以被隐藏掉，证明图层隐藏好用
5、第四步录制宏①录制一个宏， 命名为"HideAndShow"②找到宏代艨位雅剖码如下：Sub HideAndShow() Dim UndoScopeID1 As Long UndoScopeID1 = Application.BeginUndoScope("图层属性") Dim vsoLayer1 As Visio.Layer Set vsoLayer1 = Application.ActiveWindow.Page.Layers.Item(3) vsoLayer1.CellsC(visLayerVisible).FormulaU = "0" Application.EndUndoScope UndoScopeID1, TrueEnd Sub
6、工程视图
7、宏代码
8、第五步修改宏代码①修改把vsoLayer1.CellsC(visLayerVisible).FormulaU = "0"替换成：If vsoLayer1.CellsC(v足毂忍珩isLayerVisible).FormulaU = "0" Then vsoLayer1.CellsC(visLayerVisible).FormulaU = "1"Else vsoLayer1.CellsC(visLayerVisible).FormulaU = "0"End If②修改后的宏代码如下Sub HideAndShow() Dim UndoScopeID1 As Long UndoScopeID1 = Application.BeginUndoScope("图层属性") Dim vsoLayer1 As Visio.Layer Set vsoLayer1 = Application.ActiveWindow.Page.Layers.Item(3) If vsoLayer1.CellsC(visLayerVisible).FormulaU = "0" Then vsoLayer1.CellsC(visLayerVisible).FormulaU = "1" Else vsoLayer1.CellsC(visLayerVisible).FormulaU = "0" End If Application.EndUndoScope UndoScopeID1, TrueEnd Sub
9、第六步添加按钮右击工具栏->开发工具->插入控件，选择Microsoft Forms 2.0 CommandButton
10、修改按钮名称为"显示/隐藏流程"
11、第七步关联按钮和录制的宏右击按钮->命令按钮 对象->查看代码，打开看到如下代艨位雅剖码：Private Sub CommandButton1_Click()End Sub
12、修改代码，把以上代码修改如下：Private Sub CommandButton1_Click() HideAndShowEnd Sub保存代码、关闭代码、保存文件
13、第八步测试现在，大功告成，可以点击按钮试试看功能是否好用点击按钮
14、点击按钮
