PPT如何快速批量插入图片
如何快速往PPT中插入100张图片，甚至更多的图片吗？既然是批量处理肯定不能依靠手工啦！利用宏编程可以快速实现！实现目标：将100张图片分别放到100页幻灯片里。
首先准备好需要使用的图片，将其保存在同一个文件夹中，文件名是有序的数字：1.jpg，2.jpg……，100.jpg
接着，将当前PPT文件和图片们也保存在同一个文件夹中。
然后，在PPT里点击菜单“工具→宏→宏”，打开“宏”窗口，给将要编写的程序取个名。
之后鼠标点击“创建”按钮，即进入Visual Basic编辑器界面，编写代码。
Sub photos()
Dim i As Integer
For i = 2 To100
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.UserPicture i & ".jpg"
End With
Next
End Sub
解释一下上面的代码：
◆ 因为新建的PPT已经有一页幻灯片了，所以循环语句从2开始，到100。
◆ 最长的那行代码的作用是插入一页幻灯片，ppLayoutBlank 表示插入的幻灯片是空白型的。
◆ Background所在的那行代码，是将图片作为幻灯片的背景图。
上面的程序，新插入了99页幻灯片，然后为每一页幻灯片设置了背景图片，并不是真的将图片插入到幻灯片了。还有，第一张幻灯片并没有被操作到，需要手动操作。
如果要确实是将图片插入到幻灯片，那么上面的程序修改为如下：
Sub photos()
Dim i As Integer
For i = 2 To100
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:= i & ".JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=173, Top:=129, Width:=574, Height:=481).Select
End With
Next
End Sub
注：图片尺寸最后是一样的，如果不是，那就要手动修改。
绛旓細4. 鎺ヤ笅鏉ワ紝鎮ㄥ彲浠ラ氳繃澶嶅埗绮樿创鏂瑰紡灏嗚繖浜涘凡缁忔帓鐗堝ソ鐨鍥惧儚澶嶅埗鍒板叾浠栭〉闈㈡垨骞荤伅鐗涓娿傚笇鏈涜繖浜涙楠よ兘澶熷府鍔╂偍瀹屾垚灏嗗寮鍥剧墖鎵归噺骞抽摵浜庢暣寮PPT涓婄殑鎿嶄綔銆1. 棣栧厛鎴戜滑瀵煎叆涓浜涘浘鐗囷紝骞跺皢鍥剧墖闅忔満閿欒惤鎽嗘斁锛岀劧鍚庡叏閫夊浘鐗囷紝缁勫悎鍥剧墖锛岀偣鍑讳笁缁存棆杞搴﹂忚锛屽乏X鏃嬭浆浜斿崄锛岄忚瑙掑害鍏崄銆2. 澶嶅埗涓浠介夋嫨鎬х矘璐...
绛旓細鑻ヨ鍦PPT涓揩閫熸壒閲忓鍏ュ浘鐗骞舵帓鐗堬紝璇烽伒寰互涓嬫楠わ細1. 灏嗘墍鏈夐渶瑕佸鍏ョ殑鍥剧墖鏀惧湪鍚屼竴涓枃浠跺す涓傚缓璁姣忎釜鍥惧儚鏂囦欢杩涜缂栧彿鎴栧懡鍚嶄互绠鍖栨帓搴忋2. 鎵撳紑PowerPoint杞欢锛屽苟鎵撳紑鎮ㄨ鎻掑叆鍥剧墖鐨骞荤伅鐗銆3. 鍦ㄥ够鐏墖涓婏紝鍗曞嚮鈥滄彃鍏モ濋夐」鍗★紝鍦ㄢ滄彃鍏モ濋夐」鍗′腑锛屽崟鍑烩滃浘鐗団濓紝鐒跺悗浠庢枃浠跺す涓夋嫨瑕...
绛旓細褰撳井杞殑Office涓庡井杞疺B涓殑瀹忓姛鑳界浉閬囨椂锛屼究鍙互鍒涢犲嚭寮哄ぇ鐨勫姛鑳斤紝渚嬪鍦ㄨ繖绡囨枃绔犱腑灏变粙缁嶄簡鍒╃敤杩欎袱涓伐鍏风灛闂存彃鍏ヤ笂鐧惧紶鍥剧墖銆 濡傛灉瑕佹彃鍏ュ嚑鍗佺敋鑷冲嚑鐧惧紶鍥剧墖锛屽苟涓旇姹傛瘡寮鍥剧墖鎻掑叆鍒版瘡寮骞荤伅鐗椤甸潰涓婏紙鍗虫湁鍑犲紶鐓х墖灏辫鏈夊嚑寮犲够鐏墖锛変綘浼鎬庝箞鍋氾紵鎸夌収甯哥敤鐨勬柟娉曠偣鍑烩滄彃鍏モ啋鍥剧墖鈫掓潵鑷枃浠垛濊彍鍗...
绛旓細鏈暀绋嬩富瑕佺粰鍚勪綅浜蹭滑璁茶В浜嗗湪PPT涓涓娆℃ф彃鍏ュ寮犲浘鐗囩殑鎿嶄綔锛岄渶瑕佷簡瑙ｇ殑浜蹭滑鍙互涓璧峰幓鐪嬬湅涓嬫枃鍦≒PT涓竴娆℃ф彃鍏ュ寮犲浘鐗囩殑鏂规硶锛屽笇鏈涜兘澶熷府鍔╁埌澶у銆傛墦寮PPT骞荤伅鐗锛屾柊寤轰竴涓┖鐧藉够鐏墖銆傚鏂板缓鍑犱釜骞荤伅鐗囷紝鍙抽敭-鏂板缓骞荤伅鐗囥傜偣鍑绘彃鍏-鍥剧墖-鍒嗛〉鎻掑叆鍥剧墖鎸夐挳銆傛壘鍒板浘鐗囧瓨鍌ㄤ綅缃紝澶氬紶鍥剧墖鐨勮瘽锛屾寜浣...
绛旓細Wps ppt鎵归噺瀵煎叆鍥剧墖鐨勬柟娉曪細1.棣栧厛鎵撳紑wps婕旂ず骞堕夋嫨鈥滄彃鍏モ濊彍鍗曚腑鐨勨滃浘鐗団濇寜閽2.鐐瑰嚮鈥滃浘鐗団濇寜閽悗锛岄夋嫨鏂扮浉鍐屽苟鐐瑰嚮鈥滄墦寮鈥濇寜閽3.涓烘枃浠跺拰纾佺洏閫夋嫨瑕佹彃鍏ョ殑鍥剧墖(閫夋嫨涓寮骞荤伅鐗鐨勫竷灞骞堕夋嫨鍚堥傜殑鐩告)-鍒涘缓銆
绛旓細澶氬紶鍥剧墖鍦≒PT閲屼竴娆℃ф彃鍏ワ紝鍙渶鍑犵鐨勬椂闂达紒鎿嶄綔姝ラ锛氱偣鍑汇愭彃鍏ャ-銆愮浉鍐屻-銆愭柊寤虹浉鍐屻戯紝鏉ユ簮浜庛愭枃浠/纾佺洏銆戯紝閫夋嫨闇瑕佺殑鍥剧墖,鐐瑰嚮銆愬垱寤恒戙傚叿浣撴搷浣滅湅涓嬪浘锛PPT濡備綍鎵归噺鎻掑叆鍥剧墖 PPT鎵归噺鎻掑叆鍥剧墖鍔ㄧ敾鏁欑▼
绛旓細涓轰簡澧炲己鏂囩鐨勫彲瑙嗘э紝鍦≒PT涓彃鍏ュ浘鐗囨槸涓椤瑰熀鏈殑鎿嶄綔銆ppt濡備綍鎻掑叆鍥剧墖锛屾彃鍏ョ殑鍥剧墖澶ぇ锛屽浣曠紪杈戝浘鐗囷紝PPT鍙堝浣鎵归噺鎻掑叆鍥剧墖绛夌瓑闂銆傛湰鏂囧仛涓涓灏界殑浠嬬粛銆傜涓锛宲pt鎻掑叆鍥剧墖鐨勫熀纭鏂规硶 鎻掑叆鍥剧墖鏄痯pt鐨勬渶鍩烘湰鐨勫唴瀹广傛柟娉曟槸鍗曞嚮鑿滃崟鈥滄彃鍏モ濃啋鈥滃浘鐗団濃啋鈥滄潵鑷枃浠垛︹濃啋鈥滄彃鍏ュ浘鐗団濆璇濇锛...
绛旓細濡備綍閫氳繃閫夐」鎻掑叆骞荤伅鐗婕旂ず鏂囩鏄敱涓寮犲紶骞荤伅鐗囩粍鎴愮殑锛屽畠鐨勬暟閲忓苟涓嶆槸鍥哄畾鐨勶紝鍙牴鎹渶瑕佸鍔犳垨鍑忓皯銆傚鏋滄柊寤虹殑鏄┖鐧芥紨绀烘枃绋匡紝鍒欏彧鑳界湅鍒颁竴寮犲够鐏墖锛屽叾浠栧够鐏墖閮介渶瑕佽嚜琛屾柊寤恒傜敤鎴峰彲浠ラ氳繃閫夐」鎻掑叆骞荤伅鐗囥傛楠1锛氬崟鍑绘枃浠 鎵撳紑鍛戒护锛屾墦寮涓涓紨绀烘枃绋 姝ラ2锛氬湪鏅氳鍥句腑锛岄夋嫨骞荤伅鐗囬夐」鍗′腑...
绛旓細濡備綍蹇寰PPT涓彃鍏100寮鍥剧墖锛岀敋鑷虫洿澶氱殑鍥剧墖鍚楋紵鏃㈢劧鏄鎵归噺澶勭悊鑲畾涓嶈兘渚濋潬鎵嬪伐鍟︼紒鍒╃敤瀹忕紪绋嬪彲浠ュ揩閫熷疄鐜帮紒瀹炵幇鐩爣锛氬皢100寮犲浘鐗囧垎鍒斁鍒100椤骞荤伅鐗閲屻傞鍏堝噯澶囧ソ闇瑕佷娇鐢ㄧ殑鍥剧墖锛屽皢鍏朵繚瀛樺湪鍚屼竴涓枃浠跺す涓紝鏂囦欢鍚嶆槸鏈夊簭鐨勬暟瀛楋細1.jpg锛2.jpg鈥︹︼紝100.jpg 鎺ョ潃锛屽皢褰撳墠PPT鏂囦欢鍜屽浘鐗囦滑涔...
绛旓細鍦PowerPoint涓鎻掑叆鍥剧墖鏄秴绾х畝鍗曠殑浜嬫儏銆備笉杩囷紝鏈夊緢澶氬埗浣PPT鐨勬湅鍙嬪氨鍙戠幇涓涓毦棰橈細濡傛灉鏈夊嚑鍗佸紶鍥剧墖涓璧锋斁鍏ュ埌PPT锛屼竴寮犱竴鍥撅紝閲嶅N娆★紝绱浜轰簡锛屽叾瀹炶繕鏄湁鍋锋噿鐨勫姙娉曠殑锛屽氨鏄敤鎻掑叆鐩稿唽鐨勫姛鑳藉疄鐜扮殑銆1銆佹彃鍏ワ紞锛嶅浘鐗囷紞锛嶆柊寤虹浉鍐 2銆侀夊彇鑷繁鎵闇鐨勫寮犲浘鐗 3銆佷笅闈㈤夋嫨鍥剧墖鍚屾樉寮犳暟 4銆佹寜...
