| param( | |
| [Parameter(Mandatory=$true)] | |
| [string]$PackageName | |
| ) | |
| Write-Host "Starting installation process for $PackageName..." | |
| # Check Claude Desktop folder | |
| Write-Host "Checking Claude Desktop installation..." | |
| $claudeFolder = Join-Path $env:APPDATA "Claude" |
| // ! The ColorTehemeProvider must be wrapped with <ThemeProvider /> using next-themes to be able to work with light and dark themes | |
| "use client"; | |
| import { createContext, useContext, useEffect, useMemo, useState } from "react"; | |
| // To add more themes: | |
| // add css variables to app/globals.css. With the format '.className.light' and '.className.dark'. | |
| // Then add the className to this THEMES array | |
| const THEMES = [ |
| Sub InsertAllSlides() | |
| ' Insert all slides from all presentations in the same folder as this one | |
| ' INTO this one; do not attempt to insert THIS file into itself, though. | |
| Dim vArray() As String | |
| Dim x As Long | |
| ' Change "*.PPT" to "*.PPTX" or whatever if necessary: | |
| EnumerateFiles ActivePresentation.Path & "\", "*.PPTX", vArray |
export a Powerpoint presentation to JPEG images, one per slide. Used as a workaround to the broken JPEG export in Powerpoint itself, which yields only low quality images.
You can adjust the image resolution by varying the numerical argument in line 46, in the call to ExportSlides.
Just drag and drop one or more PPT or PPTX files onto the vbs script. The script will process each, showing a short message, and
