Excel VBA：单击图像时切换行隐藏/取消隐藏

Question

我是VBA的新手，并且有一个我想要分配宏的图像，以便当用户点击它时，它取消隐藏一系列行，当用户再次点击它时，它会隐藏行。 / p>

我的形象：

Image1.jpg

我已将以下maco分配给此图片：

Sub sbHidingUnHideRows()
'To Hide Rows 22 to 25
Rows("9:14").EntireRow.Hidden = False
End Sub

当用户点击图片时，这会取消隐藏我的行。但是如何在第二次点击时再次隐藏行？像切换按钮一样？

这是我尝试过的：

Sub sbHidingUnHideRows()
'To Hide Rows 22 to 25
Rows("9:14").EntireRow.Hidden = True
Else
Rows("9:14").EntireRow.Hidden = False
End Sub

请有人能告诉我哪里出错了吗？

提前致谢

Answer 1

试试这个

image100