twitera resim ekleme

[ankara34]

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

 

[ankara34]

konu güncel arkadaşlar ,

fikir verebilecek olan kimse yok mu ?