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插入图片

在Microsoft Word中利用VBA (Visual Basic for Applications) 插入图片通常涉及到编写一段简单的宏脚本。以下是步骤：

1. 打开Word文档并转到“开发者”选项卡（如果没显示，可通过“文件”>“选项”>“自定义功能区”添加）。在这里，你可以找到“Visual Basic”按钮。

2. 点击“Visual Basic”按钮，会出现一个新的窗口，选择“Insert”菜单，然后选择“Module”。这将创建一个新的VBA模块，用于编写代码。

3. 在新的模块窗口中，输入或粘贴以下代码：

   Sub InsertImage()
       Dim picPath As String ' 你需要替换为你想要插入图片的路径
       picPath = "C:\path\to\your\image.jpg" ' 替换为实际图片路径
       
       ' 创建图片对象，并插入到当前光标位置
       ActiveDocument.InlineShapes.AddPicture FileName:=picPath, LinkToFile:=False, SaveWithDocument:=True
   End Sub

4. 保存你的宏，然后关闭VBA编辑器。返回Word文档，按需可以在需要插入图片的地方按下Alt + F8组合键打开宏下拉列表，选择刚编写的“InsertImage”，然后点击运行，图像就会插入到指定的位置。

word vba 图片操作

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