1、一鍵調整PPT所有頁面上所有照片的位置和大小聽語音·· |· 瀏覽：316· |· 更新：2017-12-18 15:09· |· 標簽：PPT · 1· 2· 3· 4· 5· 6· 7分步閱讀有時我們需要在PPT中批量導入照片，每頁一張，具體方法可以參照 zffhnnfr7jv 發布的經驗。導入完畢之后，每張頁面上一張照片，每個頁面上的照片位置、大小都是一樣的。那各位可能有疑問，既然每個頁面上的每張照片大小、位置都是一樣的，不是滿足要求了么，

2、為什么還要調整？很多時候企業的PPT模板都有LOGO，提示語等，插入照片之后很有可能就擋住了這些LOGO以及提示語，自然影響美觀，遇到個苛刻的老板自然是不能接受的事情，這個時候我們就需要對每個頁面的每張照片的位置進行調整，很多時候大小也需要進行調整。一頁、兩頁PPT可以接受，手動調整即可，但是200頁PPT呢？那得花費大量時間，而且手動調整的大小、位置絕不可能一致，播放起來來回跳動，美觀性、觀賞性太差。這里介紹下如何一鍵調整PPT中所有頁面上的所有照片的位置和大小。1ppt如何批量將不同的圖片插入到不同的幻燈片?工具/原料· Microsoft PowerPoint Presenta

3、tion 2013打開PPT宏設置1. 1由于我們需要用到宏來一鍵解決，所以我們需要把PPT中的宏功能打開。點開PPT左上角的“文件”選項；2. 2彈出的界面中點擊“選項”；3. 3彈出的界面中點擊“信任中心”；4. 4再點擊此頁面中右方的“信任中心設置”；5. 5彈出的頁面中點擊“宏設置”，選擇“啟用所有宏（不推薦；可能會運行有潛在危險的代碼）”，“信任對VBA工程對象模型的訪問”前面的復選框打勾，如圖所示，完成之后點擊確定關閉，至此，PPT的宏功能已經打開；*如果覺得有風險，完事之后可以關閉。END建立新宏進行調整1. 點擊PPT選項卡“視圖”下方的“宏”選項；2. 彈出的頁面中開始新建宏

4、，具體看圖片指引；3. 在彈出的宏設置界面中刪除初始所有代碼，再復制如下代碼：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

5、In mySlide.Shapes        If myShape.Type = msoPicture Then           With myShape             .Left = 35.7        &

6、#160;    .Top = 50             .Height = 432             .Width = 648           End With        End If     Next   Next End Sub最后點擊保存；4. 同樣界面下，點擊“運行”下方的第一個選項，如圖；5. 至此，你會驚奇的發現：PPT中所有頁面下的所有照片已經調整至同一個位置、同樣的大小，播放起來美觀大方。添加對比圖：END注意事項· 宏代碼解釋： .Left = 35.7是指圖片距離PPT頁面最左邊35.7；.Top =