如何删除PPT整个文档中的相同图片 请问:在PPT文件中,如何一次性删除每页幻灯片中相同的图片或...
\u5982\u4f55\u6279\u91cf\u5220\u9664ppt\u4e2d\u7684\u540c\u4e00\u56fe\u72471\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
\u5220\u9664\u6587\u672c\u6846\u548c\u56fe\u7247\u7684\u64cd\u4f5c\u662f\u76f8\u540c\u7684\uff0c\u90fd\u662f\u70b9\u8fb9\u6846\uff0c\u8fd9\u91cc\u4ee5\u5220\u9664\u6587\u672c\u6846\u4e3e\u4f8b\u3002
1\u3001\u9996\u5148\uff0c\u6211\u4eec\u6253\u5f00\u6709\u60f3\u8981\u5220\u9664\u7684\u6587\u672c\u6846\u7684\u90a3\u4e00\u5f20\u5e7b\u706f\u7247\uff0c\u5728\u6587\u672c\u6846\u5185\u70b9\u51fb\uff0c\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u6587\u672c\u6846\u5468\u56f4\u7684\u865a\u7ebf\u8fb9\u6846\u7ebf\u4f1a\u51fa\u73b0\uff0c\u8fd9\u4e2a\u65f6\u5019\u6211\u4eec\u5e76\u6ca1\u6709\u5c06\u8fd9\u4e2a\u6587\u672c\u6846\u9009\u4e2d\u3002
2.\u3001\u7136\u540e\uff0c\u6211\u4eec\u5728\u6587\u672c\u6846\u7684\u865a\u7ebf\u4e0a\u70b9\u51fb\u4e00\u4e0b\uff0c\u8fd9\u65f6\u5019\u6587\u672c\u6846\u7684\u865a\u7ebf\u6846\u53d8\u4e3a\u5b9e\u7ebf\u6846\uff0c\u8fd9\u6837\u6211\u4eec\u624d\u662f\u771f\u6b63\u7684\u9009\u4e2d\u4e86\u8fd9\u4e2a\u6587\u672c\u6846\uff0c\u5982\u56fe\u3002
3\u3001 \u6700\u540e\uff0c\u5f53\u6211\u4eec\u9009\u4e2d\u8fd9\u4e2a\u6587\u672c\u6846\u4e4b\u540e\uff0c\u5728\u952e\u76d8\u4e0a\u6309\u4e0b\u201cDelete\u201d\u952e\uff0c\u5982\u4e0b\u56fe\u4e2d\u7ea2\u8272\u65b9\u6846\u6807\u51fa\u5904\u3002
4\u3001 \u7ecf\u8fc7\u4ee5\u4e0a\u64cd\u4f5c\uff0c\u6211\u4eec\u9009\u4e2d\u7684\u6587\u672c\u6846\u5c31\u88ab\u6211\u4eec\u5220\u9664\u4e86\u3002
工具/原料
电脑 ppt
方法/步骤
1、首先，打开需要编辑的ppt文档。
2、然后，将鼠标光标放到当前页P，右击鼠标，弹出菜单中点击“设置背景格式”。
3、最后，在此界面，左侧选择“纯色填充”，依次将相同的图片除即可。
如果是插入图片后使用复制并粘贴到多个幻灯片，则PPT为其生成的名字通常是相同的
那可使用以下VBA，以下VBA程序只能删除所有幻灯片中名字相同的图片。但如果逐个插入到多个幻灯片中，那生成的名字通常是不同的，这种情况下就无能为力了。
以PowerPoint 2007为例：
1、“视图”->“宏”，输入宏名DeletePic后（宏名可任意），创建宏，并添加以下代码：
Sub DeletePic()
Dim SelSlide As Slide
Dim SelPicName As String
If ActiveWindow.Selection.Type = ppSelectionNone Then MsgBox ("请选中待删除的图片！")
Else
SelPicName = ActiveWindow.Selection.ShapeRange.Name If vbYes = MsgBox("是否要删除所有幻灯片中的同名图片“" + SelPicName + "”？", vbYesNo, "信息提示") Then
For Each SelSlide In ActivePresentation.Slides On Error Resume Next
SelSlide.Shapes(SelPicName).Delete Next End If End If End Sub
2、回到PowerPoint的窗口后，选择需要幻灯片中一个需要删除的图片，点击“视图”->“宏”，选择刚才创建的宏，并运行，即可删除所有内部名字相同的图片。
如果你一页一页能删掉，就证明没有在母版上，这个是没有办法的，必须一页一页删除。
下次做在母版里就没这个问题了。
点击剪截不要的照片后点保存就可以为了
网上有ppt editor.你去搜下.
绛旓細5. 鍒犻櫎椤圭洰绗﹀彿鍚庯紝浣犲彲浠ョ户缁紪杈戞枃鏈涓殑鏂囨湰锛屾垨鑰呰繘琛屽叾浠栭渶瑕佺殑璋冩暣銆傚綋浣犲畬鎴愮紪杈戝悗锛岃寰椾繚瀛樹綘鐨PPT鏂囨。銆傞渶瑕佹敞鎰忕殑鏄紝鍒犻櫎椤圭洰绗﹀彿骞朵笉浼鍒犻櫎鏂囨湰妗嗕腑鐨勬枃鏈唴瀹癸紝鍙槸鍒犻櫎浜嗘枃鏈墠鐨勭鍙枫傚鏋滀綘鎯宠鍒犻櫎鏁翠釜鏂囨湰妗嗗強鍏跺唴瀹癸紝鍙互閫夋嫨鏂囨湰妗嗗悗鎸塂elete閿
绛旓細PPT鏄幇鍦ㄥ崄鍒嗗父鐢ㄧ殑鏂囦欢绫诲瀷涔嬩竴锛屾湁浜涚敤鎴锋兂鐭ラ亾濡備綍娓呴櫎PPT鏂囨。涓褰曞埗鐨勮鏃跺拰鏃佺櫧锛屾帴涓嬫潵灏忕紪灏辩粰澶у浠嬬粛涓涓嬪叿浣撶殑鎿嶄綔姝ラ銆傚叿浣撳涓嬶細1. 棣栧厛绗竴姝ユ墦寮鐢佃剳涓渶瑕佺紪杈戠殑PPT鏂囨。銆2. 绗簩姝ユ牴鎹笅鍥剧澶存墍鎸囷紝鐐瑰嚮銆愬够鐏墖鏀炬槧銆戦夐」銆3. 绗笁姝ュ湪鑿滃崟鏍忎腑锛屾牴鎹笅鍥剧澶存墍鎸囷紝渚濇鐐瑰嚮銆愬綍鍒...
绛旓細b)灏嗗厜鏍囩Щ鑷抽渶鎻掑叆Word琛ㄦ牸鐨骞荤伅鐗(鍦PPT涓),鍗曞嚮鈥滄彃鍏モ?鈥滃璞♀,鍐嶅湪鈥滄彃鍏ュ璞♀濆璇濇涓,閫変腑鈥滄柊寤衡濆崟閫夋(榛樿閫夐」);鍦ㄢ滃璞＄被鍨嬧濇涓変腑鈥淢icrosoft Word鏂囨。鈥,鐒跺悗鍗曞嚮鈥滅‘瀹氣濄 c)灏哤ord琛ㄦ牸鐩存帴绮樿创杩涘够鐏墖涓婄殑Word鏂囨。妗嗗嵆鍙傛鍚庣殑缂栬緫鏂规硶涓嶹ord涓殑缂栬緫鏂规硶鐩稿悓銆15...
绛旓細鐐瑰嚮鍙抽敭锛屾湁涓涓滅粍鍚堚-鈥滃彇娑堢粍鍚堚濆氨琛屼簡
绛旓細浣犳病鏈夎鏄庝綘鐨勬按鍗版槸浠涔堝舰寮忕殑锛屽鏋滄槸浣跨敤姘村嵃鍔熻兘鎻掑叆鐨勬按鍗帮紝閭ｄ箞杩樼敤瀹鍒犻櫎鍗冲彲銆傚涓嬪浘鎵绀猴細
绛旓細鍗曞嚮榧犳爣鍙抽敭锛岀劧鍚庝粠寮瑰嚭鐨勯夐」涓夋嫨鈥滃竷灞鈥 銆2. 閫夋嫨鈥滄爣棰樺够鐏墖 鈥濓紝鐒跺悗鍗曞嚮瀹冩梺杈圭殑灏忕澶翠互鎵撳紑涓嬫媺鑿滃崟銆傞夋嫨鈥滀笉浣跨敤鏍囬骞荤伅鐗団濋夐」銆3. 鍗曞嚮鈥滃簲鐢ㄤ簬鎵鏈夊够鐏墖鈥濇寜閽紝浠ュ簲鐢ㄦ洿鏀瑰苟鍒犻櫎鎵鏈夊够鐏墖鐨勬爣棰樸傞氳繃浠ヤ笂姝ラ锛屾偍灏卞彲浠ヨ交鏉鍒犻櫎PPT骞荤伅鐗囦腑鐨勬爣棰樹簡锛屾敞鎰忎繚瀛樻洿鏀!
绛旓細鏀寔闃呰鍜岃緭鍑篜DF锛.pdf锛鏂囦欢銆佸叿鏈夊叏闈㈠吋瀹瑰井杞疧ffice97-2010鏍煎紡锛坉oc/docx/xls/xlsx/ppt/pptx绛夛級鐙壒浼樺娍銆傝鐩朩indows銆丩inux銆丄ndroid銆乮OS绛夊涓钩鍙般俉PS Office鏀寔妗岄潰鍜岀Щ鍔ㄥ姙鍏備笖WPS绉诲姩鐗堥氳繃Google Play骞冲彴锛屽凡瑕嗙洊瓒50澶氫釜鍥藉鍜屽湴鍖恒俉PS Office涓汉鐗堝涓汉鐢ㄦ埛姘镐箙鍏嶈垂锛屽寘鍚玏PS鏂囧瓧銆...
绛旓細濡傛灉鎮ㄦ兂瑕佸皢PPT姣忎竴椤电殑鏍囬鏂囧瓧鏍峰紡璁剧疆涓鐩稿悓鐨勶紝鍙互灏濊瘯浠ヤ笅鏂规硶锛1.鍦PPT鏂囨。涓锛屾墦寮鈥滃够鐏墖姣嶇増鈥濄2.鍦ㄢ滄瘝鐗堣鍥锯濅笅锛屼粠宸︿晶閫夋嫨鈥滃够鐏墖姣嶇増鈥濋夐」鍗°3.鍦ㄢ滃够鐏墖姣嶇増鈥濅腑閫夋嫨绗竴寮骞荤伅鐗囦腑鐨鏍囬鏂囨湰锛岀劧鍚庡皢鍏舵牸寮忓寲涓烘偍鎯宠鐨勬牱寮忥紝鍖呮嫭瀛椾綋銆佸瓧鍙枫侀鑹茬瓑銆4.鎺ヤ笅鏉ワ紝灏嗗厜鏍囩Щ鍒...
绛旓細鏄洜涓鸿瀛楁槸鍦ㄥ够鐏墖姣嶇増涓緭鍏ョ殑銆備互PowerPoint 2010涓轰緥锛岄渶瑕鍒犻櫎骞荤伅鐗姣嶇増涓殑瀛椾綋鐨勬搷浣滄柟娉曞弬鑰冨涓嬶細1銆佸畾浣嶅埌瑕佸垹闄ゆ瘝鐗堝瓧浣撶殑ppt鏂囨。椤甸潰锛屽湪姝ゅ够鐏墖鐣岄潰鎵惧埌瑙嗗浘閫夐」鍗★紝骞朵笖鐐瑰嚮涓嬫柟鐨勨滃够鐏墖姣嶇増鈥濄2銆侀夋嫨璇ュ瓧浣撴墍鍦ㄧ殑鏂囨湰妗嗐3銆佷娇鐢ㄩ敭鐩樹笂鐨勨淏ackspace鈥濋敭鍒犻櫎璇ユ枃鏈鐨勫唴瀹瑰嵆鍙
绛旓細1. 棣栧厛鎵撳紑鐢佃剳涓婃兂瑕佺紪杈戠殑PPT鏂囨。锛岃繘鍏ヤ富椤甸潰鍚庯紝鐐瑰嚮涓婃柟鐨勫姩鐢婚夐」 2. 鍦ㄦ墦寮鐨勫姩鐢婚夐」娣伙紝鐐瑰嚮鍙充晶鐨勫姩鐢荤獥鏍奸夐」 3. 鐒跺悗鍦ㄥ彸渚ф墦寮鐨勫姩鐢荤獥鏍肩獥鍙ｄ腑锛屾寜浣忛敭鐩樹笂shift閿紝鐒跺悗灏嗘墍鏈夌殑鍔ㄧ敾鏁堟灉鍏ㄩ儴閫変腑 4. 鐒跺悗鍦ㄥ姩鐢讳笂锛屽彸閿5. 鍦ㄦ墦寮鐨勮彍鍗曚腑锛岄夋嫨鍒犻櫎閫夐」 6. 濡傚浘锛屽氨灏PPT涓殑鎵鏈...
