Soru Başka bir sayfadaki şekli tam istenilen noktaya yapıştırma

[nomercy99]

Merhabalar hocalarım,

Aşağıdaki kodu kullanıyorum ama başka sayfadaki bir şekli, önce seçili noktaya yapıştırıp, sonra taşıyor.Ben ise direk belirtilen kordinatlara yapıştırsın istiyorum.Uzun süredir araştırdım ama beceremedim.Yardımcı olur musunuz?

Sheets("Sayfa1").Shapes("Sag Ok 5").Copy
    ActiveSheet.Paste
    With ActiveSheet.Shapes("Sag Ok 5")
                .Left = 935
                .Top = 305
            End With

 

[Muzaffer Ali]

Merhaba.
Sanırım bunu şeklin parlama gibi bir durumu olmaması için istiyorsunuz.

Eğer öyleyse aşağıdaki gibi deneyin.

Sub örnek()
    Sheets("Sayfa1").Shapes("Sag Ok 1").Copy
    Application.ScreenUpdating = False
    ActiveSheet.Paste
    With ActiveSheet.Shapes("Sag Ok 1")
        .Left = 935
        .Top = 305
    End With
    Application.ScreenUpdating =true
End Sub

 

[Haluk]

@Muzaffer Ali ;

İşlem bittiği zaman TRUE yapmayı unutmayın, yoksa "Application" seviyesinde olduğu için öylece kalır.....

.

 

[Muzaffer Ali]

@Muzaffer Ali ;

İşlem bittiği zaman TRUE yapmayı unutmayın, yoksa "Application" seviyesinde olduğu için öylece kalır.....

.

Unutmuşum. Uyarınız üzerine kodu düzelttim.

 

[nomercy99]

@Muzaffer Ali @Haluk çok teşekkür ederim.Elinize Sağlık.Problemim çözüldü

 

[Korhan Ayhan]

Alternatif olarak yapıştırılacak hücreyi seçmekte çözüm olabilir.

Hücre koordinatı olarak S25 hücresine denk geliyor.

Sub örnek()
    Sheets("Sayfa1").Shapes("Sag Ok 1").Copy
    Range("S25").Select
    ActiveSheet.Paste
End Sub