Go Premium for a chance to win a PS4. Enter to Win

x

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

I'm experimenting with saving custom XML data to [shape] objects in PowerPoint using the object's CustomerData collection object which stores one or more CustomXML parts. There are three main methods and one property for the CustomerData object:

.Add (method)
.Item (method)
.Delete (method)
.Count (property)

Unlike other collections in the OM, items in the collection are read using a GUID string rather than a numerical index. for example:

Sub TestReadXML()
  Dim GUID As String
  GUID = "{CBAC284D-9000-4CFE-8E8F-FAD5CC8BCAA7}"
  With ActiveWindow.Selection.ShapeRange(1).CustomerData
    With .Item(GUID)
      Debug.Print .XML
    End With
  End With
End Sub

Open in new window


The GUID is created automatically by the .Add method when the CusomXMLPart is initially created so at that point it can be read and saved:

Sub TestWriteXML()
  Dim GUID As String
  With ActiveWindow.Selection.ShapeRange(1).CustomerData
    With .Add
      GUID = .Id
      .LoadXML "<testXML/>"
    End With
  End With
End Sub

Open in new window


Now, given the fact that the GUID cannot be present in more than one CustomXMLPart, either for the same object or multiple objects, when an object that contains a CustomXMLPart is copied, the original maintains its GUID but the copy is assigned a new one automatically.

Let's say I have a shape selected in the example above and I add the XML part, then copy/paste the shape, the new shape has been assigned the same XML data but with a different GUID.

How can I find out what that new GUID is?!

Is it deliberately inaccessible for security reasons or is this just an incomplete part of the PowerPoint OM?
0
Free Tool: IP Lookup
LVL 11
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

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.

I would like to insert the file name at the bottom of each page of the notes/handouts.
What is the code I can insert (where the arrow is) for doing this?  I know it exists in MS Word and Excel but what is it in PPT?
err
0
At my office I have a reception area with a new HD TV.
How can I get a powerpoint to display on the TV continuously and reliably.
Can I put it on a USB stick and plug it in?
0
Hi,
I have copied some text from excel to PowerPoint. But now, i want to merge all the text boxes in PowerPoint into one but usong excel vba. Please help me out with the solution.
0
Hi,
The below code checks for specific color text in a row and then copy the text in powerpoint. Likewise I have two to three rows which needs to be checked for the specific color text and then copy the respective text in powerpoint. But run time is several minutes. How can I reduce the run time. Below is my code. Please help me out.


Sub ExcelRangeToPowerPoint()
'PURPOSE: Copy/Paste An Excel Range Into a New PowerPoint Presentation


Dim rng As Range
Dim PowerPointApp As Object
Dim myPresentation As Object
Dim mySlide As Object
Dim myShape As Object
Dim lrow As Long
Dim sShpTop As Single
Dim rng1 As Range
Dim rng2 As Range
Dim ows As Worksheet

Application.ScreenUpdating = False
Application.EnableEvents = False

'Create an Instance of PowerPoint
  On Error Resume Next
   
    'Is PowerPoint already opened?
      Set PowerPointApp = GetObject(class:="PowerPoint.Application")
   
    'Clear the error between errors
      Err.Clear

    'If PowerPoint is not already open then open PowerPoint
      If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
   
    'Handle if the PowerPoint Application is not found
      If Err.Number = 429 Then
        MsgBox "PowerPoint could not be found, aborting."
        Exit Sub
      End If

  On Error GoTo 0

 
'Create a New Presentation
  Set myPresentation = PowerPointApp.Presentations.Add


'Add a slide to the Presentation
  Set mySlide = …
0
I have only moderate PowerPoint skills.  I am trying to edit the attached slide, and I do not understand why i cannot resize most of the text boxes.  Please advise and thank you for your assistance.
Presentation1.pptx
0
Hi,
I want to copy all text having same font colour from a specific column and then paste the text in PowerPoint at specific location using vba. And again while pasting the text i  want to remove the blank spaces.  Please help out. Thanks in advance.
0
Dear experts,

I am planning to draw venn diagrams in MS word. How do i colour code the overlapping area separately rather than the original circle.

For instance inthe below video (taken from public domain)
https://www.youtube.com/watch?v=NRJQn1AMik8

The presenter swtiches colour/bars for a part of the diagram/shape rather than the entire shape.

I am happy to prepare my notes in MS Powerpoint if that will help my objective.

Kindly advice.

Thank you
0
What does this command do
Set arg1=%1


And what would I get if I echo %1 ?
0
Hello,

