如何在WORD里利用VBA插入指定图片同时调整图片的长宽

在Word中使用VBA插入并调整图片的长宽，你可以创建一个自定义宏，以下是一个简单的步骤说明：

1. 打开Visual Basic编辑器（在Word菜单栏中选择“开发者”->“Visual Basic”）。

2. 点击“插入” -> “模块”，在这里编写你的VBA代码。

3. 以下是插入图片并调整大小的示例代码：

Sub InsertAndResizePicture()
    Dim picPath As String
    Dim doc As Document
    Dim range As Range
    Dim newPic As Shape
    
    ' 用户输入图片路径
    picPath = InputBox("请输入图片路径:", "插入图片", "")

    ' 检查路径是否有效
    If Dir(picPath) <> "" Then
        ' 创建一个新的Word文档实例
        Set doc = Documents.Add
        
        ' 设置插入点
        Set range = doc.Range
        
        ' 插入图片
        Set newPic = range.InlineShapes.AddPicture(picPath, msoFalse, msoFalse, 0, 0, 0, 0, 0, 0) ' 第二个参数表示是否覆盖原有文字，第三、四、五、六、七、八参数分别代表X,Y位置和宽度、高度
        
        ' 调整图片尺寸
        Dim desiredWidth As Integer, desiredHeight As Integer ' 输入或计算你想设置的新尺寸
        desiredWidth = 500 ' 这里设为500像素，可以根据需求修改
        desiredHeight = desiredWidth \ (newPic.Width / newPic.Height) ' 确保保持原始比例
        
        newPic.Width = desiredWidth
        newPic.Height = desiredHeight
        
        ' 提示用户图片已插入并调整
        MsgBox "图片 '" & picPath & "' 已插入并调整至：" & vbCrLf & _
               "宽度: " & desiredWidth & " 像素，高度: " & desiredHeight & " 像素"
        
        ' 关闭不需要的文档
        doc.Close SaveChanges:=False
    Else
        MsgBox "无法找到图片文件!"
    End If
End Sub

4. 将这段代码复制到模块中，运行`InsertAndResizePicture`宏，按照提示选择图片，然后程序会自动插入并调整图片大小。

注意，`desiredWidth` 和 `desiredHeight` 可以根据实际需要进行修改。在代码中，图片的比例将保持不变。