Microsoft PowerPoint

3K

Solutions

30

Articles & Videos

4K

Contributors

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

I had this question after viewing VBA to change source of links in PowerPoint.

I tried this code in PowerPoint 2013 but it doesn't seem to word there, any suggestion of how can we link all the links to a different Excel file or folder?
0
Enroll in June's Course of the Month
LVL 9
Enroll in June's Course of the Month

June's Course of the Month is now available! Every 10 seconds, a consumer gets hit with ransomware. Refresh your knowledge of ransomware best practices by enrolling in this month's complimentary course for Premium Members, Team Accounts, and Qualified Experts.

Hi,

Is it possible to share a Goole slide deck with someone and force it full screen?

I don't want the viewer to see the thumbs slides on the side and I need to make sure it is viewed in presentation mode, otherwise the deck will not make sense as i have several images and text that need to animate over each other. If you it view it without 'Presenation' mode, the graphics and text and all mumbled on top of each other.

Thanks in advance for your help.
0
Using PowerPoint 2010, I'm writing a macro to mimick PowerPoint's "compress pictures" function.  From everything I've read, there is no method for this in VBA so I'm using SendKeys.  Through experimenting, I learned that 1) A shape must be selected before you can invoke the Compress Pictures dialog, 2) The dialog will only present compression options smaller than the select picture, 3) if you un-check "Apply only to this picture" the command will also compress slide background images (which is what I want) .

So to make this work under all conditions, my approach is to add a small 300 dpi .jpg to the current slide, select it, call the dialog, uncheck "Apply only to this picture," set the compression level, and enter to execute.  See CompressPictures150 macro below.  Works great.

I realized that some users may not think their file size has been shrunk enough, so they might want to compress again, from 150 down to 96dpi. So I wrote an identical macro except it chooses email (%e) resolution.  Most users will use the 150, save as, then realize they want to go further, so with the 150 version still open they will run the Compress96 macro and save that.  But the second macro doesn't shrink the presentation size at all.  

By inserting a MsgBox and looking at the state of the Compress Pictures dialog, I was able to figure out why.  When you run the first macro, if compression has not already been done on this deck, the dialog defaults with the "Apply only" box checked, so …
0
We've recently published a new corporate PowerPoint template.  Our user base is mixed 2010, 2013, and 2016.  Our designers in their wisdom chose two Google fonts (which most people outside our company do not have installed) as the main header and body fonts. So we are forced by default to use PowerPoint's embed fonts feature to ensure that our clients will see the presentation as intended without unwanted font substitution.  

This works fine in most cases where we can tightly control the source slides.  Users inevitably cut and paste in old slides that bring with them other fonts, but we teach them how to Replace Fonts to get rid of those.  But the Replace function doesn't always work, and PowerPoint will continue to display "phantom fonts" that are not actually used anywhere in the presentation.  See the image below.
Replace Fonts feature
It's well documented that PowerPoint has some flaws when dealing with fonts, but we really need to fix this.

I wrote a VBA macro that lists out all the fonts in the Presentation.fonts collection, then goes through every shape on every slide and layout and spits out the font used.  The printout below is from the same presentation as above.  VBA can only find five of the fonts, and every other font in the listout is either Playfair or Roboto (the 2 Google fonts).  Where are the others??
font list
One last piece of the puzzle.  I know for certain that the phantom fonts ARE in the file, because if I save the …
0
I've built a PowerPoint toolbar for my company using VBA, one feature of which is to insert/change the background image of the currently selected slide.  It displays a File Picker dialog pointed to a specific folder in the corporate content library which contains over 1100 JPG images, the user chooses an image, then the code makes that image the background fill for the current slide.  Works great.

To aid in searching the collection, our corporate design team has added numerous tags to each of these .jpg pictures.  In a webpage environment the tags work as expected.  

But when inserting pictures into PowerPoint the tags behave differently.  You would assume that the search box in the upper right of this dialog would find not only pictures with the search term in the filename, but ALSO pictures where the search term is found in the file tags.  In fact you can see in the first image below it is highlighting a couple images where it matched "meeting" in the tags.  

Seems to find search term in the file tags
But on closer inspection, I realize it is only showing files where the search term appears in BOTH the filename and the tags.  If I pick a word that is only in the tags, like "Toothy," which we know from the first image is in the tags, the search does not find any matching images, because Toothy is never in any filenames.
But it does not find the match when search term is ONLY in tags
BTW, this behaves the same way whether using my macro code, or manually inserting picture from the regular PowerPoint menu.

