1.新建两个图形
2.在第一个新建的图形(Shape1)点右键->宏登录
出现宏窗口,这时做成Shape1的click事件
点击【新建】按钮
3.在出现的宏编辑器加入如下代码
Sub Shape1_Click()
'---------加入的代码-----------
If ActiveSheet.Shapes("AutoShape 1").Visible = True Then
ActiveSheet.Shapes("AutoShape 1").Visible = False
ActiveSheet.Shapes("AutoShape 2").Visible = True
Else
ActiveSheet.Shapes("AutoShape 1").Visible = True
ActiveSheet.Shapes("AutoShape 2").Visible = False
End If
'---------加入的代码-----------
End Sub
4.在第二个新建的图形(Shape2)重做步骤2和步骤3
第二个图形加入的宏代码如下
Sub Shape2_Click()
'---------加入的代码-----------
If ActiveSheet.Shapes("AutoShape 1").Visible = True Then
ActiveSheet.Shapes("AutoShape 1").Visible = False
ActiveSheet.Shapes("AutoShape 2").Visible = True
Else
ActiveSheet.Shapes("AutoShape 1").Visible = True
ActiveSheet.Shapes("AutoShape 2").Visible = False
End If
'---------加入的代码-----------
End Sub
即可实现楼主要求
不明白的话 把邮箱给我 我把文件发给你