#1
|
|||
|
|||
Copy formatting setting between images on the slide
Hi,
Is there a way to quickly copy formatting (size, line, line color, shadow) between pictures on the slide. I have slides with multiple pictures that all have to be formatted in the same way and changing every setting manually is veeeeeeery slow. Any help will be greatly appreciated!!! |
#2
|
|||
|
|||
Set one picture as you need.
In the HOME tab double click the format painter Click each picture ESC key to finish |
#3
|
|||
|
|||
Hi, I tried that yesterday. Format painter works for text boxes but does nothing to images, at least in my case (I'm using power point 2010).
|
#4
|
|||
|
|||
Format Painter definitely works on images (see this screencast) so there's something weird here. Are these just normal images (not a background for example)
|
#5
|
|||
|
|||
Just jpegs that I drag and drop into the slides. This issue is getting really infuriating for me:/
|
#6
|
|||
|
|||
I tried this also and could not get it to work. (excel 2007)
I even watch the short demo. We must be missing something. Thanks, Gary |
#7
|
|||
|
|||
If you use Insert> Picture and use the sample images that come with 2010 does it work?
Are you saving as a pptx? |
#8
|
|||
|
|||
Now I think I understand what's wrong.
Format only addresses Brightness, Contrast and Re-color. We are interested in re-sizing all of the pictures in a Presentation (at least I am) Gary |
#9
|
|||
|
|||
Googled and got this tip.
1. Write a macro to re-size each picture or 2. Re-size one picture to the desired size, then click on the next picture and then hit Ctrl + Y (re-do), and repeat that for each picture in the slide. HTH, Gary |
#10
|
|||
|
|||
Yeah, that's not working either.......
Here is some code I highjacked from DerbyDad03. Sub PictureSizer() For NumSlide = 1 To ActivePresentation.Slides.Count ActivePresentation.Slides(NumSlide).Select For Each Picture In ActiveWindow.Selection.SlideRange.Shapes Picture.Select Picture.LockAspectRatio = msoFalse Picture.Height = 59.88 'Change this number to fit your needs Picture.Width = 82.38 'Change this number to fit your needs Next Next End Sub |
#11
|
|||
|
|||
Try this:
Select the picture to use as a "template" then run the code: Code:
Sub resize_pics() Dim oshp As Shape Dim oPic As Shape Dim picH As Single Dim picW As Single Dim osld As Slide If ActiveWindow.Selection.Type = ppSelectionNone Then GoTo err If ActiveWindow.Selection.ShapeRange.Count <> 1 Then GoTo err Set oshp = ActiveWindow.Selection.ShapeRange(1) For Each osld In ActivePresentation.Slides For Each oPic In osld.Shapes If oPic.Type = msoPicture Then picW = oPic.Width picH = oPic.Height oPic.LockAspectRatio = True oPic.Width = oshp.Width oPic.Left = oPic.Left - (oshp.Width - picW) / 2 oPic.Top = oPic.Top - (oshp.Height - picH) / 2 End If If oPic.Type = msoPlaceholder Then If oPic.PlaceholderFormat.ContainedType = msoPicture Then picW = oPic.Width picH = oPic.Height oPic.LockAspectRatio = True oPic.Width = oshp.Width oPic.Left = oPic.Left - (oshp.Width - picW) / 2 oPic.Top = oPic.Top - (oshp.Height - picH) / 2 End If End If Next oPic Next osld Exit Sub err: MsgBox "Please select ONE shape and retry!", vbCritical End Sub |
#12
|
|||
|
|||
A little office add on called PPTools can copy format between images but I noticed that it doesn't always work consistently.
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Is it possible to link images to formatting styles? | ChuckR | Word | 3 | 01-26-2012 11:52 AM |
slide image wont copy with text to new slide | lewis.mulhollen | PowerPoint | 1 | 12-17-2011 03:17 AM |
Urgent/Slide images printing black background | JBR | PowerPoint | 0 | 04-13-2011 11:58 AM |
copy-pasting hyperlinked images: work only at the edges | Xuanzang | PowerPoint | 0 | 12-07-2010 02:35 AM |
how to copy a slide with a custom background | Homerunking | PowerPoint | 0 | 07-23-2009 12:08 AM |