vba - Excel VBA - 使用 Application.Caller 获取图像的单元格坐标

Question

我正在尝试创建一个具有“删除工具”按钮的脚本。一个工具将占用 5 行。因此，我的代码将在点击 X 按钮时删除 5 行，并且还会删除 X 按钮，因为它不再需要。

我遇到的唯一问题是如何找到被点击的图片的单元格地址？下面是我已经开始使用的代码。

Sub DeleteRow()

    Dim Check As Integer
    Dim r As Range
    Dim m As Picture
    Dim strCallerTyp As String

    strCallerTyp = TypeName(Application.Caller)

    Select Case strCallerTyp
        Case "String"
            Check = MsgBox("Are you sure you want to remove this tool?", vbYesNoCancel, "Delete Tool")
            If (Check = 6) Then
                MsgBox Sheets("sheet1").Shapes(Application.Caller).TopLeftCell '*THIS LINE*'
            End If
        Case "Error"
            MsgBox "Error"
    End Select
End Sub

为什么这一行(在代码中标记):
MsgBox Sheets("sheet1").Shapes(Application.Caller).TopLeftCell
打开一个显示“Excel”而不是坐标的消息框？

蒂亚!

Answer 1

将 .Address 添加到行尾

MsgBox Sheets("sheet1").Shapes(Application.Caller).TopLeftCell.Address

H,
ojf