How to protect PowerPoint 2016 template, so that no one can edit without a password?
0
New feature and membership benefit!
LVL 11
New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

We have a machine here which will not display the powerpoint font, Century Gothic, correctly. It seems to be overlapping. What could be causing this issue on only this machine?

Images are below. Thanks.
font1.jpg
font2.jpg
0
Hi,
I want to copy only text from certain range of excel and paste in ppt. The range contains the numbers, blank spaces and text. Bt i only want to copy the text using ppt vba. And again i am trying to avoid the blank spaces in ppt. Please help me out. Thanks in advance.
0
Hi,

Is it possible in powerpoint to covert the paragraph into bullet points using vba? What I meant is, for example, I have below paragraph

Visual Basic for Applications (VBA) is an implementation of Microsoft's event-driven programming language Visual Basic 6, which was discontinued in 2008, and its associated integrated development environment (IDE). Although Visual Basic is no longer supported or updated by Microsoft, VBA itself got upgraded in 2010 with the introduction of Visual Basic for Applications 7 in Microsoft Office applications.[1] Visual Basic for Applications enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). It supersedes and expands on the abilities of earlier application-specific macro programming languages such as Word's WordBasic. It can be used to control many aspects of the host application, including manipulating user interface features, such as menus and toolbars, and working with custom user forms or dialog boxes


 And now what I want is each sentence should come on new line , shown as below.

1. Visual Basic for Applications (VBA) is an implementation of Microsoft's event-driven programming language Visual Basic 6, which was discontinued in 2008, and its associated integrated development environment (IDE).
2. Although Visual Basic is no longer supported or updated by Microsoft, VBA itself got upgraded in 2010 with the …
0
When students in an IT suite try to save files in PowerPoint 2016, they get the following error message when selecting a save location:

"An error occurred while opening the file dialog. Please save your presentation, exit, and restart PowerPoint."

This doesn't occur when logged in as a domain admin.

Any ideas?
0
Hello,

We are on our way to a full migration from Office to GSuite here at my agency.  We are wanting to phase out Word and Powerpoint from our users but stil allow them to keep Excel.  Is it possible to utilize a group policy to push a silent removal of these 2 pieces of the software?  Is there a better way to do this?  Any help would be greatly appreciated.

Thanks
1
Hi
Weird issue here.  Saving changes to a pptx file over a VPN are not working.  
The file is showing as being saved on screen, thereafter it creates a tmp file and then shows the original pptx file prior to saving the changes.
It seems to work fine locally on same LAN.
Ideas?
0
hi,
i created a power point 2016 template and want to deploy it for 20 Clients Windows 10. There are w2k12 r2 DC servers and 1 w2k12 r2 FileServer on my environment. Can you help me please doing this? With or without gpo or something.
Thank you and best regards.
0
I have been given two 16:9 templates which are causing issues when copying content from one to the other in the objects appear smaller when pasted.

On examination I found the following 16:9 design size setups in inches with points in parenthesis:

1. Microsoft Office Default for "On-screen show" = 10” x 5.625” (720 *405) - pre 2013 default
2. Microsoft Office Default for "Widescreen" = 13.333” x 7.5” (960 * 540) - 2013 onwards default, better for 4:3 migration
3. Custom Template 1 = 10” x 5.625” (720 *405)
4. Custom Template 2 = 26.67” x 15” (1920.25 * 1080)

Content is being copied from slides using Template 1 to slides using Template 2 and appearing smaller, as expected. by a factor of 2.666 (26.67" / 10"). This means that users are having to scale everything up by 2.666, reposition, re-margin text, increase font sizes etc. when reusing content from Template 1. Nightmare!

I didn't design the templates so I am wondering what the rational was for the designer to deviate from the new Office default "Widescreen" settings and then to increase it when releasing the new version Template 2.

Is it purely a choice abut matching the number of points to Full HD for projection quality optimisation? It seems a pretty weird thing to do when there are many thousands of slides using Template 1.

What is the "Best Practice" here when considering content migration?
0
Hello This code woks on debug mode but fails to run in complie mode at CommandBars.ExecuteMso Any suggestions or help would be greatly appreciated.

