VISIO图层妙用.docx

VISIO图层妙用.docx

《VISIO图层妙用.docx》由会员分享，可在线阅读，更多相关《VISIO图层妙用.docx（8页珍藏版）》请在冰豆网上搜索。

VISIO图层妙用

VISIO图层妙用

VISIO，结合VBA实现类似PS隐藏/显示图层的效果

工具/原料

∙VISIO

方法/步骤

1.1

打开VISIO，制作一个简单流程如如如下图所示

2.2

第二步给处理3添加图层

先选中处理3的所有流程图，右击->格式->图层，

3.3

在弹出的对话框中添加新的图层，命名为"处理3"

勾选“处理3〞

4.4

第三步测试添加的图层是否好用

①工具栏右击->视图

②点击视图工具栏最后一个"图层属性"，在名称为"处理3"的"可见"属性上取消勾选，点击应用可以看到"处理3"可以被隐藏掉，证明图层隐藏好用

5.第四步录制宏

①录制一个宏，命名为"HideAndShow"

②找到宏代码如下：

SubHideAndShow（）

  DimUndoScopeID1AsLong

  UndoScopeID1=Application.BeginUndoScope（"图层属性"）

  SetvsoLayer1=Application.ActiveWindow.Page.Layers.Item（3）

   vsoLayer1.CellsC（visLayerVisible）.FormulaU="0"

  Application.EndUndoScopeUndoScopeID1,True

EndSub

6.工程视图

7.宏代码

8.第五步修改宏代码

①修改

把

vsoLayer1.CellsC（visLayerVisible）.FormulaU="0"

替换成：

IfvsoLayer1.CellsC（visLayerVisible）.FormulaU="0"Then

  vsoLayer1.CellsC（visLayerVisible）.FormulaU="1"

Else

  vsoLayer1.CellsC（visLayerVisible）.FormulaU="0"

EndIf

②修改后的宏代码如下

SubHideAndShow（）

  DimUndoScopeID1AsLong

  UndoScopeID1=Application.BeginUndoScope（"图层属性"）

  SetvsoLayer1=Application.ActiveWindow.Page.Layers.Item（3）

  IfvsoLayer1.CellsC（visLayerVisible）.FormulaU="0"Then

    vsoLayer1.CellsC（visLayerVisible）.FormulaU="1"

  Else

    vsoLayer1.CellsC（visLayerVisible）.FormulaU="0"

  EndIf

  Application.EndUndoScopeUndoScopeID1,True

EndSub

9.第六步添加按钮

右击工具栏->开发工具->插入控件，选择

MicrosoftForms2.0mandButton

10.修改按钮名称为"显示/隐藏流程"

11.第七步关联按钮和录制的宏

右击按钮->命令按钮对象->查看代码，打开看到如下代码：

PrivateSubmandButton1_Click（）

EndSub

12.修改代码，把以上代码修改如下：

PrivateSubmandButton1_Click（）

   HideAndShow

EndSub

保存代码、关闭代码、保存文件

13.第八步测试

现在，大功告成，可以点击按钮试试看功能是否好用

点击按钮

14.点击按钮

END

须知事项

∙在第八步以前，按钮需要是"设计模式"第八步测试时候，按钮必须是"非设计模式";在"开发工具"工具栏最后一项设置按钮模式

请问VISIO2013中如何隐藏和显示一个图层？

点击显示和隐藏，能够实现最好了谢谢！

图层选项里设置