写一个可以vba程序，可以直接在word中批量修改图片大小

好的，以下是一个可以使用VBA编写的程序，可以直接在Word中批量修改图片大小：

Sub ResizePictures()
    Dim pic As InlineShape
    Dim picWidth As Long, picHeight As Long
    
    '输入要缩放的比例
    Dim scale As Double
    scale = InputBox("请输入缩放比例：", "图片缩放")
    
    '遍历文档中的所有图片
    For Each pic In ActiveDocument.InlineShapes
        picWidth = pic.Width * scale '计算缩放后的宽度
        picHeight = pic.Height * scale '计算缩放后的高度
        pic.Width = picWidth '应用宽度
        pic.Height = picHeight '应用高度
    Next pic
    
    '提示缩放完成
    MsgBox "图片缩放完成！"
End Sub

你可以按照以下步骤来使用此程序：

1. 打开一个包含图片的Word文档；
2. 按下Alt+F11打开Visual Basic Editor；
3. 在菜单栏上选择“插入”->“模块”，然后将上述代码粘贴到模块窗口中；
4. 按下F5运行程序；
5. 在弹出的输入框中输入你想要缩放的比例，然后点击“确定”；
6. 程序将自动遍历文档中的所有图片，并缩放它们的大小；
7. 程序执行完毕后，将会弹出一个提示框，告诉你缩放完成。

希望这个程序能够帮到你。如果你还有任何问题或者需要进一步的帮助，请随时联系我。