VISIO图层妙用

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

3、在弹出的对话框中添加新的图层，命名为"处理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

7、宏代码

9、第六步添加按钮右击工具栏->开发工具->插入控件，选择Microsoft Forms 2.0 CommandButton

11、第七步关联按钮和录制的宏右击按钮->命令按钮 对象->查看代码，打开看到如下代艨位雅剖码：Private Sub CommandButton1_Click()End Sub

13、第八步测试现在，大功告成，可以点击按钮试试看功能是否好用点击按钮