LS000022_GoogleChromeのウィンドウサイズを最小にする

GoogleChromeのウィンドウサイズを最小にする LesserScraping

このページで紹介するメソッド

ウィンドウを最大化するメソッドがある以上、最小化するメソッドも用意されています(※私は使用したことがないですが・・)。操作中ではないウィンドウを隠したり、逆に操作過程を見えなくしたりに使えるかもしれません。このページではExcelVBA(マクロ)によって自動で開かれたGoogleChrome(以下chrome)のウィンドウを最小化する「MinimizeWindow」メソッドについて解説します。

事前準備(LesserScraping)

chromeのプロファイルを作成済、かつ「LesserScraping」というクラスが用意されていることを前提に解説をすすめますが、何を言っているかわからないよという方は、まず初回記事を読んでください。

引数

このメソッドには引数はありません。

サンプルコード(クリックでコピー)

Private Sub Test_LesserScraping_MinimizeWindow()
Dim Driver As LesserScraping: Set Driver = New LesserScraping
Call Driver.Start
Call Driver.NavigateTo("https://funcref.com/lesserscraping/", 1500)
Call Driver.MinimizeWindow
Set Driver = Nothing
End Sub

【結果】ウィンドウを最小化することができました

上記のサンプルコードを実行すると、chromeが自動で立ち上がり当サイトの「LesserScraping」紹介ページへ遷移し、画面サイズを最小化します。

業務用PCでスクレイピングするなら「LesserScraping」

業務用PCでExcelVBA(マクロ)からWebスクレイピングをしようとすると「Selenium Basic」の導入でつまずく方は多いです。当サイトでは劣化版Selenium Basicと呼べる「Lesser Scraping」を開発し無償で公開しています。

 

Comment