vb在word中插入图片代码

在Visual Basic（VB）中，可以使用以下代码将图片插入到Word文档中：

首先，需要确保已经添加了对Microsoft Word对象库的引用。在VB中的"引用"菜单中选择"Microsoft Word XX.X Object Library"（其中XX.X表示Word的版本号）。

接下来，在代码中声明一个Word应用程序对象和一个Word文档对象：

Dim app As Word.Application
Dim doc As Word.Document

然后，创建一个新的Word应用程序实例，并打开一个新的文档：

Set app = CreateObject("Word.Application")
app.Visible = True '将Word应用程序设置为可见

Set doc = app.Documents.Add '创建一个新的文档并将其分配给doc对象

下一步是选择插入图片的位置，并将图片路径存储在一个字符串变量中：

Dim imagePath As String
imagePath = "C:\路径\图片.jpg" '将图片路径替换为实际图片路径

使用以下代码将图片插入到文档中：

doc.Range.InlineShapes.AddPicture FileName:=imagePath

最后，清理内存并关闭Word应用程序：

Set doc = Nothing
app.Quit
Set app = Nothing

这样就成功在Word文档中插入了一张图片。注意，需要根据实际情况修改代码中的图片路径。