鼠标点击之后显示和隐藏对象

Tags: /计算机文档/Office/   Date Created:

利用宏即可：
Sub Macro1()
'
' 宏由 Kingron 记录，日期: 2009-5-8
'
 Presentations(1).Slides(1).Shapes("AutoShape 5").Visible = Not Presentations(1).Slides(1).Shapes("AutoShape 5").Visible
End Sub
然后在某个对象上，设置对象的鼠标点击动作为上面的宏即可。