VBA - 双击插入的图像时如何运行函数

在使用VBA编写Excel宏时，有时候我们希望能够通过双击插入的图像来运行某个特定的函数。这样可以方便用户进行操作，提高工作效率。本文将介绍如何实现这一功能，并提供相应的示例代码。

vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 判断用户是否双击了插入的图像
    If Target.ShapeRange.Count > 0 Then
        ' 运行自定义的函数
        Call RunFunction
    End If
End Sub
Sub RunFunction()
    ' 在这里编写你的函数逻辑
    MsgBox "Hello, World!"
End Sub

vba
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    ' 判断用户是否双击了插入的图像
    If Target.ShapeRange.Count > 0 Then
        ' 运行自定义的函数
        Call RunFunction
    End If
End Sub
Sub RunFunction()
    ' 在这里编写你的函数逻辑
    MsgBox "Hello, World!"
End Sub