Dear All I want to ask where i can get a template for profesional presentation in the web ?

For example., I have a PowerPoint with more than 100 slides...
As per our standard we should use Arial Font... but somewhere some slide they are using other font also like "calibiri, times New roman, etc"...In this occurrence how to find that text via VBA PowerPoint presentation?

Note: My slides have Shape, Groupitem, Chats and Tables

I have many files created with PowerPoint 4.0 that cannot be opened with PowerPoint 2013.  This appears to be a known issue.  When trying to open the file, receive PowerPoint message: "PowerPoint can't open this type of file (...\filname.ppt)."  
Details of the message: "The selected file does not appear to be a valid Microsoft PowerPoint file. It might be a file created by a different program.
Try double-clicking the file in Windows Explorer to see if another program will open it. If PowerPoint opens again when you double-click the file in Windows Explorer, it is possible that the file is not a PowerPoint file but that its extension was renamed to be that of a registered PowerPoint file type (such as .ppt, .pptx, .pps, .ppsx, .pptx, .pot, or .potx) but the file is not a PowerPoint file.
To determine which program can open the file, try any of the following:
Contact the original author (if known) to find out which program was used to create this file. Then rename the file with the correct extension so that it can be opened by that program.
Try opening the file in other programs.
If you, or someone you know, are very knowledgeable about software, examine the file header in a text editor to determine which program can read the file.
Another possibility is that the file was damaged during transfer from another computer. Try transferring the file again.
The file might have become corrupted. If you have a backup copy of the file, use it. It is not possible repair a …

I'm building a new Windows 10 image, that image has Office 2016 on it, I have a number of custom PowerPoint templates that I need to add to PowerPoint so they would be available in the template list for all users in PowerPoint, is it possible to accomplish?

Thank you,

Sergey

I need to find a picture which was not have same scale of height and width in entire PowerPoint presentation..

For example: VBA code like this
loop for all "jpeg, emf, wmf, png, gif, bitmap" picture files in entire presentation
check the "scale height and scale width" are equal are not
if equal, exit
if not equal, give a red outline for that picture and display count of picture which was outline and the slide no

Hi expert,

I had a bunch of macros in PowerPoint macro enabled presentation 2010

How to create a PowerPoint Add-ins file for all my macros in a single ribbon with my custom icons.

Kindly Please Help me...

Hi Expert,

We are working in PowerPoint with huge of slides...

I am trying to check at end of the all bulleted points have Period, colon, Semicolon, and Comma are there or not. if it is there means I need to highlight that one via VBA... (because as per our standards we should not kept any puntuvation at end of the bullet points, this was very painful while doing quality control)

is it possible to do via VBA PowerPoint?
kindly any expert help me...

I would like to Find the word {"keyword", "second", "third", "etc"} and highlight in Bold or yellow on all slide of the ppt. In shape, groupitem, table, chart, notespage etc. A below code works only in shape.

Could you please help me to modify the below code to work also in table, smartart, chart, notepage etc..

option Explicit

Sub HighlightKeywords()
Dim sld As Slide
Dim shp As Shape
Dim txtRng As TextRange, rngFound As TextRange
Dim i As Long, n As Long
Dim TargetList

'~~>  Array of terms to search for
TargetList = Array("keyword", "second", "third", "etc")

'~~> Loop through each slide
For Each sld In Application.ActivePresentation.Slides
'~~> Loop through each shape
For Each shp In sld.Shapes
    '~~> Check if it has text
    If shp.HasTextFrame Then
        Set txtRng = shp.TextFrame.TextRange

        For i = 0 To UBound(TargetList)
            '~~> Find the text
            Set rngFound = txtRng.Find(TargetList(i))

            '~~~> If found
            Do While Not rngFound Is Nothing
                '~~> Set the marker so that the next find starts from here
                n = rngFound.Start + 1
                '~~> Chnage attributes
                With rngFound.Font
                    .Bold = msoTrue
                    .Underline = msoTrue
                    .Italic = msoTrue
                    '~~> Find Next instance
                    Set rngFound = txtRng.Find(TargetList(i), n)
                End With
     …

hi, How can you set the office templates to be the default when you open powerpoint instead of Featured? Also, how can you remove featured templates completely from the list? apart from the blank template?

thanks

Dear Experts,

I have a user which started to have an issue with opening ppt files this week over vpn.
The strange thing is it's only happening with ppt files, pptx are opening fine.
If I copy the ppt file from the Shared drive to the desktop it takes 3-4 Seconds to copy and around 10 seconds to open.
If I open the same ppt file directly from a network share it takes around 3-4 Minutes to open or Powerpoint is even crashing.
The same files are opening fast when on the Office network.
I'm running out of ideas what could be the issue.
I tried the following until now:

- repair office
- Adjust MTU of the Wifi adapter
- start Powerpoint in safe mode
- disable all Add-ins
- Add network share in the trust center to trusted locations (including subfolders)

It's still the same after all this.

the following is used:
- Windows 7 64 Bit
- Office 2013
- Cisco Anyconnect

Best Regards and many thanks in advance for any input,

Patrick

I am trying to get the attached “Section Exclusion Manager” to work for Powerpoint. The idea is to open a Powerpoint file that contains sections, save a user-defined copy of that file, display the section names and starting page numbers of the copy in the first picklist, move selected sections from that picklist to the second picklist, and then delete those sections from the file.

I have the code working for saving a copy in the same directory as the source and reading the section data into an array, but cannot get the first picklist to read and display that array (in Sub PopulateSourceList). Since I can’t do that, I can’t get the user selections to display in the second picklist, nor to then delete the sections from the copy. Have some code attempts to display sections in the picklist but they're not working. Can someone help with these three functions?

 Userform, code and sample source file (with sections) are attached as ‘Section Exclusion Manager PowerPoint (Test July 6 2017)’ and ‘PowerPoint Section Test’.
Section-Exclusion-Manager-PowerPoint.ppt
PowerPoint-Section-Test.pptx

When I have a PowerPoint file open... using two screens
And hit F5 so the Show runs...
I see a "timer" running in top left of screen?
Is that a countdown to the slide changing?
Or a count of how long it HAS been running.

I do NOT want it to change automatically.  This is manual click only