PowerPoint Quick Insert 100 picture tips

Source: Internet
Author: User
Tags bulk insert

When Microsoft Office and Microsoft VB in the macro features meet, you can create powerful features, such as in this article on the use of these two tools to insert hundreds of images in an instant.

What would you do if you were to insert dozens of or even hundreds of of pictures and ask each picture to be inserted on each slide page (that is, there are several slides)?

It's a waste of time to click on the "insert → picture → from file" menu command, and then choose the picture you want, or click the "format → background" command to import the picture as a background for PowerPoint. In this case, you can use PowerPoint's powerful macro functionality to combine MULTI-STEP operations into one step and bulk insert pictures.

The first step: Prepare the picture first, assume in the Pictures folder below C disk has 100 jpg picture, such as "c:pictures1.jpg", "c:pictures2.jpg", "c:pictures3.jpg" and so on, The file name is an ordered number

Step two: Start PowerPoint 2003, press ALT+F11 to open the Visual Basic Editor window, click the Insert → module menu command, and enter the following code in the pop-up Code editing window:

Sub Insertpic ()

Dim I as Integer

For i = 1 to ActivePresentation.Slides.Count

ActivePresentation.Slides (i). Select

With ActiveWindow.Selection.SlideRange

. FollowMasterBackground = MsoFalse

. Background.Fill.UserPicture "C:pictures" & I & ". jpg"

End With

Next

End Sub

Step Three: Close the Visual Basic Editor window, where the module code is automatically saved. At this point, press ctrl+m continuously to create multiple blank slides that are equal to the number of pictures (for example: 100). Press Alt+f8 to open the Macro dialog box, select the INSERTPIC macro we established above, click "Run", 100 pictures will be automatically inserted into the slide.

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.