I would …
0
Hi, I have a user whom I just upgraded from 2013 to 2016.  All of her PPT files have lost their transitions, you can't even click through.  Any ideas on this?  I had another user offsite that went from 2007 to 2016, he still has his transitions but the video he had in there did not work, I just deleted the video and put it in again and it worked.  But my 2013 to 2016 user has at least one 53 slide presentation that I don't think she should have to copy and past each slide into a new presentation, which is what she is doing.  She can't even add a transition to the presentation.  Thanks is advance for your help!
Lisa
0
How can I get rid of the icons shown in the lower left corner of my screen during a presentation? (See graphic)
err
0
I am using PowerPoint 2016 to make a presentation for my Portuguese Class, and I've added a Wipe Animation to one of my objects, but I have noticed there is this fade as the image wipes in. Is it possible to remove it?The subtle fade I'm talking aboutAlso, is it possible to change the speed of the effect, like making it start slow, get faster, and stop slowly?
0
Last week my tab key in PowerPoint (2013) tables has changed the way it operates. Using the tab key in a table no longer moves the cursor to the next cell or adds a row at the end of the table, it just indents the text to the next list level. I have uninstalled Office 2013 and reinstalled it but that did not fix it. Is there a registry item for this? Any other ideas?
0
Hi

I am trying to convert a 114 slide show to a .pdf file.  I have removed all external hyperlinks, but 1 slide is still causing a problem.  I cannot work out why.

Anyone able to help and suggest possible cure?
0
Free Tool: Site Down Detector
LVL 9
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Hi Experts,
This is a bit complicated question. I've got a table with english content which was composed originally on a probaly jewish environment using PowerPoint. I'm using Linux and the I opened the .pptx file in  LibreOffice Impress. Editing the text I got some strange phenomena.
The HOME is on the right, the END is on the left. The left arrow goes to the right and the right arrow goes to the left. The DEL deletes the right character.
My big problem is how appears the cell content.
Instead of the right "24 - 12 VDC" appears "VDC 24 - 12". As I press the END and the cursor is in the top left position, after clicking (without changing the position of the cursor) the cursor jumps behind the VDC  (right from char C) which the real end of the text is. The same happens when I click left from V.
After pressing END the cursor is blinking in the top left position in the row. As I drag the pressed mouse in the right direction the first selected character is the C.
Or start position is the the top left position in the row. 1x press on the right arrow the cursor jumps between D and C. One more press and goes between V and D. One more: jumps before 20 and one more: jumps behind 20.
When I am in  the the top left position in the row the DEL don't work but the BACKDEL (marked with left arrow) deletes the C.
When I delete the whole content and I write in the cell "24 - 12 VDC" the VDC jumps forward and appears "VDC 24 - 12".

Could somebody help me? Every answer appreciated.
0
Hi all, anyone can help me to solve my problem. I want save my Power Point 2010 from Excel VBA? Here I attach my Workbook. I already write code for save the PowerPoint but it does not work as what I predict. Appreciate your help and thank you in advance.
0
I have a very simple, elegant Macro that Shums helped me with that I need to take to the next level. One item, two questions;  

 1.) If you remove any of the Ranges from the list in the WS, then they should not appear on the PPTX.

 2.) Can you control where the Ranges are placed on the PPTX?  In other words, can you choose to or control the output location (as in the case of having them appear on different slides?

 3.) Can you do the same for objects such as graphics?


Thank you in advance!

B.
Bright01_Embed-PPT-Macrov2.xlsm
0
I am using PPT 2016 and need help with a custom animation.
The presentation will teach children about the animals in the zoo.
The animation I would like to do will appear on the first slide.

After a delay of 1 second, the word "aardvark" will appear
near the bottom left corner and immediately start to move slowly upward.
After 1/4 second the word "bear" will appear in the lower left corner,
and will move upward.  "bear" will be a little below "aardvark"
as the two move upward at the same rate.

After another 1/4 second "camel" appears in the lower left corner
and begins to move upward.

So the student will see a list of animals moving upward, and as more animals
join the list the animals at the top will scroll off.  There will be 26 animals in all.

After "zebra" appears and begins to move up, "aardvark" will appear again.
So there will be continuous motion upward.

I thought of creating a long, narrow graphic having a list of all 26 animals.  It would be positioned below the slide, but when the slide appears the graphic would move upward, revealing the names of the animals one at a time.

I'm a newcomer at custom animation, and would be grateful for suggestions on how best
to achieve this effect.

