Replies

If you have a version before 2010 then ONLY wav files can be embedded. There’s no way to embedd wma or midi files.

It is possible with a little trickery to convert to mp3 and then add a wav header.

See “I want to embed mp3 files in PowerPoint”

There’s no way to do this the default size is hard coded. It would be possible to code a “resize me” button on the ribbon to make it a one click fix.

If PowerPoint is in the x86 folder it means that IT is 32 bit but Windows is 64 bit. Maybe you need 64 bit Quicktime if Windows is 64 bit?

“great job you folks are doing staging the London games!”

Wait till we pass the US in the medal table!

We are heading for AZ in October (Scottsdale) for the Presentation Summit BTW

Amazingly Microsoft designed it that way. Their (flawed IMO) rational was that if you went back to a slide you wouldn’t want the animation (audio is an animation) again.

To get around it place a blank slide BEFORE the slide with sound, give it an auto trantion of zero seconds and make the back link to THIS slide./

I would save as a .thmx file and put it in
C:ProgramFilesMicrosoft OfficeDocument Themes 12

Do you know how to use vba code?

In your Excel file press ALT f11
In the code window that opens INSERT > Module
Copy and paste in the code below and hit f5.

Note the code is for charts as worksheet objects.

WORK ON A COPY if youre not sure.

‘——copy from here——————-
Sub Charts_PPT()
Dim ocht As ChartObject
Dim ws As Worksheet
Dim pptApp As Object
Dim pptPres As Object
Dim pptSld As Object
Set pptApp = CreateObject(“PowerPoint.Application”)
pptApp.Visible = True
Set pptPres = pptApp.Presentations.Add(msoTrue)
For Each ws In ActiveWorkbook.Worksheets
For Each ocht In ws.ChartObjects
ocht.Copy
Set pptSld = pptPres.Slides.Add(pptPres.Slides.Count + 1,11)
pptPres.Windows(1).View.GotoSlide (pptSld.SlideIndex)
pptSld.Shapes.Title.TextFrame.TextRange = ws.Name & ” ” & ocht.Name
With pptSld.Shapes.Paste
.Align 1, True
.Align 4, True
End With
Next ocht
Next ws
End Sub
‘ ——–to here———————–

Saving as a pps will not give any security at all! You can just rename it to .ppt OR right click >> New OR just use File > Open to edit the file.

Adding a modify password will give some security and prevent most from editing. An expert will be able to get in in seconds though.

If you don’t need animation you could select everything on each slide , cut and paste special as a PNG. Each slide will then be a non editable image. (If you need to edit make sure you have a copy!)

WORK ON A COPY!
I would first goto View slide master

Make the Title Only Layout (about 6 down) look like the slide ie Make the Title placeholder narrower and fill it with blue + set the text size.
Now go back to Normal view and in the home tab change the layout to Title Only

Select and cut the shape with the text

Add two new text boxes and move to the correct positions. You probably need to change one of the arrows too.

Something like this maybe

This is new behaviour in versions 2007 and 2010. Not a good idea IMHO but that’s how it works.

Just an aside:
I wonder when you said set the placholders to white you really meant “No Fill”?

if so make this change

If oshp.Type = msoPlaceholder Then
oshp.Fill.Visible=msoFalse ‘ change here
If oshp.HasTextFrame Then oshp.TextFrame.TextRange.Font.Color = vbBlack
End If

You’ll need to explain a little more

Do you mean all placeholders to have a white background? Or maybe Placeholders and textboxes.
Theme Color = Black – what does that mean?? (or rather what do you think it means. Maybe text is black?

In the meantime see if this helps

Sub fixme2()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPlaceholder Then
oshp.Fill.ForeColor.RGB = vbWhite
If oshp.HasTextFrame Then oshp.TextFrame.TextRange.Font.Color = vbBlack
End If
Next oshp
Next osld
End Sub

You can do this with code:

Sub fixme()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
On Error Resume Next
If osld.Shapes.HasTitle Then _
osld.Shapes.Title.Fill.ForeColor.RGB = vbWhite
Next osld
End Sub

How to use

The “Microsoft” method does definitely work so there’s something strange going on. I can’t imagine any way it would open a slide show using this procedure.

You do have the full version of 2010 not the free viewer??

You can use the method you outline for 2003 (It shouldn’t be neccessary there either though)

Open PowerPoint – On the HOME tab choose New Slide (drop arrow) >> Reuse slides

Locate the PPSX and right click a thumbnail > Insert All

You should also be able to right click the PPSX and choose NEW

Interesting you blame Microsoft for what is basically a badly designed template. it also sounds like your “Textboxes” are actually shapes because textboxes act slightly differently.

Anyway that’s not the point of the post. If you are having difficult selecting the text here’s a couple of tricks which might help.

Double click on a word to select the word
Triple click on a line to select the whole paragraph