Shape | ExcelOffice

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

2018年12月5日作者：exceloffice

暂无评论

如下图所示的ppt幻灯片中有12个矩形，其中6个矩形被其中6个矩形层叠覆盖在底层。

如果要实现将某个图形置于顶层或置于底层，从而让它显示在层叠图片的上面或者隐藏在层叠图片的下面的效果，可以使用Shape对象的ZOrder方法将指定的图形置于顶层或者置于底层。

代码如下：
[cr[……]

阅读全文

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

2018年12月5日作者：exceloffice

暂无评论

如下图所示

ppt幻灯片中有6个矩形，名称分别为”矩形 N”的形式，现在想要批量将其名称换成”img N”的形式，可以使用如下的vba代码：

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
            i = 1
            With oSlide
                '遍历每一个图形
                For Each oP In .Shapes
                    With oP
                        sName = .Name
                        iType = .Type
                        If sName Like "*矩形*" Then
                            sName = "img" & i
                            .Name = sName
                            i = i + 1
                        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

27

28

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

i = 1

With oSlide

'遍历每一个图形

For Each oP In .Shapes

With oP

sName = .Name

iType = .Type

If sName Like "*矩形*" Then

sName = "img" & i

.Name = sName

i = i + 1

End If

End With

End Sub

结果如下图所示：

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

2018年12月5日作者：exceloffice

暂无评论

在ppt中，一切皆图形。

有时候我们需要批量删除指定形状的图形，可以使用如下的vba代码:

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日作者：exceloffice

暂无评论

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

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

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

可以使用如下的vba代码：

Sub QQ1722187970()
    Dim oPPT As Presentation
    Dim oSlide As Slide
    Dim oCL As CustomLayout
    Dim oP As Shape
    '新的插入的图形
    Dim oNP As Shape
    '当前ppt演示文稿
    Set oPPT = PowerPoint.ActivePresentation
    With oPPT
        '遍历每一个幻灯片
        For Each oSlide In .Slides
            With oSlide
                '遍历每一个已有的矩形
                For i = 1 To 6
                    Set oP = .Shapes("矩形 " & i)
                    Set oNP = .Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)
                    With oNP
                        sName = "矩形 " & 6 + i
                        .Name = sName
                        .Left = oP.Left
                        .Top = oP.Top
                        .Width = oP.Width
                        .Height = oP.Height
                        .TextFrame.TextRange.Text = "循环图片" & 6 + i
                    End With
                Next i
            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

27

28

29

30

31

Sub QQ1722187970()

Dim oPPT As Presentation

Dim oSlide As Slide

Dim oCL As CustomLayout

Dim oP As Shape

'新的插入的图形

Dim oNP As Shape

'当前ppt演示文稿

Set oPPT = PowerPoint.ActivePresentation

With oPPT

'遍历每一个幻灯片

For Each oSlide In .Slides

With oSlide

'遍历每一个已有的矩形

For i = 1 To 6

Set oP = .Shapes("矩形 " & i)

Set oNP = .Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)

With oNP

sName = "矩形 " & 6 + i

.Name = sName

.Left = oP.Left

.Top = oP.Top

.Width = oP.Width

.Height = oP.Height

.TextFrame.TextRange.Text = "循环图片" & 6 + i

End With

Next i

End With

End Sub

阅读全文

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

2018年12月5日作者：exceloffice

暂无评论

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

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

在ppt vba中，所有的图形的相关操作都可以用Shape对象来实现。

如果要将一个ppt演示文稿中的特定某个类型的图形的尺寸、大小、位置都统一调[……]

阅读全文

如何用vba批量修改ppt中表格的字体格式？

2018年4月3日作者：exceloffice

暂无评论

表格在office的不同组件中都存在。

在excel中所有都是表格，word中可以插入表格，ppt中也可以插入表格。

在vba中，excel的表格是以range对象存在的，word中的表格是以table对象存在的，同样的ppt中的表格也是以table对象存在的。

不同的是ppt中的[……]

阅读全文

如何在excel中用vba把所有图形对象导出为图片格式的文件？

2018年3月12日作者：exceloffice

暂无评论

在如何在excel中用vba把图表导出为图片格式的文件？一文中介绍了用vba将各种类型的图表导出为独立的图片格式文件的方法，其实现原理就是利用chart对象的export方法把图表导出为文件。

对于非图表对象，可以先把该对象复制到剪贴板，然后再用Chart对象的Paste方法把它装入Chart[……]

阅读全文

如何在excel中用vba把图表导出为图片格式的文件？

2018年3月12日作者：exceloffice

暂无评论

在excel vba中Chart对象的Export方法可以把图表导出为图片。

它的语法如下：

expression .Export(Filename, FilterName, Interactive)

1	expression .Export(Filename, FilterName, Interactive)

其中expression指的是Chart对象，Filename为导出后的文件的名称，FilterName、Interactive[……]

阅读全文

如何用vba遍历word文档的图形对象？

2017年5月15日作者：exceloffice

暂无评论

在word中的图形对象有InlineShape对象和Shape对象，其中InlineShape对象表示的是嵌入到文本层的图片，就像是文字的一部分一样，而Shape对象是悬浮于文本之上位于图形层，两者有区别。

如果需要将所有除了文字以外的对象都清除，需要同时遍历InlineShape对象和Sha[……]

阅读全文

如何用vba批量删除工作簿内所有工作表上的图形对象？

2017年2月1日作者：exceloffice

暂无评论

单击F5快捷键→定位条件→对象→确定可以一次性选中当前工作表的所有图形对象，然后通过DEL键删除。

但是如果要删除的对象位于多个工作表，且不清楚具体是在哪几个工作表时，使用如下的VBA代码将会更加的便捷。

Sub QQ1722187970()
    Dim oWK As Worksheet
    Dim oSP As Shape
    '遍历所有工作表
    For Each oWK In Excel.ThisWorkbook.Sheets
        '遍历所有图形对象
        For Each oSP In oWK.Shapes
            oSP.Delete
        Next
    Next
End Sub

1

2

3

4

5

6

7

8

9

10

11

Sub QQ1722187970()

Dim oWK As Worksheet

Dim oSP As Shape

'遍历所有工作表

For Each oWK In Excel.ThisWorkbook.Sheets

'遍历所有图形对象

For Each oSP In oWK.Shapes

oSP.Delete

End Sub

[……]

阅读全文

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

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

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

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

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

如何用vba批量修改ppt中表格的字体格式？

如何在excel中用vba把所有图形对象导出为图片格式的文件？

如何在excel中用vba把图表导出为图片格式的文件？

如何用vba遍历word文档的图形对象？

如何用vba批量删除工作簿内所有工作表上的图形对象？

近期文章

功能

近期文章

关键字

功能