Thank you.
0
On the attached PowerPoint slide I have text on the top and a table.  I’m trying to link the data for both to the attached excel spreadsheet.
Report-Updater.xlsx
Report.pptx
0
Hi, I am newbie in VBA. I have little problem for paste table from excel into powerpoint. I already use "Keep Source Formatting" technique to paste  the table. When I remove second selection, table success pasting into PowerPoint.  My problem is I want paste table and resize and reposition the table into powerpoint because user need edit contents of the table. When I resize and reposition the table, error will occur. Any idea? Appreciate your help. Thank you in advance.


Sub PastingPP()
Dim shp As String
Dim PPApp  As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Set Rng = ThisWorkbook.Sheets("Sheet1").Range("A1:C3")
   
    Set PPApp = New PowerPoint.Application
     Set PPPres = PPApp.Presentations.Add
    Set PPSlide = PPPres.Slides.Add(1, ppLayoutBlank)
    Set PPPres = PPApp.ActivePresentation
    PPApp.ActiveWindow.ViewType = ppViewSlide

If Range("A16:K25").Select Then
   
    Rng.Copy
    With PPPres
        PPPres.Application.CommandBars.ExecuteMso ("PasteSourceFormatting")
        With .Slides(1).Shapes(PPPres.Slides(1).Shapes.Count)
            .Top = 50
            .Left = 132
        End With
    End With
End If

If Sheets("Sheet1").Range("A5:E16").Select Then
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    shp = PPSlide.Shapes.Paste.Name
    With PPSlide.Shapes(shp)
        .IncrementLeft 190
        .IncrementTop 220
        .ScaleWidth 1.6, msoFalse, …
0
I have a requirement to show the value selected in one ComboBox (PowerPoint slide) displayed in other ComboBox's (other PowerPoint slides following the primary slide).

The reason for this requirement is because each slide (with many ComboBox or TextBox controls) are replicated across all slides. This PowerPoint presentation is designed to be an interactive training tool. Hence, the task is to ensure that when a user selects on one of the drop-down list of values for a particular CombBox, that selected value must be displayed across all matching slides that follow the slide where the selection was initially made.

For instance, if the user selected a country from a ComboBox list of string values, the requirements are:
1) The value selected must be replicated on all corresponding ComboBox's that follow the primary slide
2) The displayed values must be retained on each slide for the duration of the presentation only. In other words, if the presentation is re-started from the beginning, all previous entered values must be reset to null values (blanks).

I come from a programming background, but do not have any VBA skills. I have successfully created the various ComboBox controls across all the various slides, but I am not able to design the functionalities identified in the previous paragraph.

Thanks,
Evan.
0
The code below should find and replace certain words. It works fine for full words, but when I only want to replace part of a word a space is inserted before the new part.

Eg powerpoint has a textbox

test[1]

the result should be

test[2]

but instead it is

test [2]

Sub test()
Call replace("[1]", "[2]")

End Sub




'goes trhough each slide and textbox
'replaces old text with new text without affecting the formatting
Sub replace(OldTxt, NewTxt)
    Dim sld As Slide
    Dim grpItem As Shape
    Dim shp As Shape
    Dim i As Integer
    Dim j As Integer
    Dim varTemp As Variant
    Dim lenStr As Integer
    Dim posStr As Integer
    Dim s As String

    lenStr = Len(OldTxt)
    For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes

        If shp.HasTextFrame Then
            If shp.TextFrame.HasText Then
                With shp.TextFrame.TextRange

                    Do While InStr(1, .Text, OldTxt, vbTextCompare) > 0
                        posStr = InStr(1, .Text, OldTxt, vbTextCompare)
                        'this is where the new character is added
                        .Characters(posStr, lenStr).InsertAfter NewTxt
                        .Characters(posStr, lenStr).Delete
                    Loop
                End With
            End If
        End If


    Next shp
Next
End Sub

Open in new window

0
I have a report in excel that updates a PPT.  I’m trying to add a code that will back up the PPT  as a zip file on a network drive.  I use the below code to back up the excel file, but I can’t figure out how to adapt it to zip the PPT.

