Two Questions

[Jim]

I am not sure if this should go in here or the VBA group but I have 2
questions

I am using Powerpoint 2007

Is there a way in VBA to delete all the footer and date placeholders
in the slide master og my prsentation. I do not use them and I have a
lot of slide master slide in the presentation

Also is there a way in VBA to format all pictures in my presentation
so that they use the "soft edge rectangle" format and the "rounded
Rectangle" picture shape. I have a full day presentation so it is a
lot of pictures to change

TIA

 

[John Wilson]

Q2
Code here should help
http://www.pptalchemy.co.uk/vbasamples.html

 

[Jim]

i figure out how to delete all the footer placeholder but I have not
quite figured out the second Question so let me try and explain

I have a very large presentation(full day) that i want all of the
images to have a specific format In this case a "Soft Edge Rectangle"
picture Style and a "rounded Rectangle" Picture shape (i am using PPT
2007). Some slides use standard styles (of which there are about 30)
and some layouts are unque to a single slide

I would like to go through the slide master (in VBA) and go through
each slide in the slide master and change all the "content place
holders" and "picture placeholders" to reflect the soft edge/rounded
rectangle style

Then to pick up the rest of the slides (ie the unque ones) I would
like to go through the slide presentation and change all the images
to reflect the soft edge/rounded rectangle style

I hope this is clear THANKS FOR YOUR HELP

 

[Jim]

Ahh: I did not read the macro link carefully that you sent and see
how it works. Sorry.


So iassume this is themacro you suggessed

Sub All_Pics()
'this is for 2007 only
Dim osld As Slide
Dim oshp As Shape
If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
Set oshp = ActiveWindow.Selection.ShapeRange(1)
ActiveWindow.Selection.ShapeRange(1).PickUp
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then oshp.Apply
If oshp.Type = msoPlaceholder Then
If oshp.PlaceholderFormat.ContainedType = msoPicture
Then oshp.Apply
End If
Next oshp
Next osld
End Sub



I guess my question should be if I do not want to use the "PickUp"
command (ie define a "reference format" is there a way "see" the
parameters that are being "PickUped"


TIA