- Katılım
- 9 Eylül 2021
- Mesajlar
- 94
- Excel Vers. ve Dili
- 365TR
selamlar ,
alttaki kodu yazıyorum.
twiter web sayfasını açıyor,
yeni twitır göndermek için pencereyi açıyor.
ama sanrım ^+V send key çalışmıyor. ( neden send key çalışmıyor)
manuel cntrl+v tuşuna kendim basınca resmi yapıştırıyor
nerde hata yapıyor olabilirim ?
yardımcı olabilirseniz sevinirim ..
Sub tw()
Dim resimyolu As Variant
Dim resim As Object
resimyolu = "C:\Users\sami\Desktop\okul.png"
Set resim = ActiveSheet.Pictures.Insert(resimyolu)
resim.Copy
ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home"
Application.Wait (Now + TimeValue("00:00:15"))
Call SendKeys("n", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("^+V", True)
Application.Wait (Now + TimeValue("00:00:05"))
End Sub
alttaki kodu yazıyorum.
twiter web sayfasını açıyor,
yeni twitır göndermek için pencereyi açıyor.
ama sanrım ^+V send key çalışmıyor. ( neden send key çalışmıyor)
manuel cntrl+v tuşuna kendim basınca resmi yapıştırıyor
nerde hata yapıyor olabilirim ?
yardımcı olabilirseniz sevinirim ..
Sub tw()
Dim resimyolu As Variant
Dim resim As Object
resimyolu = "C:\Users\sami\Desktop\okul.png"
Set resim = ActiveSheet.Pictures.Insert(resimyolu)
resim.Copy
ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home"
Application.Wait (Now + TimeValue("00:00:15"))
Call SendKeys("n", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("^+V", True)
Application.Wait (Now + TimeValue("00:00:05"))
End Sub