先日以下の記事で、スクリーンショットを撮るたびに自動でシートに張り付けるマクロを紹介した。 thom.hateblo.jp 割とうまくいったのだが、実行中にタスクバーから他のExcelへ切り替えができないことが判明した。 サーバー管理業務でマニュアルがExcelで作られているものがあるので、Excelを閲覧しながら作業できない点はつらい。 また、ActiveSheetに張り付けしているため、別のシートがActiveになっていると意図しないところに張り付いてしまう。 終了させるためにセルにExitと書く点もあまりイケてない。 今回はそのあたりを改良したマクロを作成した。 コード Declare Function OpenClipboard Lib "user32" (Optional ByVal hwnd As Long = 0) As Long Declare Function Close
![VBA 改良版 スクリーンショットを撮るたびに自動でシートに張り付けるマクロ ~ OnTimeによる恒常ループ - t-hom’s diary](https://cdn-ak-scissors.b.st-hatena.com/image/square/f0822b6a4e8b2ec5a41336f13d7e3c2a410e365e/height=288;version=1;width=512/http%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Ft%2Ft-hom%2F20151129%2F20151129120653.png)