Поместите кнопку «Две кнопки» над «одной ячейкой» Excel VBA

Question

На этой ссылке есть очень хорошее решение поместить одну командную кнопку над одной конкретной ячейкой. Place a command button in a cell MS Excel vba

Но что, если мы хотим добавить две разные кнопки на одну ячейку?

Например, CommandButton1 должен придерживаться левой стороны ячейки F3, а CommandButton2 должен придерживаться правой части ячейки F3. (Таким образом, левая половина F3 будет CommandButton1, а другая половина ячейки F3 будет CommandButton2)

Спасибо.

Answer 1

Интересно, что я нашел ответ после публикации вопроса самостоятельно. Я использую его для других, которые ищут такое же решение.

Sub mertinc() 

    Dim rng As Range 
    Set rng = ActiveSheet.Range("g1") 

    soldan = Columns("g").Left 
    genislik = Columns("g").Width 
    hedefim= (soldan + genislik/2) 

    With ActiveSheet.OLEObjects("CommandButton1") 
     .Top = rng.Top 
     .Left = rng.Left 
     .Width = rng.Width/2 
     .Height = rng.RowHeight 
    End With 
     With ActiveSheet.OLEObjects("CommandButton2") 
     .Top = rng.Top 
     .Left = hedefim 
     .Width = rng.Width/2 
     .Height = rng.RowHeight 
    End With 

End Sub 

Во-первых, я изменение размера первой кнопки, как половина ширины ячейки с: .Width = rng.Width/2 и поместить его в левой собственности ячейки с: .Left = rng.Left

После этого я снова изменения размера второй кнопки как половина ячейки ширина с: .Width = rng.Width/2, а затем я размещая его левую клетку СОБСТВЕННОСТИ + половине это ширина с .Left = hedefim
==> hedefim уже описанные выше, Soldan + genislik с:

soldan = Columns("g").Left 
    genislik = Columns("g").Width 
    hedefim= (soldan + genislik/2)