command button için konum belirlenebilir mi?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Command Button makro ile sayfa içinde istenilen noktaya götürülebilir mi?
Saygılarımla

 

[Tevfik_Kursun]

Teşekkür ederim arkadaşlar,
gerekli ifade

            ActiveSheet.Shapes.Range(Array("CommandButton3")).Select
            ActiveSheet.Shapes("CommandButton3").IncrementTop 100

Saygılarımla

 

[Ömer BARAN]

Merhaba.

Örnek belge yok ama anladığım kadarıyla;
ilgili sayfanın kod bölümüne uygulanacak aşağıdaki Worksheet_SelectionChange koduyla,
sayfadaki CommandButton, aktif hücrenin sağındaki hücreye konumlandırılabilir.
Nesneyi konumlandırmak için nesnenin seçilmesine ( .select ) gerek yok sanırım.
.

[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
    ActiveSheet.Shapes("CommandButton1").Left = ActiveCell.Offset[B][COLOR="red"](0, 1)[/COLOR][/B].Left
    ActiveSheet.Shapes("CommandButton1").Top = ActiveCell.Offset[B][COLOR="red"](0, 1)[/COLOR][/B].Top
[B]End Sub[/B]