在第一页页眉中插入图像，并在VBA中定义其位置

Sub InsertImageInFirstPageHeader()
    Dim imagePath As String
    Dim headerPicture As InlineShape
    
    ' 设置图像文件路径
    imagePath = "C:\路径\图片.jpg"
    
    ' 插入图像并定义位置
    Set headerPicture = ActiveDocument.InlineShapes.AddPicture(FileName:=imagePath, LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range)
    headerPicture.Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.WrapFormat.Type = wdWrapBehind
    Selection.ShapeRange.Left = CentimetersToPoints(5) ' 图像左边距
    Selection.ShapeRange.Top = CentimetersToPoints(2) ' 图像上边距
    Selection.ShapeRange.Width = CentimetersToPoints(3) ' 图像宽度
    Selection.ShapeRange.Height = CentimetersToPoints(3) ' 图像高度
    
    ' 保存并关闭VBA编辑器
    ThisDocument.Close SaveChanges:=True
End Sub