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

一鍵調(diào)整PPT所有頁(yè)面上所有照片的位置和大小聽(tīng)語(yǔ)音 | 瀏覽：316 | 更新：2017-12-18 15:09 | 標(biāo)簽：PPT 1 2 3 4 5 6 7分步閱讀有時(shí)我們需要在PPT中批量導(dǎo)入照片，每頁(yè)一張，具體方法可以參照 zffhnnfr7jv 發(fā)布的經(jīng)驗(yàn)。導(dǎo)入完畢之后，每張頁(yè)面上一張照片，每個(gè)頁(yè)面上的照片位置、大小都是一樣的。那各位可能有疑問(wèn)，既然每個(gè)頁(yè)面上的每張照片大小、位置都是一樣的，不是滿足要求了么，為什么還要調(diào)整？很多時(shí)候企業(yè)的PPT模板都有LOGO，提示語(yǔ)等，插入照片之后很有可能就擋住了這些LOGO以及提示語(yǔ)，自然影響美觀，遇到個(gè)苛刻的老板自然是不能接受的事情，這個(gè)時(shí)候我們就需要對(duì)每個(gè)頁(yè)面的每張照片的位置進(jìn)行調(diào)整，很多時(shí)候大小也需要進(jìn)行調(diào)整。一頁(yè)、兩頁(yè)P(yáng)PT可以接受，手動(dòng)調(diào)整即可，但是200頁(yè)P(yáng)PT呢？那得花費(fèi)大量時(shí)間，而且手動(dòng)調(diào)整的大小、位置絕不可能一致，播放起來(lái)來(lái)回跳動(dòng)，美觀性、觀賞性太差。這里介紹下如何一鍵調(diào)整PPT中所有頁(yè)面上的所有照片的位置和大小。1ppt如何批量將不同的圖片插入到不同的幻燈片?工具/原料 Microsoft PowerPoint Presentation 2013打開(kāi)PPT宏設(shè)置1. 1由于我們需要用到宏來(lái)一鍵解決，所以我們需要把PPT中的宏功能打開(kāi)。點(diǎn)開(kāi)PPT左上角的“文件”選項(xiàng)；2. 2彈出的界面中點(diǎn)擊“選項(xiàng)”；3. 3彈出的界面中點(diǎn)擊“信任中心”；4. 4再點(diǎn)擊此頁(yè)面中右方的“信任中心設(shè)置”；5. 5彈出的頁(yè)面中點(diǎn)擊“宏設(shè)置”，選擇“啟用所有宏（不推薦；可能會(huì)運(yùn)行有潛在危險(xiǎn)的代碼）”，“信任對(duì)VBA工程對(duì)象模型的訪問(wèn)”前面的復(fù)選框打勾，如圖所示，完成之后點(diǎn)擊確定關(guān)閉，至此，PPT的宏功能已經(jīng)打開(kāi)；*如果覺(jué)得有風(fēng)險(xiǎn)，完事之后可以關(guān)閉。END建立新宏進(jìn)行調(diào)整1. 點(diǎn)擊PPT選項(xiàng)卡“視圖”下方的“宏”選項(xiàng)；2. 彈出的頁(yè)面中開(kāi)始新建宏，具體看圖片指引；3. 在彈出的宏設(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 = 35.7 .Top = 50 .Height = 432 .Width = 648 End With End If Next NextEnd Sub最后點(diǎn)擊保存；4. 同樣界面下，點(diǎn)擊“運(yùn)行”下方的第一個(gè)選項(xiàng)，如圖；5. 至此，你會(huì)驚奇的發(fā)現(xiàn)：PPT中所有頁(yè)面下的所有照片已經(jīng)調(diào)整至同一個(gè)位置、同樣的大小，播放起來(lái)美觀大方。添加對(duì)比圖：END注意事項(xiàng) 宏代碼解釋?zhuān)?.Left = 35.7是指圖片距離PPT頁(yè)面最左邊35.7；.Top = 50是指圖片距離PPT頁(yè)面頂端50；.Height = 432是指圖片