Sub Zip_ActiveWorkbook()
    Dim strDate As String, DefPath As String
    Dim FileNameZip, FileNameXls
    Dim oApp As Object
    Dim FileExtStr As String

    DefPath = "Q:\"    '<< Change
    If Right(DefPath, 1) <> "\" Then
        DefPath = DefPath & "\"
    End If

       'Create date/time string and the temporary xl* and Zip file name
    If Val(Application.Version) < 12 Then
        FileExtStr = ".xls"
    Else
        Select Case ActiveWorkbook.FileFormat
        Case 51: FileExtStr = ".xlsx"
        Case 52: FileExtStr = ".xlsm"
        Case 56: FileExtStr = ".xls"
        Case 50: FileExtStr = ".xlsb"
        Case Else: FileExtStr = "notknown"
        End Select
        If FileExtStr = "notknown" Then
            MsgBox "Sorry unknown file format"
            Exit Sub
        End If
    End If
    
    FileNameZip = DefPath & Left(ActiveWorkbook.Name, _
    Len(ActiveWorkbook.Name) - Len(FileExtStr)) & ".zip"
    
    FileNameXls = DefPath & Left(ActiveWorkbook.Name, _
    Len(ActiveWorkbook.Name) - Len(FileExtStr)) & FileExtStr

    If Dir(FileNameZip) <> "" Then Kill FileNameZip
    If Dir(FileNameZip) = "" And Dir(FileNameXls) = "" Then

        'Make copy of the activeworkbook
        ActiveWorkbook.SaveCopyAs 

Open in new window

0
Free Tool: Port Scanner
LVL 9
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Hi

I like to capture server information such as using Powershell .

Serial number
Disk capacity
Hardware information
Software information install in the server.
0
I'm using Power Point 2013 and I have a slide that I would like to say May 2017 since today's date is in May and the year is 2017, when the month changes over to June I would like the slide to automatically change.  I've can make it say May 17 but I really need the format to be May 2017.

Thank you,
0
I want to find each occurrence of a word in a powerpoint presentation and change the formatting of that word.

For example the presentation has a textbox like this:

Introduction
text used for testing the macro[1] and has different formatting

I want the macro to change it like this: the given word is "[1]" and I want the macro to make it superscript.

Introduction
text used for testing the macro[1] and has different formatting

I already have a code which can be used to change text without affecting formatting, I suspect it can be used with little modification. The old text should be the same as the new text, and the formatting should be changed at the point the new text is added.

Sub test()
Call replace("[1]", "[1]")
End Sub

'goes trhough each slide and textbox
'replaces old text with new text without affecting the formatting
Sub replace(OldTxt, NewTxt)
    Dim sld As Slide
    Dim grpItem As Shape
    Dim shp As Shape
    Dim i As Integer
    Dim j As Integer
    Dim varTemp As Variant
    Dim lenStr As Integer
    Dim posStr As Integer

    lenStr = Len(OldTxt)
    For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes

        If shp.HasTextFrame Then
            If shp.TextFrame.HasText Then
                With shp.TextFrame.TextRange

                    Do While InStr(1, .Text, OldTxt, vbTextCompare) > 0
                        posStr = InStr(1, .Text, OldTxt, vbTextCompare)
              

Open in new window

0
The code below can find and replace text within a powerpoint file, however it clears individual formatting of words within the text boxes. That is after running this code all part inside the text box will be formatted like the first character. I would like to find and replace without affecting the formating.

As an example the power point would have a textbox with the following text:

Introduction
text used for testing the macro[1] and has different formatting

This is the result when I run the code

Introduction
text used for testing the macro[2] and has different formatting


This is the expected, ideal result

Introduction
text used for testing the macro[2] and has different formatting

 Sub DataScrubAllSlidesAndTables()
    Dim OldTxt As String
    Dim NewTxt As String
    OldTxt = "[1]"
    NewTxt = "[2]"
    
 
 
    Dim sld As Slide
    Dim grpItem As Shape
    Dim shp As Shape
    Dim i As Integer
    Dim j As Integer
    Dim varTemp As Variant
    For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes

        If shp.HasTextFrame Then
            If shp.TextFrame.HasText Then
                shp.TextFrame.TextRange.Text = Replace(shp.TextFrame.TextRange.Text, OldTxt, NewTxt)
            End If
        End If

    

    Next shp
Next
End Sub

Open in new window

0
I have a graphic image with a multi-colored design on it . There is a small portion of that image that is a shade of red that I'd like to duplicate. How can I determine what the RGB values are for that small portion of the image. The rest of the image has squares containing pink, blue, etc.  The area is actually a screen capture and is being detected by MS Word as a "picture" because the "Picture Tools" contextual tab appears.
0
User is trying to open a powerpoint presentation she has downloaded from a website, once downloaded she double clicks and gets the error -
(see attached)

She can open other powerpoint presentations with no issue, she can also open word and excel files she downloads from the same site with no issues.

She is trying to open the file in powerpoint 2013

can anyone advise?
powerpoint-issue.jpg
0

Microsoft PowerPoint

3K

Solutions

30

Articles & Videos

4K

Contributors

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.