一鍵調(diào)整PPT所有頁面上所有照片的位置和大小

MicrosoftPowerPoint Presentation 2013

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

點(diǎn)開PPT左上角的“文件”選項(xiàng)；

彈出的界面中點(diǎn)擊“選項(xiàng)”；

彈出的界面中點(diǎn)擊“信任中心”；

再點(diǎn)擊此頁面中右方的“信任中心設(shè)置”；

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

*如果覺得有風(fēng)險，完事之后可以關(guān)閉。

點(diǎn)擊PPT選項(xiàng)卡“視圖”下方的“宏”選項(xiàng)；

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

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

Sub adjust()

   Dim mySlide As Slide

   Dim myShape As Shape, i_Temp AsInteger

   On Error Resume Next

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

   For Each mySlide InActivePresentation.Slides

      For Each myShapeIn mySlide.Shapes

        IfmyShape.Type = msoPicture Then

          With myShape

            .Left = 0

            .Top = 0

            .Height = 540

            .Width = 720

          End With

        EndIf

     Next

   Next

 End Sub

最后點(diǎn)擊保存；最后點(diǎn)擊保存；

同樣界面下，點(diǎn)擊“運(yùn)行”下方的第一個選項(xiàng)，如圖；

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

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

·