shape | 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给ppt幻灯片中插入同尺寸大小的图形？

2018年12月5日作者：水星Excel

937 次浏览暂无评论

在ppt中，经常需要插入图形。

有时候需要基于幻灯片中已有的图形再插入相同尺寸大小的同样的图形。

如下图所示为ppt幻灯片中已有的6个矩形，现在需要再插入6个矩形，形成层叠的效果。

[……]

阅读全文>>>

如何用vba把ppt幻灯片中的所有图形的尺寸大小批量统一调整？

2018年12月5日作者：水星Excel

1,510 次浏览暂无评论

在ppt中，所有的操作都是在图形中完成的。

在ppt中，可以插入的图形种类有很多，可以是自选图形、任意多边形、OLE 对象或图片等等。

在ppt vba中，所有的图形的相关操作都可以用Shape对[……]

阅读全文>>>

如何用vba批量设置或删除ppt中的组合图形？

2018年4月3日作者：水星Excel

1,506 次浏览暂无评论

在vba中，shape对象代表一个图形。

多个图形可以组合成一个整体，称为组合图形。

在vba中GroupShapes对象代表一个组合图形。

在vba中，可以使用Shape对象的GroupI[……]

阅读全文>>>

如何用vba删除工作表中的所有图表？

一、通过遍历[……]

如何在word中用vba实现InlineShape和Shape对象的转换？

如何用vba使得数据透视表可以透视图片？

如何用vba获取工作表的图片所占据的单元格区域？

如何用vba实现ppt幻灯片中层叠图形的置于顶层或置于底层命令？

如何用vba给ppt幻灯片中的同类型的图形批量重命名?

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

如何用vba给ppt幻灯片中插入同尺寸大小的图形？

如何用vba把ppt幻灯片中的所有图形的尺寸大小批量统一调整？

如何用vba批量设置或删除ppt中的组合图形？

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

热门文章

最近文章

微信公众号