spin button ve şekil taşıma

[görkem23]

Merhaba,

userformda spinbutton yardımıyla girilmiş değeri baz alarak daha önce oluşturduğum şeklin konumunu değiştirmek istiyorum. örneğin kare şeklini 3 birim sağa 5 birim aşağı taşımak istiyorum nasıl yaparım?

Kolay gelsin

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub SpinButton1_SpinDown()
Sayfa1.Shapes("Rectangle 1").IncrementTop Sayfa1.SpinButton1.Value + 5
End Sub

Sub SpinButton1_SpinUp()
Sayfa1.Shapes("Rectangle 1").IncrementLeft Sayfa1.SpinButton1.Value - 5
End Sub