一鍵調整PPT所有頁面上所有照片的位置和大小

Microsoft PowerPoint Presentation 2013

由于我們需要用到宏來一鍵解決，所以我們需要把PPT中的宏功能打開。

點開PPT左上角的“文件”選項；

彈出的界面中點擊“選項”；

彈出的界面中點擊“信任中心”；

再點擊此頁面中右方的“信任中心設置”；

彈出的頁面中點擊“宏設置”，選擇“啟用所有宏（不推薦；可能會運行有潛在危險的代碼）”，“信任對VBA工程對象模型的訪問”前面的復選框打勾，如圖所示，完成之后點擊確定關閉，至此，PPT的宏功能已經(jīng)打開；

*如果覺得有風險，完事之后可以關閉。

點擊PPT選項卡“視圖”下方的“宏”選項；

彈出的頁面中開始新建宏，具體看圖片指引；

在彈出的宏設置界面中刪除初始所有代碼，再復制如下代碼：

Sub adjust()

   Dim mySlide As Slide

   Dim myShape As Shape, i_Temp As Integer

   On Error Resume Next

手動留空行，復制時此行文字全部刪除，留下一個空白行

   For Each mySlide In ActivePresentation.Slides

      For Each myShape In mySlide.Shapes

        If myShape.Type = msoPicture Then

           With myShape

             .Left = 0

             .Top = 0

             .Height = 540

             .Width = 720

           End With

        End If

     Next

   Next

 End Sub

最后點擊保存；最后點擊保存；

同樣界面下，點擊“運行”下方的第一個選項，如圖；

至此，你會驚奇的發(fā)現(xiàn)：PPT中所有頁面下的所有照片已經(jīng)調整至同一個位置、同樣的大小，播放起來美觀大方。

宏代碼解釋： .Left = 0是指圖片距離PPT頁面最左邊0；.Top = 0是指圖片距離PPT頁面頂端0；.Height = 540是指圖片高度540；.Width = 720是指圖片寬度720。通過各個參數(shù)實現(xiàn)對各個圖片大小、位置進行精確調整

·