Sub CopyPasteAsUnion()

     Dim sld As Slide
     Dim shp As Shape

     Dim ShapeOne As String
     Dim ShapeTwo As String
     Dim oshpR As ShapeRange


     For Each sld In ActivePresentation.Slides
     ActiveWindow.View.GotoSlide sld.SlideIndex
          For Each shp In sld.Shapes
           If shp.HasTextFrame = True Then
                If shp.TextFrame.HasText = True Then
                      ShapeOne = shp.Name
                      ShapeTwo = shp.Name & "_1"
                      With shp.Duplicate
                         .Left = shp.Left
                         .Top = shp.Top
                         .Name = ShapeTwo
                      End With
                            Set oshpR = sld.Shapes.Range(Array(ShapeOne, ShapeTwo))
                            oshpR.Select
                            CommandBars.ExecuteMso ("ShapesUnion")
                    End If
                End If
         Next
     Next
End Sub

Open in new window


PowerPoint Version I'm using : PowerPoint 2016 (System : Windows 7).

Error While compiling:
Run-time error '-2147467259(80004005)': Method 'ExecuteMso' of objects '_CommandBars' Failed
process.pptx
0
Free Tool: SSL Checker
LVL 11
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

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.

Hello,

Is there a way to display only some of the borders of an object in PowerPoint but not display others?

For example, suppose you want a half circle with the round border displayed but the straight border not displayed.

Half circles are not available from the objects menu but can easily be created by starting with a full circle as shown here:

2017-09-09d_EE.PNG
Then after superimposing a second object which perfectly covers half of the circle:

2017-09-09e_EE.PNG
and clicking Shape Intersect:

2017-09-09g_EE.PNG
The desired half circle is obtained:

2017-09-09f_EE.PNG
However, in the process, a red border was added to the new edge of the half circle.

Is there a way to prevent the addition of the new border or remove it once it is present?

Thanks
0
I'm printing handouts two slides per page to an HP 651 color printer (though the printer does not matter). Each printed page has today's date at the top, right and a page number (not slide number) at the bottom, right. There are no headers, footers or page numbers specified in the print job (each option is not check marked). This is not controlled by the slide master. It is an issue with each printed page, not each slide on the page.

Does anyone know where the date and page number are coming from?

Thank you.
0
Hello there
I have a VBA code that copies data from excel to a power point presentation. the problem that I have is that I cannot set the position of the copied table in powerpoint. it doesn't work in a for loop.

Sub ExcelRangeToPowerPoint()
    
        Application.ScreenUpdating = False
        Dim rng As Range
        Dim PowerPointApp As Object
        Dim myPresentation As Object
        Dim mySlide As Object
        Dim myShape As Object
        Dim PPPres As Object
        Dim PPT As PowerPoint.Application
        Dim SlideNum As Integer
        Dim counter As Integer

    Set PPT = New PowerPoint.Application
    PPT.Visible = True
    PPT.Presentations.Open Filename:="C:\Users\Ashkan\Desktop\Powerpoint autoupdate\1.pptm"
    
For counter = 1 To 3
    SlideNum = counter
    Sheets("Sheet" & SlideNum).Select
    'Copy Range from Excel
    Set rng = ThisWorkbook.ActiveSheet.Range("A1:B5")
    rng.Copy
      
    'Paste to PowerPoint and position
      Set myPresentation = PPT.ActivePresentation
      myPresentation.Slides(SlideNum).Shapes.Paste
      
      Set mySlide = myPresentation.Slides(SlideNum)
      Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
        Set position:
          myShape.Left = 128.88
          myShape.Top = 68.4
          
          Set mySlide = Nothing
          
Next counter

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
  
End Sub

Open in new window


Line 29 to 33 is not working for table number 2 and 3. it only repositions the table 1.
how can I select this table in power point in order to reposition it?
1
Hi there
I have a power point presentation with 100 slides, which It's tables need to be updated each week. To further assist, each table in power point has a corresponding worksheet in my workbook and the position and formatting of these tables (in power point) have to be maintained.
Is there any VBA code to automate this process?

p.s I hope my descriptions are clear enough.
I also Uploaded two example.
Copy-Paste.pptx
COPY-Paste.xlsx
1
Hi there

I need a VBA code in powerpoint to compress every picture to 150 pp quality.
Is there a way to do that with "Application.ActivePresentation.SaveAs"?

Thanks
0
Hi there
I have 5 presentations with a large number of slides which each of slides has to pictures in them (before and after). I want a VBA code to distribute these pictures horizontally. I've found a code for one picture, so it won't work on my presentations.

Sub DHori()
    Dim osld As Slide
        For Each osld In ActivePresentation.Slides
        With osld.Shapes.Range
        .Distribute msoDistributeHorrizontally, msoTrue
        End With
        Next osld  
End Sub

I also have another question, all of these pictures are linked in presentation, so each week when opening my presentation they update automatically. is there a code for breaking these links, so I wouldn't have to do this manually?
0

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.