Microsoft PowerPoint

PowerPoint is a slide show presentation program currently developed by Microsoft. PowerPoint presentations consist of a number of individual pages or "slides" that may contain text, graphics, sound, movies, and other objects, which may be arranged freely. The presentation can be printed, displayed live on a computer, or navigated through at the command of the presenter. Slides can also form the basis of webcasts.

Share tech news, updates, or what's on your mind.

Sign up to Post

To have macro to list down the titles of each slides in the ppt with option to start with a slide number to end with a slide number.

Meaning if there are 60 slides:
Slide 1 = the cover page
Slide 2 = Content Page
Slide 3 = Title 1
Slide 4 = Title 2
Slide 5 = Title 5
and so on

Thus macro will run and ask: "Starting Slide No" and I input 3   (OK | Cancel)
"Ending Slide No" and I input 55

The result would be to list out the titles from Slide 3 to Slide 55 and output these titles in the same sequence in the last slide.

If no cancel, then do nothing.

The idea is to get a list of all the titles and then try to see what was missed out etc and then use it to re-organise into a content slide.
Hi Expert,

One noob question, how I check how to turn off hyphenation in powerpoint 2016? I google it have cant find the tool menu.

Appreciate it if any expert assist me on.

Is it possible to detect the end of a slide show in a PowerPoint ppsm file and have VBA code run until the PowerPoint instance is terminated?

For example, if I add these CLS_Events class and standard module:


Option Explicit

Public WithEvents App As Application

Private Sub App_SlideShowEnd(ByVal Pres As Presentation)
  MsgBox "SlideShowEnd"
End Sub

Open in new window


Option Explicit

Public oEH As New CLS_Events

Public Sub InitApp()
  Set oEH.App = Application
End Sub

Open in new window the InitApp procedure and then save as a ppsm, the result is an error: "Sub or function not defined."

This is essentially a question about what order things unload.
I can't figure out how to get powerpoint to use a template.  From the various sites i've seen, either it shows new -> custom or selecting template from the drop down list and will go to the template folder.  Not for me.  Selecting template from the file type list just filters in the current folder (documents).  There is no featured or custom options in new from screenshots i've seen.  Searching google goes nowhere.  Many results talk about how to create a template or add a template to existing presentation or how to create a theme.  I'm probably missing something simple.  Tried a couple different machines with the same result.  Office 2019 on windows 10.

I am writing some PowerPoint VBA code in a userform that loads an programmatically exported image of the current slide.

It's working as expected, but only when the VBE is open!

If I close the VBE, the userform loads and as it reaches the followng line, VBA appears to crash (variables are reset) without raising any error and hence the userform disappears.

ActiveWindow.View.Slide.Export "C:\Temp\thumb.jpg", "JPG", 960, 540

Open in new window

The userform is loaded via a customUI ribbon onAction callback.

If I close the VBE and load the userform by calling a public macro via Alt+F8, it works as expected.

I have a diffferent userform (shown on an application event) which uses the same method above without issue so I rebuilt the userform exhibiting the behaviour but the issue persists.

I then built a really simple project with a single userform containing a single image control and this code:

Private Sub UserForm_Initialize()
  ActiveWindow.View.Slide.Export "C:\Temp\thumb.jpg", "JPG", 960, 540
  Me.Image1.Picture = LoadPicture("C:\Temp\thumb.jpg")
End Sub

Open in new window

It loads from this test macro, and the ribbon callback, with the VBE is closed/open:

Public Sub LoadTestForm()
End Sub

Public Sub OnAction(control As IRibbonControl)
End Sub

Open in new window

What is going on?
Dell Laptop on a docking station.

Anytime Microsoft PowerPoint slideshow is started - screen goes black.

Docking station is from Dell also.,

Intel graphics card on this Dell laptop is of the latest version. Laptop resolution set to recommended level.

Any ideas?
What to look for in Office 365 logs that can tell you if a PowerPoint file failed to save?
If a PowerPoint files failed to save, where should I look in the Office 365 logs to get a record of the action: the file did not save?
If a PowerPoint files failed to save, can I enable logging in PowerPoint 365 similar to  Microsoft Outlook 365?
How do you determine what programs are using the PowerPoint resources, for instance, the PowerPoint executable?
I need a way to know what program is monitoring or using PowerPoint processes, such as an antivirus software.
If I open Microsoft Word  and Excel and perform a function that requires PowerPoint, how can I confirm that Word and Excel is using PowerPoint?
I believe you call them apps. Is there a charts  apps located within Microsoft Teams that has the ability to integrate with PowerPoint 365?
Is there a  Microsoft Teams app that has the ability to create charts in PowerPoint?
If I edit a PowerPoint file via Microsoft Teams, and I decided to add a chart, what app should I use?
I need to be able to tell what a PowerPoint add-in is doing, what program is best to use?

