We help IT Professionals succeed at work.

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.

Hello experts,

The following procedure allows me to add date stamp on specific text zone.
I would like to add the following requirement:
Finish the procedure with a click inside the text zone to continue with a note like this:

20200329_144914.png
Sub Insert_Date()
 Dim oSld As Slide
 Dim oSh As Shape
 On Error Resume Next ' add your own error handling
 Set oSld = ActiveWindow.View.Slide
 Set oTextRange = oSld.Shapes.AddTextbox(msoTextOrientationHorizontal, _
 600, 0, 400, 400).TextFrame.TextRange
 With oTextRange
 .Font.Color = RGB(255, 0, 0)
 .Text = "Update date: "
 .InsertDateTime ppDateTimeMMddyyhmmAMPM, True
 End With
End Sub

Open in new window


Thank you for your help.
0
Hello experts,

The following procedure allows me to insert date in active slide.

I would like to insert date + time like this 29/03/2020 14:22:26

Sub Insert_Date()
    Dim oSld As Slide
    Dim oSh As Shape
    On Error Resume Next ' add your own error handling
    Set oSld = ActiveWindow.View.Slide
    Set oTextRange = oSld.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    515, 0, 250, 400).TextFrame.TextRange
        With oTextRange
            .Font.Color = RGB(255, 0, 0)
            .Text = "Update date: "
            .InsertDateTime ppDateTimeddmmyy, True
        End With
End Sub

Open in new window


Thank you in advance for your help.
0
Hello experts,

The following vba procedure allows me to resize all objects in selected.

Sub Resize_All_Objects()
    Dim w As Double
    Dim h As Double
    Dim obj As Shape

    w = 0
    h = 0

    ' Loop through all objects selected to assign the biggest width and height to w and h
    For i = 1 To ActiveWindow.Selection.ShapeRange.Count
        Set obj = ActiveWindow.Selection.ShapeRange(i)
        If obj.Width > w Then
            w = obj.Width
        End If

        If obj.Height > h Then
            h = obj.Height
        End If
    Next

    ' Loop through all objects selected to resize them if their height or width is smaller than h/w
    For i = 1 To ActiveWindow.Selection.ShapeRange.Count
        Set obj = ActiveWindow.Selection.ShapeRange(i)
        If obj.Width < w Then
            obj.Width = w
        End If

        If obj.Height < h Then
            obj.Height = h
        End If
    Next
End Sub

Open in new window

I would like to add the following control:

-If objects are not selected show a msgbox: "Unable to proceed as objects haven't been selected" and exit sub.
Thank you for your help.
0
Hi Experts,

I know this is possible, as I did it a few times on my old PC.
But I've got a new PC and cannot figure out how tho do it.

I'm running Office 365 on Windows10 Pro.

I've installed the Presentation Translator for PowerPoint add in.

Regards,
Leigh
0
Hi,

I'm now using Office 2013 under Windows 10.

Currently, my boss ask me to prepare a PPT file with embedded Excel objects  (via Insert->Object->From File->Link) and display some dynamic data on the Powerpoint slide.  This slide will be displayed on a large monitor in the office as reference.  All this is fine for me.  But, as my boss mentioned, the data in the embedded Excel is "Dynamic" which will be updated constantly by another department.  Yet, the data as appear in the PPT seems never change even the underlying Excel has been updated and saved.  And I found the only way to update the figure is to right click on the Excel object and choose "Update Link".

Since it is impossible for me to do this on a minute basis and I tried to do this via Powerpoint VBA.  May I know how to create a Powerpoint VBA procedure which will be executed automatically as long as the Powerpoint slide has been opened and will also update the data in the embedded Excel object on a 2-minute basis?

Thanks a lot.

Stanley
0
Im writing some VBA code to check the fill format of various elements of a chart object. If I create a new chart in a new presentation as follows I get some odd results:

1. Open PowerPoint
2. Create a new file from the default Office template
3. Insert a column chart
4. Select the resulting chart

You should have something like this:

Chart format fill  in PowerPoint
Now, in the VBE Immediate window, execute this statement:

?ActiveWindow.Selection.ShapeRange(1).Chart.ChartArea.Format.Fill.Type

Open in new window

This returns msoFillMixed. In the PowerPoint UI, the fill is stated as "Automatic". Is this what msoFillMixed is being used for when a single object is selected?

Next, run this line:

?ActiveWindow.Selection.ShapeRange(1).Chart.ChartArea.Format.Fill.Visible

Open in new window

It returns True, which is where things get really weird as running the following returns black while what is on the slide is white! And neither black or white is selected in the UI colour picker.

?ActiveWindow.Selection.ShapeRange(1).Chart.ChartArea.Format.Fill.ForeColor.RGB

Open in new window


And wierdness continues if I try to force the fill to solid as this line changes the fill to Accent1:

ActiveWindow.Selection.ShapeRange(1).Chart.ChartArea.Format.Fill.Solid

Open in new window

So my question is how can I correctly detect the rendered fill state of the chart area?
0
I'm working on a PowerPoint template which contains multiple masters, each of which has it's own theme.

