技術員聯(lián)盟提供win764位系統(tǒng)下載,win10,win7,xp,裝機純凈版,64位旗艦版,綠色軟件,免費軟件下載基地!

當前位置:主頁 > 教程 > 軟件教程 > PowerPoint教程 >

PowerPoint怎樣快速批量插入圖片

來源:技術員聯(lián)盟┆發(fā)布時間:2018-02-20 06:14┆點擊:

  實現(xiàn)目標:將100張圖片分別放到100頁幻燈片里。

  首先準備好需要使用的圖片,將其保存在同一個文件夾中,文件名是有序的數(shù)字:1.jpg,2.jpg……,100.jpg

  接著,將當前PPT文件和圖片們也保存在同一個文件夾中。

  然后,在PPT里點擊菜單“工具→宏→宏”,打開“宏”窗口,給將要編寫的程序取個名。

PowerPoint怎樣快速批量插入圖片   三聯(lián)

  之后鼠標點擊“創(chuàng)建”按鈕,即進入Visual Basic編輯器界面,編寫代碼。

PPT之如何快速批量插入圖片 - wangpfsir - wangpfsir的博客

  Sub photos()

  Dim i As Integer

  For i = 2 To 100

  ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex

  ActivePresentation.Slides(i).Select

  With ActiveWindow.Selection.SlideRange

  .FollowMasterBackground = msoFalse

  .Background.Fill.UserPicture i & ".jpg"

  End With

  Next

  End Sub

  解釋一下上面的代碼:

  ◆ 因為新建的PPT已經(jīng)有一頁幻燈片了,所以循環(huán)語句從2開始,到100。

  ◆ 最長的那行代碼的作用是插入一頁幻燈片,ppLayoutBlank 表示插入的幻燈片是空白型的。

  ◆ Background所在的那行代碼,是將圖片作為幻燈片的背景圖。

  上面的程序,新插入了99頁幻燈片,然后為每一頁幻燈片設置了背景圖片,并不是真的將圖片插入到幻燈片了。還有,第一張幻燈片并沒有被操作到,需要手動操作。

  如果要確實是將圖片插入到幻燈片,那么上面的程序修改為如下:

  Sub photos()

  Dim i As Integer

  For i = 2 To 100

  ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex

  ActivePresentation.Slides(i).Select

  With ActiveWindow.Selection.SlideRange

  ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:= i & ".JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=173, Top:=129, Width:=574, Height:=481).Select

  End With

  Next

  End Sub

  注:圖片尺寸最后是一樣的,如果不是,那就要手動修改。