如何在列的第一个空白单元格中创建按钮

Question

我正在尝试创建一个具有以下内容的按钮：

Selection.Characters.Text = "Hide"
With Selection.Characters(Start:=1, Length:=4).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1

我希望按钮出现在单元格 B4 之后 B 列末尾的空白单元格中（单元格 B1-B3 可能并不总是有值）

谢谢

Answer 1

只是为了分享，我最终找到了代码，比我想象的要简单得多......

Dim btn As Button
Dim rng As Range
With Worksheets("Sheet1")
Set rng = .Range("B4").End(xlDown).Offset(1, 0)
Set btn = .Buttons.Add(rng.Left, rng.Top, 57.75, 34.5)
With btn
.Caption = "Hide"
.OnAction = "Macro2"
End With
End With

我想字体和东西的规格并不是那么重要......