怎么用宏代码选中word中所有图片？

Question

在word中设置宏代码选中文档中所有图片，这个vba代码怎么写？图片全是嵌入型，要求是选中所有图片即可，用于随意调整所有的图。

Answer 1

该回答引用ChatGPT
您可以使用以下VBA代码设置宏，以选中Word文档中的所有图片：

Sub SelectAllPictures()
Dim Pic As Shape
For Each Pic In ActiveDocument.Shapes
If Pic.Type = msoPicture Then
Pic.Select
End If
Next Pic
End Sub

请按如下步骤进行操作：

1、打开Word文档。
2、按Alt + F11以进入Microsoft Visual Basic for Applications窗口。
3、在Microsoft Visual Basic for Applications窗口中，单击插入>模块。
4、在模块窗口中，输入以上代码。
5、单击运行按钮或按F5运行代码。
6、返回Word文档，单击宏>SelectAllPictures，您将看到所有图片已被选中。
现在，您可以随意调整所有图片的大小和位置。