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

Microsoft PowerPoint Presentation 2013

由于我們需要用到宏來(lái)一鍵解決，所以我們需要把PPT中的宏功能打開(kāi)。

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

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

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

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

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

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

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

彈出的頁(yè)面中開(kāi)始新建宏，具體看圖片指引；

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

Sub adjust()

   Dim mySlide As Slide

   Dim myShape As Shape, i_Temp As Integer

   On Error Resume Next

手動(dòng)留空行，復(fù)制時(shí)此行文字全部刪除，留下一個(gè)空白行

   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

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

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

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

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

·