word vba插入图片

在Word VBA中插入图片，你可以使用 `InlineShapes.AddPicture` 方法。以下是一个示例代码：

Sub InsertImage()
    Dim imagePath As String
    Dim doc As Document
    Dim rng As Range
    Dim pic As InlineShape
    
    ' 设置图片路径
    imagePath = "C:\path\to\image.jpg"
    
    ' 获取当前文档对象
    Set doc = ActiveDocument
    
    ' 获取当前光标位置
    Set rng = Selection.Range
    
    ' 插入图片
    Set pic = doc.InlineShapes.AddPicture(FileName:=imagePath, Range:=rng)
    
    ' 调整图片大小
    pic.Width = 200  ' 设置宽度
    pic.Height = 150 ' 设置高度
End Sub

将上面的代码复制到 Word VBA 编辑器中，然后替换 `imagePath` 变量的值为你要插入的图片的路径。运行宏后，会在当前光标位置插入指定的图片，并调整图片大小。

请确保指定的图片路径是有效的，并且你有权限访问该路径下的图片文件。

相关问题

word vba 图片操作

可以回答这个问题。Word VBA 可以通过代码实现对图片的插入、删除、移动、缩放、旋转等操作。例如，可以使用 Selection.InlineShapes.AddPicture 方法插入图片，使用 InlineShape.Delete 方法删除图片，使用 InlineShape.PictureFormat.Rotation 属性旋转图片等。

Word VBA打开图片格式大小对话框

以下是一个示例代码，可以打开图片格式大小对话框：

Sub OpenImageDialog()
    Dim img As InlineShape
    Dim dlg As FileDialog
    
    Set dlg = Application.FileDialog(msoFileDialogOpen)
    dlg.Filters.Clear
    dlg.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.png"
    
    If dlg.Show = True Then
        Set img = ActiveDocument.InlineShapes.AddPicture(dlg.SelectedItems(1), False, True)
        img.Select
        Dialogs(wdDialogPictureFormatSize).Display
    End If
    
    Set dlg = Nothing
    Set img = Nothing
End Sub

这个代码会打开一个文件对话框，允许用户选择一个图片文件。如果用户选择了一个文件，那么代码会将这个图片插入到当前文档，并且选中这个图片，然后打开图片格式大小对话框。注意，这个代码只能在 Word VBA 中使用，不能在其他应用程序中使用。