Webページのスクショを取得しPDFに追加し保存する【Selenium Basic × ExcelVBA】

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

Dim driver As New Selenium.ChromeDriver

driver.AddArgument "headless"
driver.Get "https://vba.company/"

Dim w As Long
Dim h As Long

w = driver.ExecuteScript("return document.body.scrollWidth")
h = driver.ExecuteScript("return document.body.scrollHeight")

Stop

driver.Window.SetSize w, h

Dim pdf As New Selenium.PdfFile

With pdf

.AddText "aiueo"

.AddTitle "title"

.AddLink "https://vba.company/"

.AddText "kakikukeko"

.AddSpace 10

.AddText "sample"

.AddTextCenter "aiueo"

.AddImage driver.TakeScreenshot

'日付のファイル名用の文字列を用意する
Dim 日付 As String
日付 = Format(Date, "yyyymmdd")

Rem .Dispose

.SaveAs ThisWorkbook.Path & "\" & 日付 & ".pdf"

End With