Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 05-03-2023, 05:49 AM
bheiss bheiss is offline Slide Library function: howto easily find/access/view slides across multiple presentations Windows 10 Slide Library function: howto easily find/access/view slides across multiple presentations Office 2021
Novice
Slide Library function: howto easily find/access/view slides across multiple presentations
 
Join Date: May 2023
Posts: 2
bheiss is on a distinguished road
Default 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 ?
Reply With Quote
  #2  
Old 05-04-2023, 10:32 AM
bheiss bheiss is offline Slide Library function: howto easily find/access/view slides across multiple presentations Windows 10 Slide Library function: howto easily find/access/view slides across multiple presentations Office 2021
Novice
Slide Library function: howto easily find/access/view slides across multiple presentations
 
Join Date: May 2023
Posts: 2
bheiss is on a distinguished road
Default 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
Reply With Quote
Reply

Thread Tools
Display Modes


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
Slide Library function: howto easily find/access/view slides across multiple presentations Is there a function to easily and quickly highlight? Verbum Word 3 02-05-2013 10:09 AM
Slide Library function: howto easily find/access/view slides across multiple presentations link common slides in multiple presentations robtho PowerPoint 1 06-24-2011 12:55 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:52 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft