#1
|
|||
|
|||
Replacing backgrounds
I was given a large number of PowerPoints slides that are in a 3:4 ratio. I need to convert them to 16:9. so they can be embedded in a video.
Is there a way to place them on a black 16:9 background without distoring the original slide. The slides have already been batched to the correct size to fill the background by height.. now I need to automate placing them on or replacing the placing the background. Any suggestions?? Thanks |
#2
|
|||
|
|||
This code should add a black background
Code:
Sub blackBack() Dim osld As Slide For Each osld In ActivePresentation.Slides osld.FollowMasterBackground = False osld.Background.Fill.Solid osld.Background.Fill.ForeColor.RGB = vbBlack Next osld End Sub |
#3
|
|||
|
|||
Thanks....but
I tried your script and either I'm not doing it right or something else.
I saved the ppt to a pptm format and then opened it and went to macros and created and pasted in your script.. I then hit run, but nothing seems to happen.... what am I missing... thanks |
#4
|
|||
|
|||
Hard to say what you are missing but it does work!
Copy the code Alt f11 (opens VBeditor) Insert > Module Paste in the code f5 to run it. http://screencast.com/t/6PYMkulGvK |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Colour code mail merge header table cell backgrounds | ScotsMaverick | Mail Merge | 25 | 11-04-2021 02:07 PM |
Convert a word document in an empty one with backgrounds | Esgrimidor | Word VBA | 11 | 12-03-2012 03:44 PM |
How to "print" backgrounds to PDF | randy.pare | Drawing and Graphics | 0 | 12-09-2010 12:05 PM |
Code for Changing Cell Backgrounds | leroytrolley | Excel | 2 | 12-05-2008 02:05 AM |
Question concerning Backgrounds and fading. | NYCorBUST | PowerPoint | 2 | 12-29-2005 09:05 AM |