Komutun işlem yapmaması hk.

[metin_0606]

Sayfadaki resmi kopyalayıp web sayfasına göndermeye çalışıyorum ama ActiveSheet.Shapes("manzara").Copy komutu işlem yapmıyor. Nedeni ne olabilir acaba

Private Sub CommandButton1_Click()
For i = 2 To 4

Dim ie As InternetExplorer
Set ie = New InternetExplorer

ActiveSheet.Shapes("manzara").Copy

ie.navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now + TimeValue("00:00:10")

Call SendKeys("^v")

Application.Wait Now + TimeValue("00:00:15")

Call SendKeys("{ENTER}", True)
Next i

End Sub

 

[Muzaffer Ali]

Merhaba.
İşlem yapmıyor derken hata mı veriyor. Eğer öyleyse "manzara" ismini doğru yazdığınızdan emin olun.
Şekli kopyalayıp kopyalamadığınızdan emin olmak için aşağıdaki kodu çalıştırın şekil kopyalandıktan sonra aynı sayfaya yapıştırılacaktır.
Eğer aşağıdaki kodlar sorunsuz çalışıyorsa, diğer kodlarda sorun var demektir.

Sub test()
ActiveSheet.Shapes("manzaraa").Copy
ActiveSheet.Paste
End Sub

 

[metin_0606]

Merhaba.
İşlem yapmıyor derken hata mı veriyor. Eğer öyleyse "manzara" ismini doğru yazdığınızdan emin olun.
Şekli kopyalayıp kopyalamadığınızdan emin olmak için aşağıdaki kodu çalıştırın şekil kopyalandıktan sonra aynı sayfaya yapıştırılacaktır.
Eğer aşağıdaki kodlar sorunsuz çalışıyorsa, diğer kodlarda sorun var demektir.

Sub test()
ActiveSheet.Shapes("manzaraa").Copy
ActiveSheet.Paste
End Sub

Muzaffer bey geri dönüş için teşekkürler deneme yanılma yoluyla kendim çözdüm sağolun

 

[veyselemre]

Sheets("Resim5").Range("A1:M41").CopyPicture Appearance:=xlScreen, Format:=xlBitmap

Bu şekilde direkt sayfadan kopyalayıp yapıştırabilirsiniz.