VBA - 我想删除单元格顶部的按钮 - 扫雷游戏

Question

正如标题所示，我想删除给定单元格位置的单元格顶部的按钮。

这是我迄今为止尝试过但没有成功的方法。

Dim r As Range    'range is already given from another function call
Dim butns As button
With Sheet1.Buttons
    butns.Top = r.Top
    butns.Left = r.Left
    End With
Sheet1.Buttons(butns).Delete

我的尝试是获取单元格“顶部”和“左侧”值并找到与该值关联的按钮，然后将其删除。

任何帮助将不胜感激。谢谢!

Answer 1

我认为真正找到哪个按钮位于单元格顶部的唯一方法是查看按钮的中心是否包含在单元格的尺寸内。

Dim r As Range
Dim s As Shape
Dim i As Long
Dim cx As Double, cy As Double

For i = 1 To Sheet1.Shapes.Count
    Set s = Sheet1.Shapes(i)
    cx = s.Left + s.Width / 2
    cy = s.Top + s.Height / 2
    If cx >= r.Left And cx <= r.Left + r.Width And _
        cy >= r.Top And cy <= r.Top + r.Height _
    Then
        s.Delete
        Exit For
    End If
Next