在excel vba中查找按钮对象的单元格

Sub FindButtonCell()
    Dim ws As Worksheet
    Dim btn As Button
    Dim cell As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你要操作的工作表名称
    
    For Each btn In ws.Buttons
        If btn.Name = "Button1" Then '替换为你要查找的按钮名称
            Set cell = btn.TopLeftCell
            Exit For
        End If
    Next btn
    
    If Not cell Is Nothing Then
        MsgBox "按钮所在的单元格是：" & cell.Address
    Else
        MsgBox "未找到按钮对象"
    End If
End Sub