導語：本文分享了PPT編輯的兩個小技巧，一個是一次性删除多張ppt中相同的圖片，另一個是快速複制圖片和文字到多張幻燈片。兩個VBA程序都是編者親測OK，可直接按步驟操作即可。

一、一次性删除多張ppt中相同的圖片

首先說明，圖片不是通過PPT幻燈片母版貼上去的，而是在每張PPT頁面上單獨貼上去的。當PPT頁面較多時，要删除多張PPT頁面中的同一圖片費時費力效率低下。

本文推薦一種采用宏的方法來實現。

VBA程序如下：

Sub DeleteShapesBySelection()

Dim sld As Slide

Dim shp, selectedShp As Shape

Dim slideIndex As Long

Dim count As Long

If ActiveWindow.Selection.Type = ppSelectionShapes Or ActiveWindow.Selection.Type = ppSelectionText Then

' A shape is selected or a textbox is focused (text is selected)

count = 0

slideIndex = ActiveWindow.Selection.SlideRange.slideIndex

For Each selectedShp In ActiveWindow.Selection.ShapeRange

For Each sld In ActivePresentation.Slides

If sld.slideIndex <> slideIndex Then

For Each shp In sld.Shapes

If (shp.Left = selectedShp.Left _

And shp.Top = selectedShp.Top _

And shp.Width = selectedShp.Width _

And shp.Height = selectedShp.Height _

) Then

shp.Delete

count = count 1

End If

Next shp

End If

Next sld

selectedShp.Delete

count = count 1

Next selectedShp

MsgBox "共删除了" & count & "個形狀。"

Else

MsgBox "未發現任何選中的形狀或文本框", vbExclamation, "No Shape Found"

End If

End Sub

具體操作步驟如下：

1、打開要編輯的PPT文檔；

2、點擊菜單條上“視圖”—點擊“宏”；

3、按圖操作

4、複制以上VBA程序到編輯框中

5、保存

6、回到PPT頁面，點擊要删除的圖片。（要先點擊圖片後再運行軟件）

9、重複步驟2，點擊運行即可。

二、快速複制圖片和文字到多張幻燈片

方法： 1.按Alt F11鍵，插入--模塊，将下列代碼複制在模塊中： Sub copyPict() ActiveWindow.Selection.ShapeRange.Copy ActivePresentation.Slides.Range(Array(2, 3, 5)).Shapes.Paste End Sub

2. 程序注釋： 代碼的意思是将所選圖片和文字複制到2、3、5号幻燈片中。Array後面括号中的數字是幻燈片号，可作相應的修改。 如果要複制到連續的多張幻燈片中，可使用循環： Sub copyPict() ActiveWindow.Selection.ShapeRange.Copy For i = 2 To 5 '複制到2～5号幻燈片中 ActivePresentation.Slides.Range.Item(i).Shapes.Paste Next End Sub

3.運行代碼 首先将宏安全級别設為低。 先選擇要複制的圖片和文字，按Alt F8鍵，運行copyPict。

《機械工程文萃》，工程師的加油站！

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!