Excel VBA 質問スレ Part65

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ 3bda-drwQ) 2020/03/17(火) 16:27:20.88 ID:hh8LiIgR0]

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part64
https://mevius.5ch.net/test/read.cgi/tech/1575297834/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[2 デフォルトの名無しさん (ﾜｯﾁｮｲ 2eef-drwQ) 2020/03/17(火) 18:15:02.25 ID:xIJjSw0m0]

>>1乙

[3 デフォルトの名無しさん (ﾜｯﾁｮｲ 4d7c-9blg) 2020/03/17(火) 19:24:51.48 ID:+T54gcvp0]

>>1乙

>全スレ998
挿入か貼り付けかはっきりしてくれ

[4 デフォルトの名無しさん (ﾜｯﾁｮｲ 2eef-drwQ) 2020/03/17(火) 21:26:48.27 ID:xIJjSw0m0]

行をコピーして挿入操作
マクロ記録したら、Selection.Copy Selection.iIsert Shift:=xlDown が出てきたけど普通に再生できたぞ

[5 デフォルトの名無しさん (ﾜｯﾁｮｲ 4901-hdmr) 2020/03/18(水) 04:12:39.20 ID:oTsktMrB0]

VBAからインターネットエクスプローラーを起動して、
指定したURLのサイトを表示して、
スクリーンショットを取って行く。
という作業を自動化したくて色んなサイトのコードをコピペして、
一応動くものは出来たのですが画質が悪いです。
下記はそのコードの一部分なんですが、どこをどういじれば
画質が良くなるのでしょうか。

Private Declare PtrSafe Sub keybd_event Lib "user32" ( _
　ByVal bVk As Byte, _
　ByVal bScan As Byte, _
　ByVal dwFlags As Long, _
　ByVal dwExtraInfo As Long)

・・・

　keybd_event &HA4, 0&, &H1, 0&
　keybd_event vbKeySnapshot, 0&, &H1, 0&
　keybd_event vbKeySnapshot, 0&, &H1 Or &H2, 0&
　keybd_event &HA4, 0&, &H1 Or &H2, 0&

[6 ５ (ﾜｯﾁｮｲ 4901-hdmr) 2020/03/18(水) 05:01:35.56 ID:oTsktMrB0]

プラウザのウィンドウサイズを大きくした後で画面キャプチャしたら
満足の行く画質になりました。
>>5の質問は撤回します。

[7 デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMd3-UDK1) 2020/03/18(水) 12:15:49.12 ID:w6Ggs+SYM]

>>4
まじすか
コピー元が別ブックだったのでそのせいかも