Office365|VBA教程|Excel教程|Word教程|WPS-ExcelOffice

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

2019年3月20日作者：exceloffice

暂无评论

在ppt vba中如果要循环批量删除幻灯片中的图形等对象，会遇到很多困难。

比如当执行如下For Each … In 的vba代码删除ppt中第一张幻灯片中的所有图片后，会发现并没有将图片全部删除。

Sub QQ1722187970()
    Dim oPPT As PowerPoint.Presentation
    Dim oSlide  As Slide
    Set oPPT = PowerPoint.ActivePresentation
    Dim oSP As Shape
    With oPPT
        Set oSlide = .Slides(1)
        With oSlide
           For Each oSP In .Shapes
                oSP.Delete
           Next
        End With
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

Sub QQ1722187970()

Dim oPPT As PowerPoint.Presentation

Dim oSlide As Slide

Set oPPT = PowerPoint.ActivePresentation

Dim oSP As Shape

With oPPT

Set oSlide = .Slides(1)

With oSlide

For Each oSP In .Shapes

oSP.Delete

End With

End Sub

当修改为执行如下的For i = 1 To .Shapes.Count 的vba代码删除ppt中第一张幻灯片中的所有图片[……]

阅读全文

如何在vba中访问PPT中幻灯片的文本框等控件？

2019年3月20日作者：exceloffice

暂无评论

如下图所示，可以通过“开发工具”选项卡下的“控件”组给PPT中的幻灯片添加控件。

当添加了控件以后如果想要在vba中访问幻灯片中控件的值，可以通过具体的某个幻灯片的类名+控件名称的方式访问，如下图所示：

如何用vba更新数据透视表？

2019年3月18日作者：exceloffice

暂无评论

在用vba操作数据透视表时，经常需要更新数据透视表。

使用vba更新数据透视表，可以使用数据透视表对象PivotTable更新也可以使用数据透视表的缓存对象PivotCache更新。

vba中内置了很多透视表的更新方法，接下来一一介绍：

方法1：使用PivotTable对象的RefreshTable方法更新数据透视表，如果更新成功，将会返回True。

特别提醒：不能使用Pi[……]

阅读全文

如何用vba将excel单元格区域的内容转化为图片？

2019年3月18日作者：exceloffice

暂无评论

在vba中如果要将excel的单元格区域内容转化为图片，可以有多种方法。

方法1：使用Range对象的CopyPicture方法将单元格区域复制为图片，这与单击“开始”选项卡下的“复制为图片”是一样的效果，如下图所示：

Range对象的CopyPicture方法具有两个参数，分别为Appearance参数，用于指定复制后的图片的外观是如屏幕所示还是如打印效果，以及Format参[……]

阅读全文

如何用vba返回桌面文件夹的路径？

2019年3月18日作者：exceloffice

暂无评论

在Windows系统中，桌面是一个虚拟的文件夹。

不同的电脑，桌面文件夹的路径是不一样的。

如果要用vba返回任意电脑的桌面文件夹路径，可以使用内核对象Shell的SpecialFolders属性返回桌面文件夹的路径，代码如下：

Sub QQ1722187970()
    Dim oWShell
    '创建内核对象
    Set oWShell = CreateObject("WScript.Shell")
    With oWShell
        '获取桌面文件夹的路径
        sDesktopPath = .SpecialFolders("Desktop")
        MsgBox sDesktopPath
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

Sub QQ1722187970()

Dim oWShell

'创建内核对象

Set oWShell = CreateObject("WScript.Shell")

With oWShell

'获取桌面文件夹的路径

sDesktopPath = .SpecialFolders("Desktop")

MsgBox sDesktopPath

End With

End Sub

如何用vba实现excel单元格区域内容、公式的填充？

2019年2月28日作者：exceloffice

暂无评论

在excel工作表中，当在单元格区域中输入公式或者内容以后，我们往往会拖拉填充柄进行上下左右的内容或者公式的填充。

如果要在vba中模拟这个动作，可以使用Range对象的AutoFill方法。

Range对象的AutoFill方法有两个参数，分别是Destination和Type。

其中Destination参数为要填充的目标单元格区域，该区域必须包含源单元格区域。

比如A[……]

阅读全文

如何用vba在excel单元格区域中输入函数公式？

2019年2月27日作者：exceloffice

暂无评论

