如何将图像从Excel中的单元格传输到Word header (左) VBA

Sub ExportImageToWord()
    Dim ws As Worksheet
    Dim rng As Range
    Dim strImagePath As String
    Dim objWordApp As Object
    Dim objDoc As Object
    Dim objHeader As Object
    
    ' 设置Excel工作表和图像范围
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1") ' 假设图像在A1单元格
    
    ' 获取图像路径
    strImagePath = rng.Value
    
    ' 创建Word应用程序对象
    Set objWordApp = CreateObject("Word.Application")
    objWordApp.Visible = True
    
    ' 打开Word文档
    Set objDoc = objWordApp.Documents.Open("C:\path\to\your\document.docx")
    
    ' 获取页眉对象
    Set objHeader = objDoc.Sections(1).Headers(1)
    
    ' 插入图像到页眉
    objHeader.Range.InlineShapes.AddPicture strImagePath, False, True, 0, 0, 100, 100
    
    ' 关闭Word应用程序
    objWordApp.Quit
End Sub

Sub InsertImageFromExcel()
    Dim objExcelApp As Object
    Dim objExcelWorkbook As Object
    Dim objExcelWorksheet As Object
    Dim strImagePath As String
    
    ' 创建Excel应用程序对象
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = False
    
    ' 打开Excel工作簿
    Set objExcelWorkbook = objExcelApp.Workbooks.Open("C:\path\to\your\workbook.xlsx")
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    
    ' 获取图像路径
    strImagePath = objExcelWorksheet.Range("A1").Value
    
    ' 关闭Excel应用程序
    objExcelWorkbook.Close
    objExcelApp.Quit
    
    ' 插入图像到页眉
    With ThisDocument.Sections(1).Headers(1).Range
        .Inlineshapes.AddPicture strImagePath, False, True, 0, 0, 100, 100
    End With
End Sub