《VISIO图层妙用.doc》由会员分享,可在线阅读,更多相关《VISIO图层妙用.doc(10页珍藏版)》请在三一文库上搜索。
1、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 UndoScop
2、eID1 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(visLayer
3、Visible).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
4、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. 第六步添加按钮右击工具栏-
5、开发工具-插入控件,选择Microsoft Forms 2.0 CommandButton10. 修改按钮名称为显示/隐藏流程11. 第七步关联按钮和录制的宏右击按钮-命令按钮 对象-查看代码,打开看到如下代码:Private Sub CommandButton1_Click()End Sub12. 修改代码,把以上代码修改如下:Private Sub CommandButton1_Click() HideAndShowEnd Sub保存代码、关闭代码、保存文件13. 第八步测试现在,大功告成,可以点击按钮试试看功能是否好用点击按钮14. 点击按钮END注意事项 在第八步以前,按钮需要是设计模式第八步测试时候,按钮必须是非设计模式;在开发工具工具栏最后一项设置按钮模式请问VISIO2013中如何隐藏和显示一个图层?点击显示和隐藏,能够实现最好了谢谢!图层选项里设置