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

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

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

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

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

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最后點(diǎn)擊保存；4. 同樣界面下，點(diǎn)擊“運(yùn)行”下方的第一個(gè)選項(xiàng)，如圖；5. 至此，你會(huì)驚奇的發(fā)現(xiàn)：PPT中所有頁面下的所有照片已經(jīng)調(diào)整至同一個(gè)位置、同樣的大小，播放起來美觀大方。添加對(duì)比圖：END注意事項(xiàng)· 宏代碼解釋： .Left = 35.7是指圖片距離PPT頁面最左邊35.7；.Top =