使用VBA复制Excel区域并将其粘贴为Word文档中图片内容控件中的图像

Sub CopyExcelRangeToWord()
    Dim rng As Range
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object
    Dim wdShape As Object
    
    ' 定义要复制的Excel区域
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")
    
    ' 创建一个Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 将Excel区域复制到Word文档中
    rng.Copy
    
    ' 将剪贴板中的内容粘贴到Word文档中
    wdDoc.Range.Paste
    
    ' 将粘贴的内容转换为图片内容控件
    Set wdRange = wdDoc.Range(Start:=wdDoc.Content.Start, End:=wdDoc.Content.End)
    Set wdShape = wdRange.InlineShapes(1)
    
    ' 调整图片大小和位置
    wdShape.LockAspectRatio = msoFalse
    wdShape.Width = 300
    wdShape.Height = 200
    wdShape.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
    ' 保存Word文档
    wdDoc.SaveAs "C:\path\to\save\document.docx"
    
    ' 关闭Word文档和应用程序对象
    wdDoc.Close
    wdApp.Quit
    
    ' 释放对象变量
    Set rng = Nothing
    Set wdApp = Nothing
    Set wdDoc = Nothing
    Set wdRange = Nothing
    Set wdShape = Nothing
End Sub