Inserting multiple photographs into a Portrait powerpoint doc - Microsoft Community


good day all

i'm trying drop load of photos portrait orientation powerpoint, goal of them being printed 2 (landscape orientation)photos  per page, 1 above other, on portrait orientation a4 pages, appending report.

now, understand how insert multiple photos powerpoint, using photo album icon on insert tab.

i understand how rotate slides portrait orientation, using design tab choosing slide size > custom slide size options choose portrait.

however, if slides set portrait first, revert landscape once album inserted. not problem itself, slides can set portrait orientation afterwards. problem in doing so, pages appear large white expanses @ top , bottom, 2 small pictures side side across centre. ideally, want insert photos appear 2 per page, large photos (approx. half page) appearing 1 above other. (hopefully make sense!)

i appreciate can drop photos portrait word or powerpoint doc 1 one, there must better, faster way of achieving manual insertion, sizing , positioning of each individual photo surely!

hope out there has answer!

jerome

you need use code arrange pics.

alt f11 open code editor , insert >> module

paste in code , f5 run (use copy of presentation in case)

you might need adjust various numbers.

sub fixalbum()
   dim opic shape
   dim osld slide
   dim num long
   for each osld in activepresentation.slides
      each opic in osld.shapes
         if opic.type = msopicture then
            num = num + 1
            select case num
            case = 1
               opic.width = activepresentation.pagesetup.slidewidth - 40
               opic.left = 20
               opic.top = 80
            case = 2
               opic.width = activepresentation.pagesetup.slidewidth - 40
               opic.left = 20
               opic.top = 80 + opic.height + 10
            end select
         end if
      next opic
      num = 0
   next osld
end sub



Office / PowerPoint / Windows 10 / Office 365 for business



Comments

Popular posts from this blog

Outlook Rules not Running Automatically - Microsoft Community

message deleted by transport agent, event: LED=550 4.3.2 - Microsoft Community

Microsoft Office Exchange Error message - Microsoft Community