用VBA在Word文档中插入图像

Sub InsertImage()
    Dim imagePath As String
    Dim doc As Document
    Dim rng As Range
    Dim shape As Shape
    
    ' 设置图像路径
    imagePath = "C:\path\to\image.jpg"
    
    ' 获取当前活动的文档
    Set doc = ActiveDocument
    
    ' 获取当前光标位置
    Set rng = Selection.Range
    
    ' 在光标位置插入图像
    Set shape = doc.Shapes.AddPicture(FileName:=imagePath, LinkToFile:=False, SaveWithDocument:=True, Range:=rng)
    
    ' 调整图像大小和位置
    shape.LockAspectRatio = msoFalse ' 可以自由调整宽高比例
    shape.Width = 200 ' 设置图像宽度为200磅
    shape.Height = 150 ' 设置图像高度为150磅
    shape.Left = rng.Information(wdHorizontalPositionRelativeToPage) ' 设置图像左边距为当前页面的左边距
    shape.Top = rng.Information(wdVerticalPositionRelativeToPage) ' 设置图像上边距为当前页面的上边距
End Sub