Bir Hucrenin Uzerine Iki Command Button Ekleme

[Mertinc]

Merhabalar,

Baskalarinin da isine yarabilir dusuncesi ile baslikta belirttigim konunun cozumunu yaziyorum. Umarim ilgilenen arkadaslara faydali olur.

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

Sevgi ve Selamlar