使用图片作为切换按钮隐藏和取消隐藏特定行

Question

嗨，我需要一些VBA代码帮助。我试图在所有时间隐藏空行，同时在单击按钮时显示包含值的所有单元格，然后在第二次单击按钮时隐藏每行。

我认为切换按钮会为我完成，但是我正在使用图片。我也想在单击时将我正在使用的图片（向下箭头）切换为向上箭头。

Sub Image1_Cliquer()

If Worksheets("Sommaire").Rows("7:18").Hidden = False Then

   Application.ActiveSheet.Rows("7:18").Hidden = True

Else

   Dim xRg As Range

   Application.ScreenUpdating = False

   For Each xRg In Range("K7:K18")

      If xRg.Value = "" Then

         xRg.EntireRow.Hidden = True

      Else

         xRg.EntireRow.Hidden = False

      End If

   Next xRg

   Application.ScreenUpdating = True

End If

End Sub

这段代码隐藏了所有空行，但是当我们第二次单击按钮时，它并没有隐藏所有行。

谢谢