请问:在PPT文件中,如何一次性删除每页幻灯片中相同的图片或文本框? 如何批量删除ppt中的同一图片
\u8bf7\u95ee:\u5728PPT\u6587\u4ef6\u4e2d,\u5982\u4f55\u4e00\u6b21\u6027\u5220\u9664\u6bcf\u9875\u5e7b\u706f\u7247\u4e2d\u7684\u56fe\u7247?1.\u4f7f\u7528vba\u7f16\u7a0b\u5220\u9664\uff0c\u8fd9\u662f\u9ad8\u624b\u4eec\u7684\u505a\u6cd5\uff0c\u4e00\u822c\u8f83\u96be\u64cd\u4f5c\u3002
2.\u5220\u9664\u76f8\u540c\u7684\u56fe\u7247\u548c\u6587\u672c\uff0c\u6362\u53e5\u8bdd\uff0c\u8ba9\u4ed6\u4eec\u770b\u4e0d\u89c1\u4e86\uff0c\u662f\u4e0d\u662f\u201c\u5220\u9664\u201d\u3002
\u539f\u7406\u662f\u4f7f\u7528\u4e00\u4e2a\u548c\u5e95\u8272\u4e00\u6837\u989c\u8272\u7684\u77e9\u5f62\uff0c\u5c06\u4f60\u6240\u8981\u5220\u7684\u4e1c\u897f\u906e\u4f4f\uff0c\u5373\u8fbe\u5230\u5220\u9664\u7684\u76ee\u7684\u3002
\u64cd\u4f5c\u662f\uff1a\u56de\u5230\u6bcd\u7248\u89c6\u56fe\uff0c\u5230\u6b63\u6587\u9875\uff0c\u5efa\u7acb\u8fd9\u6837\u7684\u4e00\u4e2a\u77e9\u5f62\uff0c\u989c\u8272\u8bbe\u4e3a\u540c\u5e95\u8272\u4e00\u6837\uff0c\u906e\u76d6\u4f4f\u56fe\u7247\u6216\u6587\u672c\u6846\uff0c\u5173\u95ed\u6bcd\u7248\u89c6\u56fe\uff0c\u5373\u53ef\u3002
1\u3001\u9996\u5148\u6253\u5f00\u9700\u8981\u7f16\u8f91\u7684PPT\u5e7b\u706f\u7247\uff0c\u8fdb\u5165\u5230\u7f16\u8f91\u9996\u9875\u4e2d\u3002
2\u3001\u7136\u540e\u70b9\u51fb\u6253\u5f00\u89c6\u56fe\u4e2d\u7684\u201c\u5b8f\u201d\u3002
3\u3001\u7136\u540e\u5728\u5f39\u51fa\u6765\u7684\u7a97\u53e3\u4e2d\u8f93\u5165\u4e00\u4e2a\u5b8f\u540d\uff0c\u70b9\u51fb\u6253\u5f00\u201c\u65b0\u5efa\u201d\u3002
4\u3001\u7136\u540e\u5728\u5f39\u51fa\u6765\u7684\u7a97\u53e3\u4e2d\u8f93\u5165\u4ee5\u4e0b\u7684\u4ee3\u7801\u3002
Sub DeletePic()
Dim SelSlide As Slide
Dim SelPicName As String
If ActiveWindow.Selection.Type = ppSelectionNone Then
MsgBox (" \u8bf7\u9009\u4e2d\u5f85\u5220\u9664\u7684\u56fe\u7247\uff01 ")
Else
SelPicName = ActiveWindow.Selection.ShapeRange.Name
If vbYes = MsgBox(" \u662f\u5426\u8981\u5220\u9664\u6240\u6709\u5e7b\u706f\u7247\u4e2d\u7684\u540c\u540d\u56fe\u7247 \u201c" +
SelPicName + " \u201d \uff1f", vbYesNo, " \u4fe1\u606f\u63d0\u793a ") Then
For Each SelSlide In ActivePresentation.Slides
On Error Resume Next
SelSlide.Shapes(SelPicName).Delete
Next
End If
End If
End Sub
5\u3001\u56de\u5230 PowerPoint \u7684\u7a97\u53e3\u540e\uff0c\u9009\u62e9\u9700\u8981\u5e7b\u706f\u7247\u4e2d\u4e00\u4e2a\u9700\u8981\u5220\u9664\u7684\u56fe\u7247\uff0c\u70b9\u51fb\u201c\u89c6\u56fe \u201d->\u201c\u5b8f\u201d\uff0c\u9009\u62e9\u521a\u624d\u521b\u5efa\u7684\u5b8f\uff0c\u5e76\u8fd0\u884c\uff0c\u5373\u53ef\u5220\u9664\u6240\u6709\u5185\u90e8\u540d\u5b57\u76f8\u540c\u7684\u56fe\u7247\u3002
删除文本框和图片的操作是相同的，都是点边框，这里以删除文本框举例。
1、首先，我们打开有想要删除的文本框的那一张幻灯片，在文本框内点击，我们可以看到文本框周围的虚线边框线会出现，这个时候我们并没有将这个文本框选中。
2.、然后，我们在文本框的虚线上点击一下，这时候文本框的虚线框变为实线框，这样我们才是真正的选中了这个文本框，如图。
3、 最后，当我们选中这个文本框之后，在键盘上按下“Delete”键，如下图中红色方框标出处。
4、 经过以上操作，我们选中的文本框就被我们删除了。
1.使用vba编程删除，这是高手们的做法，一般较难操作。
2.删除相同的图片和文本，换句话，让他们看不见了，是不是“删除”。
原理是使用一个和底色一样颜色的矩形，将你所要删的东西遮住，即达到删除的目的。
操作是：回到母版视图，到正文页，建立这样的一个矩形，颜色设为同底色一样，遮盖住图片或文本框，关闭母版视图，即可。
一般来说，这种每页都有的文本框名字都是固定的，如：rectangle26.
那就编写VBA,按名字一页页找到并删除。
如果不在母版中那只能一张一张来删了，
如果不是在母版中，是没有办法一次删除的，因为每张幻灯片这时是独立的。不过我可以交你一个不太常规的方式。这一招是我摸索出来的绝招，一般人我不告诉的。看你悬赏分是0分，我这个独自摸索的知识还要考虑下要不要告诉你。
绛旓細閫夋嫨鈥滄彃鍏モ濓紝鐐瑰嚮鈥滃甫濉厖鏁堟灉鐨勫ぇ鍦嗗舰椤圭洰绗﹀彿鈥濆嵆鍙1銆佹墦寮闇瑕佹搷浣滅殑PPT鏂囨。锛屽皢鍏夋爣鏀惧湪鈥滃熀鏈绱犫濈殑鍓嶉潰銆2銆侀紶鏍囧彸鍑伙紝鍦ㄥ脊鍑虹殑蹇嵎鑿滃崟涓偣鍑烩滈」鐩鍙封濓紝鍦ㄥ脊鍑虹殑瀛愯彍鍗涓紝閫夋嫨鈥滃甫濉厖鏁堟灉鐨勫ぇ鍦嗗舰椤圭洰绗﹀彿鈥濄3銆佸彲浠ョ湅鍒帮紝鏂囧瓧鍓嶅嚭鐜板甫鍦嗙偣鐨勯」鐩鍙凤紝涓旀瘡娆℃崲琛屼篃浼氭湁椤圭洰绗﹀彿銆
绛旓細娣诲姞涓涓滄殏鍋溾濇寜閽傜洰鐨勫彧鏄皢鎻掑叆鐨勯煶棰鏂囦欢鏆傚仠鎾彂銆傝屽綋闇瑕佺户缁挱鏀炬椂锛屽彧闇鍐嶇偣鍑涓娆杩欎釜鎸夐挳鍗冲彲銆傚叿浣撶殑鍔炴硶濡備笅锛1銆鍦≒PT涓彃鍏ラ煶棰戞枃浠跺悗锛屽湪鎾斁鏍囧織锛堝枃鍙舰鍥炬爣锛変笂鐐瑰彸閿紝閫夋嫨鈥滆嚜瀹氫箟鍔ㄧ敾鈥濄2銆佽繖鏃跺湪鍙充晶浼氬嚭鐜扳滆嚜瀹氫箟鍔ㄧ敾鈥濋潰鏉裤傛帴涓嬫潵锛屽湪璇ラ潰鏉跨殑鈥滄坊鍔犳晥鏋溾濅腑閫夋嫨鈥滃０闊...
绛旓細缂栫▼浠涔堢殑涓涓嬩篃瀛︿笉浼氾紝鏁欎綘涓渶瀹炵敤鐨勬柟娉曘傚彸鎵嬮紶鏍囩偣鍦ㄧ涓寮犻渶瑕佸垹闄ょ殑鏂囨湰妗嗚竟绾夸笂锛屽崟鍑诲悗榧犳爣鍙樻垚鍗佸瓧绠ご锛屽乏鎵嬫寜delete閿紝鍐嶆槸鍚戜笅鐨勬柟鍚戦敭锛岃繖鏍峰垹璧锋潵灏卞揩浜涖傘傘傛垜鍒氬垹浜82寮狅紝涔熷氨涓涓ゅ垎閽熴傘傘備綘鍐欑紪绋嬩篃涓嶆杩欎釜鏃堕棿鍚с傘傘
绛旓細1銆佹柊寤PPT锛鐐瑰嚮鎻掑叆锛屽浘鐗囷紝鏂板缓鐩稿唽銆2銆佸脊鍑哄璇濇锛岀偣鍑鏂囦欢/纾佺洏銆3銆佸脊鍑哄璇濇锛屾壘鍒板浘鐗囷紝鍏ㄩ夛紝鎻掑叆銆4銆佽繖鏃跺洖鍒扮浉鍐屽璇濇锛屾垜浠殑6寮犲浘鐗囧叏閮ㄦ坊鍔犺繘鏉ヤ簡锛屽鏋滈『搴忎笉瀵瑰彲浠ョ偣鍑荤孩妗嗗唴鐨勬寜閽皟鏁淬5銆佺偣鍑诲浘鐗囩増寮忓彸杈圭殑涓嬫媺涓夎锛屽彲浠ラ夋嫨姣忛〉鎻掑叆鍑犲紶鍥剧墖锛屾槸鍚﹀甫鏍囬绛夈6銆佹垜浠夋嫨1寮...
绛旓細鍦ㄥ凡鎻掑叆鐨凚AI椤圭洰鍗′笅鎻掑叆涓涓柊鐩稿唽銆傚叿浣撴楠ゅ涓:鎵闇鏉愭枡锛歅PT2007銆1銆佹墦寮PPT锛鐐瑰嚮DAO鈥滄彃鍏モ濓紝鐐瑰嚮鈥滅浉鍐屸濓紝涓嬫媺鑿滃崟涓偣鍑烩滄柊寤虹浉鍐屸濄2銆佹墦寮鏂颁笓杈戠獥鍙ｅ悗锛岀偣鍑烩鏂囦欢/纾佺洏鈥濄3銆佹壘鍒拌鎻掑叆鐨勫浘鐗囷紝閫夋嫨杩欎簺鍥剧墖锛岀偣鍑烩滄彃鍏モ濄4銆佺偣鍑荤獥鍙ｅ彸涓嬭鐨勨滃垱寤衡濄5銆佸彲浠ュ皢鍥剧墖鎸夐『搴...
绛旓細鏂囦欢澶ぇ浜锛屽浣灏PPT鏂囦欢涓鐨勫浘鐗涓娆鎬у帇缂╁憿锛燂紵锛熷皢ppt鏂囦欢涓鐨勫浘鐗囪繘琛屼竴娆℃у帇缂,鍙互浣跨敤PPT鑷甫鐨勫帇缂╁浘鐗囧姛鑳姐傚叿浣撲娇鐢ㄦ楠ゅ涓:1銆侀鍏堟垜浠墦寮涓涓猵pt鏂囦欢,闅忎究鎵惧埌甯︽湁鍥剧墖鐨勫够鐏墖椤甸潰銆2銆佸弻鍑昏椤甸潰涓殑鍥剧墖鏂囦欢鍚,浼氱湅鍒版枃浠惰彍鍗曟爮浼氬仠鐣欏湪鏍煎紡鏍囩,鍦ㄤ笅鏂瑰彲浠ユ壘鍒扳滃帇缂╁浘鐗団濈殑鎸夐挳(...
绛旓細3銆佺偣鍑汇愭浛鎹戝彸杈归粦鑹茬殑鍊掍笁瑙掞紝鍙互鐪嬪埌绗簩椤广愭浛鎹㈠瓧浣撱戙4銆佺偣鍑汇愭浛鎹㈠瓧浣撱戯紝寮瑰嚭濡傚浘鎵绀虹殑灏忓脊妗嗭紝绗竴鏍忛夋嫨浣犵幇鍦ㄦ枃鏈腑鐨勫瓧浣擄紝鍦ㄨ繖閲屾槸銆愬崕鏂囨シ浣撱戯紝绗簩鏍忛夋嫨浣犳兂鏇挎崲鎴愮殑瀛椾綋锛屽湪杩欓噷閫夋嫨銆愭シ浣撱戙5銆佸湪瀹屾垚涓婅堪姝ラ鍚庯紝鐐瑰嚮鍙宠竟鐨勩愭浛鎹戯紝绛夊緟鍑犵鍗冲彲锛宲pt椤垫暟澶氾紝鏃堕棿绋嶅井...
绛旓細棣栧厛鎵撳紑銆怭PT銆戯紝鍦ㄥ伐鍏锋爮涓偣鍑汇愭斁鏄犮戦夐」锛岄夋嫨銆愭斁鏄犺缃戯紝鍕鹃夈愭斁鏄犻夐」銆戜笅鏂圭殑銆愭斁鏄犱笉鍔犲姩鐢汇戯紝闅忓悗鍕鹃夈愭斁鏄犲够鐏墖銆戜笅鏂圭殑銆愬叏閮ㄣ戯紝鏈鍚庣偣鍑诲彸涓嬫柟鐨勩愮‘瀹氥戝嵆鍙彇娑PPT鏂囦欢涓鐨勫叏閮ㄥ姩鐢汇濡備綍鍦≒PT涓疄鐜板姩鐢绘晥鏋溿傛帴鐫鍦ㄥ彸杈圭殑鍔ㄧ敾鏁堟灉缂栬緫鏍忎腑鐐瑰嚮娣诲姞鏁堟灉锛岄夋嫨浣犳兂瑕佺殑鏁堟灉锛屾晥鏋...
绛旓細鏂规硶1锛欳trl+M鏄柊寤洪〉鐨勫揩鎹烽敭锛屽鎸夊嚑娆″氨鍙互浜 鏂规硶2锛氭妸骞荤伅鐗鍒囨崲鍒板ぇ绾查〉闈紝鐒跺悗澶氭寜鍑犳Enter
