Word 插入图片后添加回车键：VBA 宏代码详解

在将图片插入 Word 文档后，您是否希望在每张图片后自动添加两个回车键，以便更好地控制文本格式和图片之间的间距？

本文将介绍如何使用 VBA 宏代码来实现这一功能。

VBA 宏代码

以下是 VBA 宏代码，可以将图片插入 Word 文档后，在每张图片后自动添加两个回车键：

Sub SaveChartsAsBMPAndInsertToWord()
    ' 打开 Excel 文件
    Dim wbExcel As Workbook
    Set wbExcel = Workbooks.Open('C:\path\to\your\excel\file.xlsx')
    
    ' 打开 Word 文档
    Dim wordApp As Object
    Set wordApp = CreateObject('Word.Application')
    wordApp.Visible = True
    Dim wordDoc As Object
    Set wordDoc = wordApp.Documents.Add
    
    ' 循环处理每个图表
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim picPath As String
    Dim i As Integer
    
    Set ws = wbExcel.Worksheets('Sheet1') ' 替换为你实际使用的工作表
    i = 1 ' 图表索引从1开始
    
    Do Until i > ws.ChartObjects.Count
        ' 选择工作表中的图表
        Set chartObj = ws.ChartObjects(i)
        
        ' 将图表保存为 BMP 图片文件
        picPath = 'C:\path\to\your\image' & i & '.bmp' ' 使用不同的文件名
        chartObj.Chart.CopyPicture
        
        With CreateObject('Shell.Application')
            .Namespace(picPath).InvokeAsFile = True
        End With
        
        ' 插入 BMP 图片到 Word 文档
        wordDoc.Content.Paste
        
        ' 添加两个回车键
        wordApp.Selection.TypeParagraph
        wordApp.Selection.TypeParagraph
        
        i = i + 1
    Loop
    
    ' 保存 Word 文档
    wordDoc.SaveAs 'C:\path\to\your\document.docx' ' 替换为你想要保存的完整路径
    wordDoc.Close
    wordApp.Quit
    
    ' 关闭 Excel 文件
    wbExcel.Close False
End Sub

代码说明

打开 Excel 和 Word 文档： 代码首先打开 Excel 文件和 Word 文档，并设置可见属性为 True，方便用户观察操作过程。
循环处理图表： 代码使用循环遍历 Excel 文件中的所有图表。
将图表保存为 BMP 图片： 代码将每个图表保存为 BMP 图片文件，并使用不同的文件名以避免冲突。
插入图片到 Word 文档： 代码将图片插入到 Word 文档中。
添加两个回车键： 关键部分！代码使用 wordApp.Selection.TypeParagraph 命令在插入图片后添加两个回车键。
保存 Word 文档： 代码保存并关闭 Word 文档，并关闭 Excel 文件。

使用说明

将以上代码复制到 Excel 文件的 VBA 编辑器中。
将代码中的路径和工作表名称替换为你实际使用的值。
运行宏代码。

其他提示

你可以使用其他图片格式，例如 JPEG 或 PNG，只需要修改保存图片文件的代码。
你可以根据需要修改添加回车键的数量。
如果你需要插入多个图片，建议将以上代码封装成一个函数，方便调用。

希望这篇文章可以帮助你轻松地在 Word 插入图片后添加回车键！如果你还有其他问题，请随时提问。