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

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

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

打开宏然后运行可以，但是点击按钮指定的宏就没有反应

taller · 发表于 2019-3-27 18:15

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

你用的哪个代码
Sub Hidden()
For Each s In ActiveSheet.Shapes
s.Visible = 0
Next
End Sub

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

taller 发表于 2019-3-27 18:15
你用的哪个代码
Sub Hidden()
For Each s In ActiveSheet.Shapes

谢谢老师，找到原因了，是跟我表中其他的宏代码冲突了，真的是很抱歉，给您添麻烦了，谢谢！

lele6809 · 发表于 2019-3-27 18:21

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

lele6809 · 发表于 2019-3-27 18:23

用版主的代码会把俩按钮一起隐藏的 - 都是shape

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

lele6809 发表于 2019-3-27 18:21
Sub Show()
ActiveSheet.ChartObjects.Visible = 1
End Sub

您的代码更好，谢谢，跟我表中其他的宏代码不冲突，而且完美的解决了我的问题，点击按钮将所有的图表隐藏了， taller 老师的代码也可以，但是会把按钮也一并隐藏掉，就是按钮跟图表一并隐藏了，感谢各位老师，由于自己不懂，给老师添麻烦了，抱歉，再次感谢各位老师，祝你们工作顺利，好运连连！

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

lele6809 发表于 2019-3-27 18:23
用版主的代码会把俩按钮一起隐藏的 - 都是shape

对的，谢谢老师，您的代码完美的解决了我的问题，不仅跟表中的其他宏代码没有产生冲突，而且完美实现了一键隐藏所有图标，厉害了老师，谢谢

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

yangmucheng 发表于 2019-3-27 18:28
对的，谢谢老师，您的代码完美的解决了我的问题，不仅跟表中的其他宏代码没有产生冲突，而且完美实现了 ...

打错了，是图表，不是图标，谢谢！

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

taller 发表于 2019-3-27 18:15
你用的哪个代码
Sub Hidden()
For Each s In ActiveSheet.Shapes

老师，弄好啦，感谢老师，由于自己不懂，给你添麻烦了，再次感谢

cavid001 · 发表于 2019-3-27 18:41

实验了下，楼上提供的代码可以隐藏啊

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

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