Results 1 to 9 of 9
  1. #1
    4 Star Lounger
    Join Date
    Aug 2001
    Location
    Anaheim, California, USA
    Posts
    560
    Thanks
    17
    Thanked 2 Times in 2 Posts
    I have several TIFF files, that contain 10 to 30 pages. They are scanned from Photo Albums. What I want to do is to import each page into a PowerPoint presentation. I can do this by going to each page, selecting all items, Copy Image, then go to PP and paste the image. For some reason, the image being pasted is always sized at about 16" x 12". (I am using this presentation as a Portrait layout.) The original is

    I can then resize the image to 10" x 7.7" and then center it on the page.

    I have tried selecting them all by selecting a picture in one, then holding down CTRL (and Shift) then scrolling down to the next slide and selecting the one on that page. I have also tried selecting all in Slide Sorter View and in the Slide pane. When I do that, my only formatting options are for the slides themselves, not any of the objects on the slide.

    Is there a way to select all the pictures in a presentation and size them all at once? For a bonus, it would be great if I could center them all on the page at the same time also.

    I am using Powerpoint 2003. This is a one time thing, so far, so if it's not something that PP is capable of doing, it probably isn't worth using code, unless it's very simple.

    Thanks in advance for help with this.

  2. #2
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Surrey, United Kingdom
    Posts
    1,001
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Evening

    Have you tried

    - Insert
    - Picture
    - New Photo Album
    - File / Disk and then navigate to where the photos are stored
    - Hold down 'Ctrl' and click on each picture that you want to select
    - Then click insert
    - Select fit to slide
    - Click create

    Each slide will now contain 1 picture the fills the entire screen

    You can also follow the above and at the penultimate point select 1 picture per slide and each page will have one picture with a small border.

    HTH

    Cheers

    Steve
    Cheers

    Steve

    Asking the questions everbody wants the answers too but feels too stupid to ask themselves :-)

  3. #3
    4 Star Lounger
    Join Date
    Aug 2001
    Location
    Anaheim, California, USA
    Posts
    560
    Thanks
    17
    Thanked 2 Times in 2 Posts
    Hi Steve,

    Thanks for the response. The problem is that the TIFF file that I am pulling from is one document, with many pictures in the document. When I use the Photo Album feature, it only imports the first page of the document.

  4. #4
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Surrey, United Kingdom
    Posts
    1,001
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Morning

    As a quick thought how about putting all of the pictures on one slide

    - Ctrl 'A' to select them all
    - Right click the top one
    - Properties
    - Size
    - Select the height and width you want and click OK

    All of the pictures will now be the same size.

    You would then need to put each slide onto its own slide, still cumbersome but maybe quicker.

    Cheers

    Steve
    Cheers

    Steve

    Asking the questions everbody wants the answers too but feels too stupid to ask themselves :-)

  5. #5
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Surrey, United Kingdom
    Posts
    1,001
    Thanks
    0
    Thanked 0 Times in 0 Posts
    [quote name='donebb' post='762945' date='02-Mar-2009 23:29']Hi Steve,

    Thanks for the response. The problem is that the TIFF file that I am pulling from is one document, with many pictures in the document. When I use the Photo Album feature, it only imports the first page of the document.[/quote]

    Hi Don

    How about going down the macro route

    - Alt + F11 to opn the VBA screen
    - Insert - Module
    - Copy this code and paste into the module

    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 = 250 'Change this number to fit your needs
    Picture.Width = 325 'Change this number to fit your needs
    Next
    Next
    End Sub

    I have played around with the width and height, the numbers aove will make your pictures 3.5 x 4.5 inches

    - Click on tools and select Macro and Macros
    - Select the Pictureresizer macro and click run

    This will convert all of the pictures in the presentation to the size you want them.

    Thanks for the code should be directed here Convert Picture Size, my skills are confined to Google searches :-)

    Cheers

    Steve
    Cheers

    Steve

    Asking the questions everbody wants the answers too but feels too stupid to ask themselves :-)

  6. #6
    3 Star Lounger
    Join Date
    Feb 2007
    Location
    Durham, Durham, United Kingdom
    Posts
    286
    Thanks
    0
    Thanked 10 Times in 10 Posts
    I'd bet any amount that code wasn't written by a PowerPoint coder! PowerPoint is fairly smart so it should work it out but you might find this code more efficient.

    As a general rule always try to avoid .select and declare your variables!

    Code:
    Sub Resize_Pics()
    'Always declare variables!
    Dim osld As Slide
    Dim oshp As Shape
    '********************
    For Each osld In ActivePresentation.Slides
    For Each oshp In osld.Shapes
    If oshp.Type = msoPicture Then
    With oshp
    .LockAspectRatio = msoFalse
    .Width = 250
    .Height = 325
    End With
    End If
    Next oshp
    Next osld
    End Sub

  7. #7
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Surrey, United Kingdom
    Posts
    1,001
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Hi John

    It was not my initial query but I am interested now as to why the other solution was not very good, its not my macro so this is not being protective of it :-) but it worked as I described in the above post immediately I clicked run.

    Just out of interest I thought I would run yours to comapre them.

    I have created a new album, selected -ALT F11 - New Macro - Copied your Macro into it - selected Tools - Macro - 'Resize_Pics' - Run but nothing has happened?

    Am I missing something?

    Cheers

    Steve
    Cheers

    Steve

    Asking the questions everbody wants the answers too but feels too stupid to ask themselves :-)

  8. #8
    3 Star Lounger
    Join Date
    Feb 2007
    Location
    Durham, Durham, United Kingdom
    Posts
    286
    Thanks
    0
    Thanked 10 Times in 10 Posts
    [quote name='stevehocking' post='764376' date='09-Mar-2009 14:35']Hi John

    It was not my initial query but I am interested now as to why the other solution was not very good, its not my macro so this is not being protective of it :-) but it worked as I described in the above post immediately I clicked run.

    Just out of interest I thought I would run yours to comapre them.

    I have created a new album, selected -ALT F11 - New Macro - Copied your Macro into it - selected Tools - Macro - 'Resize_Pics' - Run but nothing has happened?

    Am I missing something?

    Cheers

    Steve[/quote]

    Hi Steve

    "Pictures" in an album are not really Pictures but shapes filled with pictures.

    To adapt my code for this use:

    Code:
    Sub Resize_Pics()
    'Always declare variables!
    Dim osld As Slide
    Dim oshp As Shape
    '********************
    For Each osld In ActivePresentation.Slides
    For Each oshp In osld.Shapes
    If oshp.Type = msoPicture _
    Or oshp.Fill.Type = msoFillPicture Then
    With oshp
    .LockAspectRatio = msoFalse
    .Width = 325
    .Height = 250
    End With
    End If
    Next oshp
    Next osld
    End Sub
    What's wrong with the original:

    PICTURE is used as an undeclared object variable so PowerPoint has no idea what type of object it is (calling it PICTURE doesn't help) In this case PPT would assume it was a shape (not a picture) and ALL shapes would resize. If you have a standard photo album this might work but only if there were no other shapes, textboxes, placeholders etc.

    SELECT is nearly always a bad idea as it is slow and often caused the screen to flicker. Also in the code given it (Picture.Select) doesn't actually do anything (take it out and see).

    I wasn't meaning anyone to be defensive but bad code needs pointing out!

    J

  9. #9
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Surrey, United Kingdom
    Posts
    1,001
    Thanks
    0
    Thanked 0 Times in 0 Posts
    [quote name='JohnWilson' post='764433' date='09-Mar-2009 18:41']I wasn't meaning anyone to be defensive but bad code needs pointing out!
    J[/quote]

    Hi John

    Thanks for the explaination, all code is a learning curve for me and as mentioned that was not my code but something that I found on the web and seemed to work OK, that was the only reson that I asked what the diferene was.

    I can see your code working in an album now and I also understand the difference with shapes etc. so a good learning curve for me.
    Cheers

    Steve

    Asking the questions everbody wants the answers too but feels too stupid to ask themselves :-)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •