エクセルからツイートを画像付きで出力するようなマクロは組めないでしょうか？

Message#1 2014年9月11日(木)09時50分
From: i

こんにちわ、ブログの読者で浅井と申します。

twitterの記事についてなのですが、エクセルからツイートを画像付きで出力す
るようなマクロは組めないでしょうか？

自分なりにマクロをくんでみたのですが画像ナシでのツイートは可能でした。

画像付きで行おうとしたところ、画像のパスを入力しエンターを押すことががで
きませんでした。

ご教授していただけたら幸いです。

'画像つき挑戦
Sub useform2333()

Dim form As HTMLFormElement

Dim ie As InternetExplorer
Dim button As HTMLInputElement
Dim txtAreaput As HTMLTextAreaElement

Set ie = CreateObject("internetExplorer.Application") 'IEを開く○
ie.Visible = True
ie.Navigate "https://twitter.com" 'ツイッターを開く○

Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE 'ページの読
み込みを待つ○
DoEvents
Loop

Range("A2").Select '画像ファイルのセルをコピー○
Selection.Copy

For Each button In ie.Document.getElementsByTagName("button") '
ボタンをクリックしフォームを呼び出す
If button.Type = "button" And button.ID =
"global-new-tweet-button" Then
button.Click
Exit For
End If
Next

'ツイート処理開始
Sleep 1000

SendKeys "ららららら" '画像ファイルのパスをペーストしエンター×効か
ない？？
Sleep 1000
SendKeys "{TAB}{LEFT}{LEFT}" '選んでいる状態だとボタンクリックがう
まくいった

For Each button In ie.Document.getElementsByTagName("input") '
ボタンをクリックしフォームを呼び出す
If button.Name = "media_empty" Then
button.Click
Exit For
End If
Next
Sleep 500

SendKeys "^V" '押すことができない

Sleep 100
Sleep 1000

SendKeys "{ENTER}" 'もちろん押せない

'ツイートボタンを押す処理

End Sub