When manually adding custom colours to the various theme XML files all works as expected until I open the file from SharePoint at a later date and all the custom colour data has disappeared from all but the first theme.

In delving into the ZIP archive, I can see several themeOverride.xml files in the \ppt\theme\ folder. What are these for and could they be responsible for the above behaviour?
0
On a PC, I can issued this command to tell PowerPoint to arrange all visible windows:

Application.CommandBars.ExecuteMso "WindowsArrangeAll"

Open in new window


If I try this on a Mac I get a run time error 5 (invalid procedure or argument).

Other MSO control IDs do in fact work on Mac such as this one:

Application.CommandBars.ExecuteMso "ShowNotes"

Open in new window


Furthermore, the CommandBars.FindControls method doesn't seem to work on Mac.

So I have a couple of questions:

1. How can I invoke the Arrange Windows function on Mac? (it's in the menu bar under Window / Arrange All, as opposed to the ribbon)
2. Why do some control IDs not work on Mac?
3. Is there documentation showing which controls are/are not supported in addition to this on GitHub? https://github.com/OfficeDev/office-fluent-ui-command-identifiers
0
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.
0
Hello experts,

I am trying to set up an AutoHotkey script that I will use on a regular basis to swiftly export file as Pdf and open folder in which it has been saved


I need some advice with the following:
1.      Coding structure and optimization proposal.
2.      Line 6 to 8 are required?
3.      Set up a return if active document has not been saved.
Example: I open a document and I forgot to save the document. If I launch the script an if statement should be set up to block the pdf export.
4.      Find the right saveas method for powerpoint and excel the save as method applied doesn't work. File is exported however When I open the file I got an error message.
5.      End the script by opening the pdf export file
6.      Find a method to applied the same mechanism for outlook>emails
If some requirements are complicated to cover I am willing to give up
If you have questions, please contact me.
SaveAsPdfSwitchCase.txt
1
Hope this is simple.  My client wants their default shape to be set to a certain color with no outline.  So I created that shape in a presentation, right click and "Set as Default Shape."  As long as I am working in that presentation, most new shapes I create have those characteristics.

So far, so good.

I tried setting default shape properties in a .potx presentation template, then saved the template, assuming new presentations created based based on that template will inherit those default shape properties from the template.  I'm using my typical VBA method for creating a presentation based on a temple, namely
Presentations.Open filename:="c:\project\mytemplate.potx", Untitled:=msoTrue, ReadOnly:=msoFalse

Open in new window

  But the default shape properties do NOT carry over to these new presentations.  

What am I missing?
0
Trying to add a pdf file to powerpoint.  I have inserted a pdf file as an object into a powerpoint presentation.  Then I read instructions on how to make it active within the presentation by adding an action to it.  The action I have chose is :  mouse click - open .  When I do this all it does it shrink the pdf file.  It shows it normally (the first page of the pdf file) and then when I click on the pdf it just shows up like it is a thumbnail.  

All I really want to do is click to the slide of the pdf file, click it, and it brings up adobe reader to view the pdf
0
I am using gotomeeting to video stream a powerpoint presentation.  I have shared out the screen to the audience.  Is there a way I can (the presenter) have the powerpoint presentation show the display of the slides with the preview of the next slide, but the audience only sees a full screen on the current slide?  See screenshot of what gotmeeting is showing the audience and what I am seeing on laptop.
0
Is there a way to stop PowerPoint from automatically inserting pictures/icons into an empty picture placeholder on a slide when using the Insert / Pictures and/or Insert / Icons functionality?

For example, if I have a slide that has a picture placeholder occupying 50% of the width of the slide and I want to insert an SVG icon next to it, before adding the picture, the SVG icon is automatically inserted into the empty picture placeholder, even if it's not selected. This is a simple example with a simple workaround, insert the picture first but in some cases, a layout may have numerous picture/object placeholders so this problem becomes more of an issue. It's also a problem when automating PowerPoint with VBA.

Is there a keyboard modifier to prevent this behavior or a setting in options?
0
Hello experts,

The following AutoHotkey allows me to copy files path to clipboard and do the same for notepad++ by using send input.

;====================================
;Windows Explorer: copy full path of active Excel, PowerPoint, or Word file to the clipboard. 
;====================================

+F8::
WinGet ActiveWindowPID,PID,A ; save active window PID
WinActivate % "ahk_id " DllCall("GetDesktopWindow","ptr") ; register Office app in ROT - thanks to lexikos for this line of code
WinActivate,ahk_pid %ActiveWindowPID% ; after registering Office app in ROT, reactivate Office app
If (WinActive("ahk_exe excel.exe"))
  Clipboard:=ComObjActive("Excel.Application").ActiveWorkbook.FullName
Else
If (WinActive("ahk_exe powerpnt.exe"))
  Clipboard:=ComObjActive("PowerPoint.Application").ActivePresentation.FullName
Else
If (WinActive("ahk_exe winword.exe"))
  Clipboard:=ComObjActive("Word.Application").ActiveDocument.FullName
Else
If (WinActive("ahk_exe notepad++.exe"))
  Sendinput ^+p
Else
  Clipboard:="Active window is not Excel, PowerPoint, Word or Notepad++"
Return

Open in new window


I would like to take as a reference to open containing folder:
20191223_103502-open-file-location.png
Defined shortcut on notepad to open containing folder is: ^!0

If you have questions, please contact me.
Thank you for your help.
0
Hello experts,

I was wondering how to restrict specific AutoHotkey for application and turn off them for other applications.
Example:
I would like to use the following AutoHotkey exclusively when I used Excel:
;====================================
;Excel paste special
;====================================
;$if the send contains same letters of hotstring
$^#v::
If (WinActive("ahk_exe excel.exe")) 
{
  Send, !esvt
  Sleep, 100
  Send, {Enter}
  Return
}
Else
{
  MsgBox,4144,Error,Active windows is not an excel windows
  Return
}

Open in new window


The benefit of If approach condition is that I restrict the AutoHotkey for Excel however the drawback is that I cannot turn off for other applications.
Let's suppose that I change the AutoHotkey for:
;====================================
;Excel paste special
;====================================
;$if the send contains same letters of hotstring
#d::
If (WinActive("ahk_exe excel.exe")) 
{
  Send, !esvt
  Sleep, 100
  Send, {Enter}
  Return
}
Else
{
  MsgBox,4144,Error,Active windows is not an excel windows
  Return
}

Open in new window

When Notepad ++ process is running.
I would have error message instead of having the default windows action related to #d which is open desktop.
This question is crucial for my daily actions as I want to avoid clash between other default windows shortcuts.
Thank you for your help.
0
In Excel, I know how to hide  Rows & Columns but how
do we  hide slides in PwrPnt 2016?  Appreciate step by
step instructions with screen shots if possible
1
Hi,

I am trying to create an EXE of powerpoint so I can give io to my group for our meetings but get an error:

PowerPointEXEerror
My steps are:
- create my ppt (I have v2010)
- run iexpress wizard to creat my EXE

This always worked but in this computer for some reason no.

This comouter is Windows 7 pro with Ms2010.

I need to create EXE of thie powerpoint, help please.
0
Hi,

I have a presentation but i need time counter starts only when slide 2 is shown. I can pause timer, but i prefer do it automatically if possible.

best regards
0
Office applications have numerous Task Panes. I need to determine which are open/visible. Some are activated via ribbon toggle buttons and/or dialog box launchers while others are activated with buttons.

I can detect those activated with toggle buttons as in this example:

bSelectionPaneOpen = CommandBars.GetPressedMso("SelectionPane")

Open in new window


This doesn;t actually get the state of the task pane but the toggle button associated with it.

Conversely, I cannot do the same for those activated with a button. This example fails because the button isn't a toggle:

bFormatPaneOpen = CommandBars.GetPressedMso("ObjectFormatDialog")

Open in new window


Is there a way to return the visible state of task panes that are activated via buttons?

Word has a TaskPane object but Excel and PowerPoint don't :-(

lTaskPanes = Application.TaskPanes.Count

Open in new window

0
I give a class using powerpoint and I save the class progress for that day. After class I use the powerpoint export function to create a pdf from the current selection manually. I would like to do this using vba.

How do I do that.

I have the slide range saved and the db has links to the presentation ppxt itself.
0
Using VBA, I am trying to check to make sure every shape in a presentation is filled with a color in the presentation's color theme.   Because this tool could be used in any template, my challenge is how do I use VBA to extract the numerical codes for the current presentation's color palette, including not only the 10 theme colors, but also the additional 50 light and dark variations that PowerPoint automatically presents as part of it's color palette.  See image below.

I know that these color variations are a combination of an ObjectThemeColor (1 through 10) and a Brightness setting (-1 to +1).   But I can't figure out the algorithm or method Office uses to create the variations.  For a light theme color like the light blue, the variations from top to bottom are Brightness -.1, -.25, -.5, -.75, and -.9.  But for a color like the dark purple they are from top to bottom Brightness .8, .6, .4, -.25, -.5.   So it's not always the same.  

 PowerPoint Theme Colors
Bottom line I need my code to create an array consisting of all color values that I can then check against.  How can I do this?

Thanks!
0
Hello Gurus,
Could you please with the attached template, i need to present to client traffic flow ( for eg: between router and firewall )
is it possible i can have color change from green to blue ( till the dot ) infinite rounds until i click the next slide .

Regards,
Sid

Edit : ppt attached . 1. i would like an arrow to move from router to firewall in infinite until i make next click
2. also i would like to know , how to change the color gradually from blue to green or vice versa
Presentation2.pptx
0
Team,

i would like to know, i need to present a PPT to a client , where when i go to next slide , it should take me to a webpage directly without me clicking it directly. If possible , could you please tell me how can i do it
After the web page access ,  i need to go to next slide to resume my ppt .

Regards,
Sid
0
I'm trying to setup a slide show using many slides. I have them imported into a PowerPoint presentation and have the transitions setup.  But I can't figure out how to apply the same timing to move from one slide to another for the entire slideshow.  Can someone help?
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.

Top Experts In
Microsoft PowerPoint
<
Monthly
>