本方法适合删除母版或所有页面中相同文字字符、图片等元素。
操作方法:选择;视图-宏-设置宏的名称-点击创建将下列函数复制到宏中,在ppt中先选择某位置!!然后运行宏即可
函数内容如下
Sub Delete( )Dim oSlide As Slide, oShape As ShapeDim myWidth As Single, myHeight As Single, myTop As Single, myLeft As SingleOn Error Resume NextIf ActiveWindow.Selection.ShapeRange.Count 1 ThenIf Err.Number 0 ThenMsgBox "none" & vbCrLf & "choose one", vbExclamation + vbOKOnlyErr.ClearExit SubEnd IfMsgBox "choose exceed 1" & vbCrLf & "choose one", vbExclamation + vbOKOnlyExit SubEnd IfSet oShape = ActiveWindow.Selection.ShapeRange(1)myTop = oShape.TopmyLeft = oShape.LeftmyHeight = oShape.HeightmyWidth = oShape.WidthFor Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesIf Abs(myTop - oShape.Top) < 1 And Abs(myLeft - oShape.Left) < 1 And Abs(myHeight - oShape.Height) < 1 And Abs(myWidth - oShape.Width) < 1 ThenoShape.DeleteEnd IfNextNextEnd Sub