PowerPoint inserts 100 pictures in ppt in one second

Source: Internet
Author: User
Tags bulk insert

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, and the module code above will be saved automatically. 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

Related Article

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

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.