VISIO图层妙用

VISIO图层妙用VISIO，结合VBA实现类似PS隐藏/显示图层的效果工具/原料 VISIO方法/步骤1. 1打开VISIO，制作一个简单流程如下图所示2. 2第二步给处理3添加图层先选中处理3的所有流程图，右击-格式-图层，3. 3在弹出的对话框中添加新的图层，命名为处理3勾选“处理3”4. 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 Sub6. 工程视图7. 宏代码8. 第五步修改宏代码修改把vsoLayer1.CellsC(visLayerVisible).FormulaU = 0替换成：If vsoLayer1.CellsC(visLayerVisible).FormulaU = 0 Then vsoLayer1.CellsC(visLayerVisible).FormulaU = 1Else vsoLayer1.CellsC(visLayerVisible).FormulaU = 0End 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 Sub9. 第六步添加按钮右击工具栏-开发工具-插入控件，选择Microsoft Forms 2.0 CommandButton10. 修改按钮名称为显示/隐藏流程11. 第七步关联按钮和录制的宏右击按钮-命令按钮 对象-查看代码，打开看到如下代码：Private Sub CommandButton1_Click()End Sub12. 修改代码，把以上代码修改如下：Private Sub CommandButton1_Click() HideAndShowEnd Sub保存代码、关闭代码、保存文件13. 第八步测试现在，大功告成，可以点击按钮试试看功能是否好用点击按钮14. 点击按钮END注意事项 在第八步以前，按钮需要是设计模式第八步测试时候