'1つのセルに2つのコマンドボタン'を配置するExcel VBA

Question

このリンクには、1つの特定のセルに1つのコマンドボタンを配置する非常に良い解決策があります。 Place a command button in a cell MS Excel vba

しかし、1つのセルに2つの異なるボタンを追加したい場合はどうすればよいですか？

たとえば、CommandButton1はF3セルの左側に固定し、CommandButton2はF3 Cellの右側に固定する必要があります。 （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 

まず私は、セルの幅の半分の最初のボタンのサイズを変更している：私は、セルのの半分として再度番目のボタンのサイズを変更していた後.Left = rng.Left

：.Width = rng.Width/2として、細胞のLeftプロパティにそれを置きます幅：

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

：私はそれのセルの左propert +半分にそれを配置することだ、その後 .Width = rng.Width/2とhedefimがすでにsoldanが+でgenislikとして説明されて==> .Left = hedefim
と幅があります10