vba - IEオートメーションVBA、sendkeysを使用したキーの即時送信の遅延

Question

Web ページが移動するたびにスクリーン ショットを取得し、VBA を使用して Word 文書に貼り付けるコードを作成しました。

例 printscreen を押すと、現在のスクリーンショットではなく、前回のスクリーンショットが貼り付けられます。私は遅延を行い、引数を真、偽にしようとしましたが、何も機能しませんでした。

これは私がClass1モジュールで試したことです:

Option Explicit
Dim WithEvents ie As InternetExplorer
Dim wordapp As Object
Dim wrdDoc As Object
Dim t As Date
Sub Example()
Set wordapp = CreateObject("word.Application")

wordapp.Visible = True
Set wrdDoc = wordapp.Documents.Add
Set ie = New InternetExplorer
ie.navigate "http://www.csee.wvu.edu/~riggs/html/select_example.html"
Do Until ie.readyState = READYSTATE_COMPLETE: DoEvents: Loop
test
End Sub
Private Function href_onclick() As Boolean

Application.SendKeys "{44}"
wordapp.Selection.Paste
End Function

モジュールで

Sub initialise()
Set ev = New Class1
ev.Example

End Sub

Answer 1

苦労してこの解決策を思いついた後、画像がクリップボードにロードされるまで3秒待つように貼り付けオプションを作成しました.... :) trueオプションを指定したsendkeysはまったく機能しません。