|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Slide Library function: howto easily find/access/view slides across multiple presentations
I have a lot of presentations and have lost overview of my slides:
I wonder, if there is a solution for reviewing and accessing slides across several presentations. Such is a function is often called Slide Library: - PowerPoint 2016 hat a function to export and share several slide locally, but PP 2021 has lost this option. - Agent Ransack is a Meta Search application, which can search for key words across several files including PowerPoint presentations. - SimplyZoom Home Edition is creating minature views of slides and let you view and search across multiple presentations. The Home version was once available free for home use, but is not available any more. Any other suggestions ? |
#2
|
|||
|
|||
VBA Macro for export of slides from PowerPoint to Excel
In the meanwhile I have tasked GPT to write me a macro:
Export of Slides from PowerPoint into Excel Table Author: Bodo Heiss Date: May 2023 Infrastructure: Office 2021, Windows 10, ChatGPT 3.5 With ChatGPT I have created the macro enclosed: The task I formulated was: “How can I create an excel table with title, name of presentation and miniature view of slide across all slides and presentations in PowerPoint? It took about 10 iterations, where I fed back error messages until I finally arrived with a macro that ran without errors. Only slides in an open PowerPoint presentation will be analysed. To establish the macro do as follows in PowerPoint and copy the following macro into the editing window: 1. Open your PowerPoint presentation and press ALT + F11 to open the VBA Editor. 2. In the VBA Editor, click on "Insert" and choose "Module" to create a new module. Sub CreateSlideIndex() Dim PowerPoint As Object Dim pptPres As Object Dim pptSlide As Object Dim Excel As Object Dim excelApp As Object Dim excelWb As Object Dim excelWs As Object Dim row As Long Dim col As Long ' Create PowerPoint and Excel instances Set PowerPoint = CreateObject("PowerPoint.Application") Set Excel = CreateObject("Excel.Application") ' Open Excel workbook and set worksheet Set excelWb = Excel.Workbooks.Add() Set excelWs = excelWb.Worksheets(1) ' Set column headers excelWs.Cells(1, 1).Value = "Title" excelWs.Cells(1, 2).Value = "Presentation" excelWs.Cells(1, 3).Value = "Slide" excelWs.Cells(1, 4).Value = "Thumbnail" row = 2 ' Start at row 2 for data ' Loop through each PowerPoint presentation For Each pptPres In PowerPoint.Presentations ' Loop through each slide in the presentation For Each pptSlide In pptPres.Slides ' Get slide title Dim titleText As String If pptSlide.Shapes.HasTitle Then titleText = pptSlide.Shapes.Title.TextFrame.TextRange.Text Else titleText = "Untitled" End If ' Add data to Excel worksheet excelWs.Cells(row, 1).Value = titleText excelWs.Cells(row, 2).Value = pptPres.Name excelWs.Cells(row, 3).Value = pptSlide.slideIndex ' Save slide thumbnail to temp folder pptSlide.Export Environ("TEMP") & "\thumbnail.jpg", "jpg" ' Insert thumbnail into Excel worksheet Dim bodyShape As Object Set bodyShape = excelWs.Shapes.AddPicture(Environ("TEMP") & "\thumbnail.jpg", False, True, 0, 0, 75, 50) With bodyShape .Left = excelWs.Cells(row, 4).Left .Top = excelWs.Cells(row, 4).Top .Placement = 1 End With row = row + 1 ' Move to next row for next slide Next pptSlide Next pptPres ' Auto-fit columns excelWs.Columns.AutoFit ' Make Excel visible Excel.Visible = True ' Clean up Set PowerPoint = Nothing Set pptPres = Nothing Set pptSlide = Nothing Set Excel = Nothing Set excelApp = Nothing Set excelWb = Nothing Set excelWs = Nothing End Sub |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Powerpoint 2016 slide show presenter view as powerpoint 2010 multiple slides at the bottom | jomo252 | PowerPoint | 0 | 10-04-2017 12:20 PM |
Create multiple slides from list of slide titles | Roscoe2016 | PowerPoint | 3 | 02-02-2016 06:11 PM |
Two slides merge or view easily easy they are linked to each other | Rajeev Saini | PowerPoint | 1 | 08-22-2014 06:56 AM |
Is there a function to easily and quickly highlight? | Verbum | Word | 3 | 02-05-2013 10:09 AM |
link common slides in multiple presentations | robtho | PowerPoint | 1 | 06-24-2011 12:55 AM |