请问:在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銆鍦≒PT涓彃鍏ラ煶棰戞枃浠跺悗锛屽湪鎾斁鏍囧織锛堝枃鍙舰鍥炬爣锛変笂鐐瑰彸閿紝閫夋嫨鈥滆嚜瀹氫箟鍔ㄧ敾鈥濄2銆佽繖鏃跺湪鍙充晶浼氬嚭鐜扳滆嚜瀹氫箟鍔ㄧ敾鈥濋潰鏉裤傛帴涓嬫潵锛屽湪璇ラ潰鏉跨殑鈥滄坊鍔犳晥鏋溾濅腑閫夋嫨鈥滃０闊...
绛旓細鍦ㄥ凡鎻掑叆鐨凚AI椤圭洰鍗′笅鎻掑叆涓涓柊鐩稿唽銆傚叿浣撴楠ゅ涓:鎵闇鏉愭枡锛歅PT2007銆1銆佹墦寮PPT锛鐐瑰嚮DAO鈥滄彃鍏モ濓紝鐐瑰嚮鈥滅浉鍐屸濓紝涓嬫媺鑿滃崟涓偣鍑烩滄柊寤虹浉鍐屸濄2銆佹墦寮鏂颁笓杈戠獥鍙ｅ悗锛岀偣鍑烩鏂囦欢/纾佺洏鈥濄3銆佹壘鍒拌鎻掑叆鐨勫浘鐗囷紝閫夋嫨杩欎簺鍥剧墖锛岀偣鍑烩滄彃鍏モ濄4銆佺偣鍑荤獥鍙ｅ彸涓嬭鐨勨滃垱寤衡濄5銆佸彲浠ュ皢鍥剧墖鎸夐『搴...
绛旓細鐢ㄦ埛鍙互鍦ㄦ姇褰变华鎴栬呰绠楁満涓婅繘琛屾紨绀猴紝涔熷彲浠ュ皢婕旂ず鏂囩鎵撳嵃鍑烘潵锛屽埗浣滄垚鑳剁墖锛屼互渚垮簲鐢ㄥ埌鏇村箍娉涚殑棰嗗煙涓傚埄鐢∕icrosoft Office PowerPoint涓嶄粎鍙互鍒涘缓婕旂ず鏂囩锛岃繕鍙互鍦ㄤ簰鑱旂綉涓婂彫寮闈㈠闈細璁佽繙绋嬩細璁垨鍦ㄧ綉涓婄粰瑙備紬灞曠ず婕旂ず鏂囩銆侻icrosoft Office PowerPoint鍋氬嚭鏉ョ殑涓滆タ鍙紨绀烘枃绋匡紝鍏舵牸寮忓悗缂鍚嶄负锛歱pt銆...
绛旓細3銆佺偣鍑汇愭浛鎹戝彸杈归粦鑹茬殑鍊掍笁瑙掞紝鍙互鐪嬪埌绗簩椤广愭浛鎹㈠瓧浣撱戙4銆佺偣鍑汇愭浛鎹㈠瓧浣撱戯紝寮瑰嚭濡傚浘鎵绀虹殑灏忓脊妗嗭紝绗竴鏍忛夋嫨浣犵幇鍦ㄦ枃鏈腑鐨勫瓧浣擄紝鍦ㄨ繖閲屾槸銆愬崕鏂囨シ浣撱戯紝绗簩鏍忛夋嫨浣犳兂鏇挎崲鎴愮殑瀛椾綋锛屽湪杩欓噷閫夋嫨銆愭シ浣撱戙5銆佸湪瀹屾垚涓婅堪姝ラ鍚庯紝鐐瑰嚮鍙宠竟鐨勩愭浛鎹戯紝绛夊緟鍑犵鍗冲彲锛宲pt椤垫暟澶氾紝鏃堕棿绋嶅井...
绛旓細鎿嶄綔绋嬪簭:PPT2019銆1銆侀鍏堝湪鐢佃剳涓弻鍑绘墦寮闇瑕佸彉灏忕殑PPT,鍗曞嚮鏂囦欢銆2銆佺劧鍚庡湪鎵撳紑鐨勬枃浠堕夐」涓,鐐瑰嚮鍙﹀瓨涓烘祻瑙堥夐」銆3銆佹帴鐫鎵惧埌闇瑕佷繚瀛樼殑浣嶇疆鍚,鐐瑰嚮涓嬭竟鐨勫伐鍏,閫夋嫨鍘嬬缉鍥剧墖銆4銆佹渶鍚庡湪鎵撳紑鐨勭獥鍙ｄ腑,鐐瑰嚮鍒犻櫎鍥剧墖鐨勫壀瑁佸尯鍩熷拰web,杩欐牱灏卞彲浠ュ皢鏂囦欢鍙樺皬浜嗐傛枃浠跺お澶т簡锛屽浣灏PPT鏂囦欢涓鐨勫浘鐗涓娆...
绛旓細灏辨棤娉涓娆鎬т慨鏀癸紝闇瑕佸娆￠噸澶嶄竴涓嬬殑鎿嶄綔锛1銆佸彲浠ユ煡鐪嬪綋鍓ppt鐨勫瓧浣撳鍥撅紝涔嬪悗鐐瑰嚮鍙充笂瑙掔殑鏇挎崲閫夐」銆2銆佸湪涓嬫媺鐨勬浛鎹㈣彍鍗涓紝閫夋嫨鏇挎崲瀛椾綋閫夐」銆3銆佸湪璺冲嚭鐨勭晫闈腑锛岄夋嫨闇瑕佽淇敼鐨勫瓧浣擄紝鍜岄渶瑕佹浛鎹负鐨勫瓧浣撱4銆侀夋嫨瀹屾垚鍚庯紝鐐瑰嚮鐣岄潰涓婄殑鏇挎崲閫夐」銆5銆佷箣鍚庡嵆鍙垚鍔熸浛鎹pt鐨勫瓧浣撱
绛旓細1銆佸惎鍔PowerPoint2013锛屽崟鍑昏彍鍗曟爮--鎻掑叆--鍥惧儚--鐩稿唽--鏂板缓鐩稿唽銆2銆佸脊鍑虹浉鍐屽璇濇锛岃繖閲屽苟涓嶆槸鏂板缓鐩稿唽锛岃屾槸鍒╃敤杩欎釜鍔熻兘锛屾潵鎵归噺瀵煎叆鍥剧墖銆傚崟鍑绘枃浠/纾佺洏鎸夐挳銆3銆佺劧鍚庢墦寮鍥剧墖瀛樻斁鐨鏂囦欢澶癸紝Ctrl+A閿叏閫夛紝鎻掑叆銆4銆佹彃鍏ヤ箣鍚庯紝鍗冲彲瀹屾垚涓娆鎬ф彃鍏ュ涓浘鐗囥
绛旓細鍦ㄦ彃鍏ラ夐」鍗′笅鎻掑叆鏂板缓鐩稿唽鍗冲彲锛屽叿浣撴楠ゅ涓嬶細鎵闇鏉愭枡锛歅PT 2007绀轰緥銆備竴銆佹墦寮PPT锛鐒跺悗鐐瑰嚮鈥滄彃鍏モ濓紝鐐瑰嚮鈥滅浉鍐屸濓紝涓嬫媺鑿滃崟鍐呯偣鍑烩滄柊寤虹浉鍐屸濄備簩銆佹墦寮鏂板缓鐩稿唽绐楀彛鍚庯紝鐐瑰嚮鈥鏂囦欢/纾佺洏鈥濄備笁銆佹壘鍒拌鎻掑叆鐨勫浘鐗囷紝閫変腑杩欎簺鍥剧墖锛岀偣鍑烩滄彃鍏モ濄傚洓銆佹渶鍚庣偣鍑昏绐楀彛鍙充笅瑙掔殑鈥滃垱寤衡濄備簲銆佽繖鏃...
绛旓細棣栧厛鎵撳紑銆怭PT銆戯紝鍦ㄥ伐鍏锋爮涓偣鍑汇愭斁鏄犮戦夐」锛岄夋嫨銆愭斁鏄犺缃戯紝鍕鹃夈愭斁鏄犻夐」銆戜笅鏂圭殑銆愭斁鏄犱笉鍔犲姩鐢汇戯紝闅忓悗鍕鹃夈愭斁鏄犲够鐏墖銆戜笅鏂圭殑銆愬叏閮ㄣ戯紝鏈鍚庣偣鍑诲彸涓嬫柟鐨勩愮‘瀹氥戝嵆鍙彇娑PPT鏂囦欢涓鐨勫叏閮ㄥ姩鐢汇濡備綍鍦≒PT涓疄鐜板姩鐢绘晥鏋溿傛帴鐫鍦ㄥ彸杈圭殑鍔ㄧ敾鏁堟灉缂栬緫鏍忎腑鐐瑰嚮娣诲姞鏁堟灉锛岄夋嫨浣犳兂瑕佺殑鏁堟灉锛屾晥鏋...
