Vba ile şekil kaydırma

[hpalpal]

Merhaba ben kare bir şekil çizdirmek ve bunu aşağıya ve sağa doğru 10 birim kaydırmak istiyorum. Bunu nasıl yapabilirim?

İyi Çalışmalar

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sayfa1.Shapes("Rectangle 1").IncrementLeft 10

Sayfa1.Shapes("Rectangle 1").IncrementTop 10

 

[hpalpal]

Teşekkür ederim Seyit Bey bir sorum daha olacaktı kaç birim kaydıracağımızı inputbox yardımıyla alırsak bunu nasıl yazabilirim?

 

[YUSUF44]

Seyit Bey yok galiba, ben yardımcı olayım. Şöyle deneyin:

birim = inputbox("Kaç birim kaydırılacak?")
Sayfa1.Shapes("Rectangle 1").IncrementLeft birim
Sayfa1.Shapes("Rectangle 1").IncrementTop birim

İsterseniz birim1, birim2 şeklinde ayrı ayrı da belirleyebilirsiniz.

 

[hpalpal]

teşekkür ederim yusuf bey istediğim gibi oldu