Should I use Process Explorer ( to tell what an add-in is doing?
Or should I just use Windows Task Manager on Windows 10?
Should I look for events in Event Viewer, that would tell me what the add-in is doing?

For instance, does the add-in auto update when it is connected to the Internet?
Is it collecting analytical data?
Does it running diagnostic when in use?
Does the add-in self heal?

Would something like WireShark provide me with the answer I need?
Ok.  Is there a way to show how much points are accumulated when I click on the right answer (in any order).

For example, if I click on the number "9" a score of  1/10 appears, the number "7" a score of 2/10 appears, etc, but if I click on  the same correct answer, nothing happens or a beep sound).
How do you know there is a problem with the PowerPoint Slide Master?
For instance, when someone sends a PowerPoint file to a co-worker, they cannot open it.
I suspect the problem is with the PowerPoint Slide Master, since when I imported the file into another PowerPoint file, without importing the theme, I was able to save the file quicker, and before it took about five minutes.
If I create a one slide blank presentation, add a single shape to slide 1 and then add a Fill Color animation effect to that shape, the resulting behaviors are set as follows:

ActivePresentation.Slides(1).TimeLine.MainSequence(1).Behaviors(1).Type = msoAnimTypeColor
ActivePresentation.Slides(1).TimeLine.MainSequence(1).Behaviors(2).Type = msoAnimTypeSet
ActivePresentation.Slides(1).TimeLine.MainSequence(1).Behaviors(3).Type = msoAnimTypeSet

Open in new window

If I then try to read the .SetEffect.Property for the 2nd behaviour I get an error:

-2147467259: SetEffect (unknown member) : Failed.

Open in new window

I want to be able to read this property so that I can copy it to another object's animation effect

How can I do this, referring to this Microsoft article?
Hi there,

Is there any database wherein I can get addin for more smart art graphics which are presentable  and should be free of cost.

Thanks in anticipation

I have the below code which saves my powerpoint in pdf format . However I am looking to punch a water mark of the below mentioned details.

If its possible please help me to incorporate the code.


TOP- 242
WIDTH- 363



RGB 159 159 159


Sub PowerPointExportPDF()

Dim CurrentFolder As String
Dim FileName As String
Dim myPath As String
Dim UniqueName As Boolean

