update,

task1/task1-ticket1/_ref/Excel/Examples/usage_screenshot.bas

@@ -0,0 +1,69 @@
+Attribute VB_Name = "usage_screenshot"
+
+Private Sub Take_ScreenShot_Content()
+  Dim driver As New ChromeDriver
+  driver.Get "https://en.wikipedia.org/wiki/Main_Page"
+  
+  'take a screenshot of the page
+  Dim img As Image
+  Set img = driver.TakeScreenshot()
+  
+  'save the image in the folder of the workbook
+  img.SaveAs ThisWorkbook.Path & "\sc-content.png"
+  
+  driver.Quit
+End Sub
+
+
+Private Sub Take_ScreenShot_Element()
+  Dim driver As New ChromeDriver
+  driver.Get "https://en.wikipedia.org/wiki/Main_Page"
+  
+  'take a screenshot of an element
+  Dim img As Image
+  Set img = driver.FindElementById("mp-bottom").TakeScreenshot()
+  
+  'save the image in the folder of the workbook
+  img.SaveAs ThisWorkbook.Path & "\sc-element.png"
+  
+  driver.Quit
+End Sub
+
+
+Private Sub Take_ScreenShot_Element_Highlight()
+  Const JS_ADD_YELLOW_BORDER = "window._eso=this.style.outline;this.style.outline='#FFFF00 solid 5px';"
+  Const JS_DEL_YELLOW_BORDER = "this.style.outline=window._eso;"
+  
+  
+  Dim drv As New ChromeDriver
+  drv.Get "https://en.wikipedia.org/wiki/Eurytios_Krater"
+  Set ele = drv.FindElementById("searchInput")
+  
+  ' Apply a yellow outline
+  ele.ExecuteScript JS_ADD_YELLOW_BORDER
+  
+  ' Take the screenshot
+  Set img = drv.TakeScreenshot()
+  img.SaveAs ThisWorkbook.Path & "\sc-element-highlight.png"
+  
+  ' Remove the outline
+  ele.ExecuteScript JS_DEL_YELLOW_BORDER
+  
+  drv.Quit
+End Sub
+
+
+Private Sub Take_ScreenShot_Desktop()
+  Dim utils As New utils
+  Dim driver As New ChromeDriver
+  driver.Get "https://en.wikipedia.org/wiki/Main_Page"
+  
+  'take a screenshot of the desktop
+  Set img = utils.TakeScreenshot()
+  
+  'save the image in the folder of the workbook
+  img.SaveAs ThisWorkbook.Path & "\sc-desktop.png"
+  
+  driver.Quit
+End Sub
+