Add screenshot feature

Author: DecimalTurn

.github/workflows/screenshot_demo.yml

@@ -0,0 +1,20 @@
+#Create a simple workflow to take a screenshot of the Windows worker's desktop
+name: Screenshot
+on:
+  workflow_dispatch:
+jobs:   
+  screenshot:
+    runs-on: windows-latest
+    steps:
+      - name: "Checkout"
+        uses: actions/checkout@v4
+      - name: "Take Screenshot"
+        run: |
+          # Take a screenshot of the Office application
+          . "./scripts/utils/Screenshot.ps1"
+          Take-Screenshot -OutputPath "Screenshot.png"
+      - name: "Upload Screenshot"
+        uses: actions/upload-artifact@v4
+        with:
+          name: "Screenshot"
+          path: "screenshot.png"

scripts/Build-VBA.ps1

@@ -156,6 +156,11 @@ $basFiles | ForEach-Object {
     }
 }
 
+# Take a screenshot of the Office application
+$scriptPath = Split-Path -Parent $MyInvocation.MyCommand.Path
+. "$scriptPath/utils/Screenshot.ps1"
+Take-Screenshot -OutputPath "${outputDir}Screenshot_${fileNameNoExt}.png"
+
 # Save the document
 $doc.Save()
 # Close the document

scripts/utils/Screenshot.ps1

@@ -0,0 +1,31 @@
+function Take-Screenshot {
+    param (
+        [Parameter(Mandatory=$true)]
+        [string]$OutputPath
+    )
+
+    Add-Type -AssemblyName System.Windows.Forms
+    Add-Type -AssemblyName System.Drawing
+
+    # Get the screen dimensions
+    $screen = [System.Windows.Forms.Screen]::PrimaryScreen
+    $bounds = $screen.Bounds
+
+    # Create a bitmap of the screen size
+    $bitmap = New-Object System.Drawing.Bitmap $bounds.Width, $bounds.Height
+
+    # Create a graphics object from the bitmap
+    $graphic = [System.Drawing.Graphics]::FromImage($bitmap)
+
+    # Copy the screen to the bitmap
+    $graphic.CopyFromScreen($bounds.X, $bounds.Y, 0, 0, $bounds.Size)
+
+    # Save the bitmap as a file
+    $bitmap.Save($OutputPath)
+
+    # Dispose of the objects
+    $graphic.Dispose()
+    $bitmap.Dispose()
+
+    Write-Host "Screenshot saved to: $OutputPath"
+}