在excel中，我们可以在单元格中输入各种函数公式。

比如，我们可以在A4单元格中输入公式

=SUM(A1:A3)

1	=SUM(A1:A3)

计算A1:A3单元格区域的和。

如果要在vba中实现输入上述的函数公式，可以直接将上述公式作为字符串赋值给Range对象的Formula属性，代码如下：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Dim oRng As Range
    Set oWK = Excel.ActiveSheet
    With oWK
        Set oRng = .Range("a4")
        With oRng
            .Formula = "=SUM(A1:A3)"
        End With
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

Sub QQ1722187970()

Dim oWK As Worksheet

Dim oRng As Range

Set oWK = Excel.ActiveSheet

With oWK

Set oRng = .Range("a4")

With oRng

.Formula = "=SUM(A1:A3)"

End With

End Sub

上[……]

阅读全文

如何用vba实现word邮件合并主文档与数据源的路径自动匹配？

2019年2月26日作者：exceloffice

暂无评论

经常使用邮件合并的都会发现，一旦邮件合并的数据源移动了位置，之前做好的邮件合并就需要重新选择数据源。

在VBA中可以使用如下的代码实现word邮件合并主文档与excel数据源的路径自动匹配：

Private Sub Document_Open()
    Call QQ1722187970
End Sub
Private Sub Document_Close()
    Dim oMailMerge As MailMerge
    Dim oDoc As Document
    Dim oMailMergeDataSource As MailMergeDataSource
    Set oDoc = Word.ActiveDocument
    Set oMailMerge = oDoc.MailMerge
    '邮件合并对象
    With oMailMerge
        .MainDocumentType = wdNotAMergeDocument
    End With
End Sub
Sub QQ1722187970()
    Const xlUp = -4162
    Dim oMailMerge As MailMerge
    Dim oDoc As Document
    Dim oMailMergeDataSource As MailMergeDataSource
    Dim sPath As String
    Dim sName As String
    sPath = Word.ActiveDocument.Path & "\"
    sName = Dir(sPath & "*.xls*", vbNormal)
    Dim oExcel As Object
    Set oExcel = VBA.CreateObject("excel.application")
    Set oWB = oExcel.workbooks.Open(sPath & sName)
    Dim oWK
    Set oWK = oWB.worksheets(1)
    sTableName = oWK.Name
    iRow = oWK.Range("a65536").End(xlUp).Row
    '此处修改为excel文档的名称即可
    Set oDoc = Word.ActiveDocument
    Set oMailMerge = oDoc.MailMerge
    '连接字符串
    sConStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & sName & ";Extended Properties='HDR=YES;IMEX=1'"
    sSQL = "SELECT * FROM [" & sTableName & "$a2:o" & iRow & "]"
    Debug.Print sSQL
    '邮件合并对象
    With oMailMerge
        .MainDocumentType = wdNotAMergeDocument
        .MainDocumentType = wdFormLetters
        'Name参数表示excel数据源的完整路径, LinkToSource参数表示是否每次打开word文档都执行sql命令,Revert表示如果数据源已经打开是否重新打开
        .OpenDataSource Name:=sPath & sName, _
        LinkToSource:=False, _
        Revert:=True, _
        Connection:=sConStr, _
        SQLStatement:=sSQL
    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

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

Private Sub Document_Open()

Call QQ1722187970

End Sub

Private Sub Document_Close()

Dim oMailMerge As MailMerge

Dim oDoc As Document

Dim oMailMergeDataSource As MailMergeDataSource

Set oDoc = Word.ActiveDocument

Set oMailMerge = oDoc.MailMerge

'邮件合并对象

With oMailMerge

.MainDocumentType = wdNotAMergeDocument

End With

End Sub

Sub QQ1722187970()

Const xlUp = -4162

Dim oMailMerge As MailMerge

Dim oDoc As Document

Dim oMailMergeDataSource As MailMergeDataSource

Dim sPath As String

Dim sName As String

sPath = Word.ActiveDocument.Path & "\"

sName = Dir(sPath & "*.xls*", vbNormal)

Dim oExcel As Object

Set oExcel = VBA.CreateObject("excel.application")

Set oWB = oExcel.workbooks.Open(sPath & sName)

Dim oWK

Set oWK = oWB.worksheets(1)

sTableName = oWK.Name

iRow = oWK.Range("a65536").End(xlUp).Row

