点击按钮显示隐藏图表，感谢！

yangmucheng · 发表于 2019-3-26 17:37

如图: 点击按钮显示和隐藏工作表中的图表

感谢老师为我的工作提供帮助，谢谢！

taller · 发表于 2019-3-26 17:48

参考代码

Sub Show()
ActiveSheet.Shapes(1).Visible = 1
End Sub
Sub Hidden()
ActiveSheet.Shapes(1).Visible = 0
End Sub

复制代码

yangmucheng · 发表于 2019-3-27 13:27

taller 发表于 2019-3-26 17:48
参考代码

感谢老师，简单明了，对我的工作提供了莫大的帮助，太厉害啦

yangmucheng · 发表于 2019-3-27 16:07

taller 发表于 2019-3-26 17:48
参考代码

老师，不好意思还得麻烦您一下，上面的公式，只能隐藏一个图表，我表格里面有好几个图表，要点击按钮全部隐藏和显示，拜托了

taller · 发表于 2019-3-27 16:38

yangmucheng 发表于 2019-3-27 16:07
老师，不好意思还得麻烦您一下，上面的公式，只能隐藏一个图表，我表格里面有好几个图表，要点击按钮全部 ...

假设只有图表没有其他图形

Sub Show()
For Each s In ActiveSheet.Shapes
s.Visible = 1
Next
End Sub

复制代码

yangmucheng · 发表于 2019-3-27 17:00

本帖最后由 yangmucheng 于 2019-3-27 17:01 编辑

taller 发表于 2019-3-27 16:38
假设只有图表没有其他图形

工作簿1.zip (24.66 KB, 下载次数: 27)

已上传附件，工作表里面有 3个乃至更多这样类型的图表，需要一并隐藏，谢谢老师

taller · 发表于 2019-3-27 17:06

yangmucheng 发表于 2019-3-27 17:00

已上传附件，工作表里面有 3个乃至更多这样类型的图表，需要一并隐藏，谢谢老师

楼上已经提供代码了呀

yangmucheng · 发表于 2019-3-27 17:33

taller 发表于 2019-3-27 17:06
楼上已经提供代码了呀

不行，还是只能隐藏最上面第一个图表，下面的不会隐藏，抱歉老师

aecn · 发表于 2019-3-27 17:56

yangmucheng 发表于 2019-3-27 17:33
不行，还是只能隐藏最上面第一个图表，下面的不会隐藏，抱歉老师

Sub Show()
ActiveSheet.Shapes(1).Visible = 1
ActiveSheet.Shapes(4).Visible = 1
ActiveSheet.Shapes(5).Visible = 1
End Sub
Sub Hidden()
ActiveSheet.Shapes(1).Visible = 0
ActiveSheet.Shapes(4).Visible = 0
ActiveSheet.Shapes(5).Visible = 0
End Sub

yangmucheng · 发表于 2019-3-27 18:07

aecn 发表于 2019-3-27 17:56
Sub Show()
ActiveSheet.Shapes(1).Visible = 1
ActiveSheet.Shapes(4).Visible = 1

麻烦您下载附件，测试一下可以吗？为什么不可以呢，郁闷~~

		自动登录	找回密码
密码			免费注册

[求助] 点击按钮显示隐藏图表，感谢！

评分

最新热点 /1