删除 | ExcelOffice【微信公众号：水星Excel】

Sub QQ1722187970()
    Dim oPPT As Presentation
    Dim oSlide As Slide
    Dim oCL As CustomLayout
    Dim oP As Shape
    '当前ppt演示文稿
    Set oPPT = PowerPoint.ActivePresentation
    With oPPT
        '遍历每一个幻灯片
        For Each oSlide In .Slides
            With oSlide
                '遍历每一个图形
                For Each oP In .Shapes
                    With oP
                        sName = .Name
                        iType = .Type
                        '批量删除所有椭圆形
                        If sName Like "*椭圆*" Then
                            .Delete
                        End If
                    End With
                Next
            End With
        Next
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

Sub QQ1722187970()

Dim oPPT As Presentation

Dim oSlide As Slide

Dim oCL As CustomLayout

Dim oP As Shape

'当前ppt演示文稿

Set oPPT = PowerPoint.ActivePresentation

With oPPT

'遍历每一个幻灯片

For Each oSlide In .Slides

With oSlide

'遍历每一个图形

For Each oP In .Shapes

With oP

sName = .Name

iType = .Type

'批量删除所有椭圆形

If sName Like "*椭圆*" Then

.Delete

End If

End With

End Sub

[……]

阅读全文>>>

如何用vba批量删除word表格中的空白行、空白列？

2018年8月27日作者：水星Excel

2,473 次浏览暂无评论

在word中处理表格与在excel中处理表格是截然不同的。

如果要删除word表格中的行，可以使用Table对象的Rows属性返回具体的行，然后用Delete方法。

同理，如果要删除word表格中[……]

阅读全文>>>

如何用vba清空删除工作表中的所有数据透视表？

如何用vba显示或删除图表的标题？

如何彻底解决用vba批量删除ppt幻灯片中的图形等对象？

如何用vba批量删除ppt幻灯片中同类型的所有图形？

如何用vba批量删除word表格中的空白行、空白列？

感谢你的支持，我将持续地写出更好的文章。

标签云

微信公众号