'此处修改为excel文档的名称即可

Set oDoc = Word.ActiveDocument

Set oMailMerge = oDoc.MailMerge

'连接字符串

sConStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & sName & ";Extended Properties='HDR=YES;IMEX=1'"

sSQL = "SELECT * FROM [" & sTableName & "$a2:o" & iRow & "]"

Debug.Print sSQL

'邮件合并对象

With oMailMerge

.MainDocumentType = wdNotAMergeDocument

.MainDocumentType = wdFormLetters

'Name参数表示excel数据源的完整路径, LinkToSource参数表示是否每次打开word文档都执行sql命令,Revert表示如果数据源已经打开是否重新打开

.OpenDataSource Name:=sPath & sName, _

LinkToSource:=False, _

Revert:=True, _

Connection:=sConStr, _

SQLStatement:=sSQL

End With

End Sub

如何用vba连接关联word邮件合并的数据源？

2019年2月26日作者：exceloffice

暂无评论

在用word做邮件合并时，我们经常需要选择邮件合并的数据源。

选择的数据源经常是excel文档。

在vba中可以使用MailMerge对象的OpenDataSource方法连接外部数据源。

MailMerge对象的OpenDataSource方法具有许多参数，以下是一个通用的连接excel数据源的代码：

Sub QQ1722187970()
    Dim oMailMerge As MailMerge
    Dim oDoc As Document
    Dim oMailMergeDataSource As MailMergeDataSource
    Dim sPath As String
    Dim sName As String
    sPath = Word.ActiveDocument.Path & "\"
    sName = "测试.xlsx"
    Set oDoc = Word.ActiveDocument
    Set oMailMerge = oDoc.MailMerge
    '连接字符串
    sConStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & sName & ";Extended Properties='HDR=YES;IMEX=1'"
    '邮件合并对象
    With oMailMerge
        .MainDocumentType = wdFormLetters
        'Name参数表示excel数据源的完整路径, LinkToSource参数表示是否每次打开word文档都执行sql命令,Revert表示如果数据源已经打开是否重新打开
        .OpenDataSource Name:=sPath & sName, _
        LinkToSource:=False, _
        Revert:=True, _
        Connection:=sConStr, _
        SQLStatement:="SELECT * FROM [sheet1$b2:c5]"
    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

Sub QQ1722187970()

Dim oMailMerge As MailMerge

Dim oDoc As Document

Dim oMailMergeDataSource As MailMergeDataSource

Dim sPath As String

Dim sName As String

sPath = Word.ActiveDocument.Path & "\"

sName = "测试.xlsx"

Set oDoc = Word.ActiveDocument

Set oMailMerge = oDoc.MailMerge

'连接字符串

sConStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & sName & ";Extended Properties='HDR=YES;IMEX=1'"

'邮件合并对象

With oMailMerge

.MainDocumentType = wdFormLetters

'Name参数表示excel数据源的完整路径, LinkToSource参数表示是否每次打开word文档都执行sql命令,Revert表示如果数据源已经打开是否重新打开

.OpenDataSource Name:=sPath & sName, _

LinkToSource:=False, _

Revert:=True, _

Connection:=sConStr, _

SQLStatement:="SELECT * FROM [sheet1$b2:c5]"

End With

End Sub

如何用vba判断邮件合并主文档的状态？

2019年2月26日作者：exceloffice

暂无评论

在vba中可以使用MailMerge对象的State属性判断邮件合并对象的执行阶段。

它的值可以是以下几种：

名称
值
说明

wdDataSource
5
A data source with no main document.

wdMainAndDataSource
2
A main document with an attached data[……]

阅读全文

ExcelOffice

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

如何在vba中访问PPT中幻灯片的文本框等控件？

如何用vba更新数据透视表？

如何用vba将excel单元格区域的内容转化为图片？

如何用vba返回桌面文件夹的路径？

如何用vba实现excel单元格区域内容、公式的填充？

如何用vba在excel单元格区域中输入函数公式？

如何用vba实现word邮件合并主文档与数据源的路径自动匹配？

如何用vba连接关联word邮件合并的数据源？

如何用vba判断邮件合并主文档的状态？

扫一扫下面的二维码图案，加我微信

近期文章

功能

扫一扫下面的二维码图案，加我微信

关键字

近期文章

功能