Как вставить командную кнопку относительно ячейки (значения)?

Question

Я бы хотел, чтобы код VBA поместил эту кнопку, скажем, две ячейки (справа) от ячейки на листе, называемой "привет".Вот код кнопки команды:

Set objBtn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
    , DisplayAsIcon:=False, Left:=480, Top:=200, Width:=90, Height:= _
     30)
objBtn.Name = "button1"

Я не хочу использовать местоположение ячейки в качестве ссылки, вместо значения ячейки, которое "привет".Поэтому, возможно, сначала я хочу найти значение, а затем вставить командную кнопку относительно него.

Answer 1

Да, это способ сделать это, например,

Sub x()

Dim objBtn As OLEObject, r As Range

Set r = Cells.Find("hello") 'should specify more parameters than this
If Not r Is Nothing Then
    Set objBtn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
                 DisplayAsIcon:=False, Left:=r.Offset(, 2).Left, Top:=r.Top, Width:=90, Height:=30)
    objBtn.Name = "button1"
End If

End Sub

Answer 2

'Вы можете прикрепить кнопку к определенной ячейке здесь к ячейке A1

Dim rngcbn1 As Range
 Set rngcbn1 = ActiveSheet.Range("A1")
 With ActiveSheet.OLEObjects("CommandButton1")
        .Top = rngcbn1.Top
        .Left = rngcbn1.Left
        .Width = rngcbn1.Width
        .Height = rngcbn1.RowHeight
 End With