- Katılım
- 1 Ağustos 2019
- Mesajlar
- 839
- Excel Vers. ve Dili
-
Türkçe excel 2016
İngilizce excel 2016
- Altın Üyelik Bitiş Tarihi
- 19-10-2021
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
Kod:
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