UniqueName = False

  myPath = ActivePresentation.FullName
  CurrentFolder = ActivePresentation.Path & "\"
  FileName = Mid(myPath, InStrRev(myPath, "\") + 1, _
   InStrRev(myPath, ".") - InStrRev(myPath, "\") - 1)

  Do While UniqueName = False
    DirFile = CurrentFolder & FileName & ".pdf"
    If Len(Dir(DirFile)) <> 0 Then
      UserAnswer = MsgBox("File Already Exists! Click " & _
       "[Yes] to override. Click [No] to Rename.", vbYesNoCancel)
      If UserAnswer = vbYes Then
        UniqueName = True
      ElseIf UserAnswer = vbNo Then
            FileName = InputBox("Provide New File Name " & _
             "(will ask again if you provide an invalid file name)", _
             "Enter File Name", FileName)
            If FileName = "False" Or FileName = "" Then Exit Sub
        Loop While ValidFileName(FileName) = False
        Exit Sub
      End If
      UniqueName = True
    End If


Open in new window

Dear All

             i,m getting below popup when installing language pack from powerpoint to convert traditional to simplified, any idea ?



Dear Team,

Please help me with writing code . I have text on title content placeholder having "Font :Franklin Gothic Demi" and "Size 40" on each slide which I need to change with

 "Font :Franklin Gothic Demi" , "Size 25", "Small Caps" Through out the ppt.

The same placeholder is to aligned having (left 36, Top 23 & Height 38) and width may vary depending on the longevity of text in all slides

the layout consists of 2 placeholder one is Title and other is content


Dilpreet Singh
Dear Team,

I have some significant macros that are to be added in power point as an addin for future reference and Tried to save a ppt with added modules and codes as power point addin. But I am not able save the addin and activate it. Please help me with the procedure to create an addin of customized codes.

I am using microsoft office professional plus 2016, 64-Bit operating system and windows 10 pro.

Dilpreet Singh
I have issolated a infinite loop hang condition in PowerPoint when using the Windows APIs to set up a keyboard hook.

The code below includes the following procedures:

1. SetHook
2. GetPPTHandle
3. KeyHandler
4. UnHook

To reproduce the hang condition, do the following:

1. Run SetHook
2. Press the Ctrl key and confirm "CTRL" appears in the Immediate Window
3. Put a break point on the first line of each procedure
4. Switch to PowerPoint and click the Design tab followed by the dropdown in the Variants group followed by Colors / Customize Colors
5. Press any key while the cursor is in the Name field and PowerPoint enters an infinite loop. You an see "Running" flash in the VBE title bar but no code breakpoints are hit

Task Manager now need to be used to kill PowerPoint.

What is going on and how can I avoid this?

Option Explicit

Private Const MSG_TITLE = "Test"

#If VBA7 Then
  Public Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As Long
  Public Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _
                                          ByVal idHook As Long, _
                                          ByVal lpFn As LongPtr, _
                                          ByVal hmod As LongPtr, _
                                          ByVal dwThreadId As Long) As LongPtr
  Public Declare PtrSafe Function CallNextHookEx 

Open in new window

Screenshots taken using windows snipping tool are blurry when used in other media (PowerPoint, Word, etc)  Text is particularly bad and sometimes unreadable.
Is there a foolproof method to have screen capture faithfully represent the original?
I have an application add-in that's increased the number of callbacks at runtime to the point where there is a noticeable UI latency creeping in. This is because the ribbon is invalidated when the user selection changes to enable/disable various features but of course, in addition to the getEnabled callback, all assigned callbacks in the customUI are unnecessarily executed.

In order to see where I could optimise this, I'm trying to time how long the total set of callbacks take to execute when the ribbon is invalidated.

I've read online that the firing order of callbacks is "internal to Microsoft" and can't be relied on and I have noticed this whereby the getLabel and getVisible callbacks fire in different orders if running from the source code file or the published add-in.

So I can't easily see which callback event is the first and which is the last to execute and hence can't time the flow.

Starting a timer using the GetTickCount API at the beginning of the onLoad callback doesn't work either due to the nature of callbacks.

So how can I go about timing the total execution time for all callbacks?
Power Point does not respond when saving to DropBox, via the desktop application.
Can save to the local computer OK, with a Power Point file.
Currently performing a full repair of Microsoft Office 365 on Windows 10 version 1703.
Note: I could not close PowerPoint with task manager when it is frozen.
Dropbox version
Dropbox on demand version

The Dropbox crash reports folder is empty.
I have an Office VBA add-in that's causing a problem with one issolated user amongst many others that are not experiencing the the same issue. I've issolated it to the Windows API Sleep function.

This is the declaration I'm using, the 64 bit version coming from official Microsoft documentation (I also tried LongLong instead of Long):

#If VBA6 Then
  ' from Microsoft's Win32API_PtrSage.txt
  Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Open in new window

When trying to call this with this example in the same module:

Public Sub TestSleep()
    Sleep 1000
End Sub

Open in new window

This particular user sees this error message:

"453 Can't find DLL entry point Sleep in kernel32"

They are using Office 2016, 32 bit (build 10730) on Windows 10, 64 bit and I have had them check the version of the kernel32.dll which is 10.0.16299.1029, 3/6/2019 (my PC has 10.0.1734.648, 06/03/2019)

What can I do now to establish the cause of the issue and fix it?
Hi experts!

I doubt you can help but it can't hurt. Whenever I create a column chart in Powerpoint the labels are positioned well but as soon as I change the chart type to 3D the labels are too low and you can't read them. I normally have to manually click on and move each label above each column, which is a nightmare when I have twenty of them. Any solutions you  can think of? Ideally I'd love to use VBA but I don't think you can use it on charts.
I'm facing an issue on Powerpoint 365 on MAC is crashed from time to time,

Microsoft PowerPoint

PowerPoint is a slide show presentation program currently developed by Microsoft. PowerPoint presentations consist of a number of individual pages or "slides" that may contain text, graphics, sound, movies, and other objects, which may be arranged freely. The presentation can be printed, displayed live on a computer, or navigated through at the command of the presenter. Slides can also form the basis of webcasts.