怎样一次选中word文档里的所有图片并调整其大小？
发布网友
发布时间：2022-02-21 11:22
共9个回答
懂视网
时间：2022-02-21 15:43
word设置所有图片一样大的方法：
1.用电脑里的Word软件打开所需文本。
2.鼠标右键点击要修改大小的图片，选择大小和位置。
3.修改图片的大小，点击确定。
4.选择其他要修改大小的图片，点击F4即可统一设置大小。
总结
1.用Word打开所需文本
2.鼠标右键点击图片并选择大小和位置
3.修改图片的大小后点击确定
4.选择其他图片并点击F4
热心网友
时间：2022-02-21 12:51
你可能还会说，那些图片一次只能选中一个，选第二个时前一个又脱离了被选中状态。这也有解决的办法：你先将某个图片选中，将其的“环绕方式”从“嵌入型”（注意：此时的“尺寸控点”为八个实心的小方块）改为“穿越型”（“尺寸控点”变为空心的小方块），将所有的图片全部改为“穿越型”后，就能在按住shift键的同时将文档中的所有图片选中，再在“设置图片格式”中一次性改变它们的大小了。
可要注意是否“锁定纵横比”哟！
祝你成功。
热心网友
时间：2022-02-21 14:09
热心网友
时间：2022-02-21 15:44
热心网友
时间：2022-02-21 17:35
Sub 图片统一大小()
On Error Resume Next
Dim mywidth
Dim myheight
Application.ScreenUpdating = False '关闭屏幕更新
mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35
myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35
'------------------------------------------------------------------
'调整嵌入式图形
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If mywidth = "0" Then
pic.Height = myheight
pic.ScaleWidth = pic.ScaleHeight
ElseIf myheight = "0" Then
pic.Width = mywidth
pic.ScaleHeight = pic.ScaleWidth
Else
pic.Width = mywidth
pic.Height = myheight
End If
Next
'调整浮动式图形
Dim tu As Shape
For Each tu In ActiveDocument.Shapes
If mywidth = "0" Then
tu.Height = myheight
ElseIf myheight = "0" Then
tu.Width = mywidth
Else
tu.LockAspectRatio = msoFalse
tu.Width = mywidth
tu.Height = myheight
End If
Next
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
热心网友
时间：2022-02-21 19:43
打开VB编辑器，将这个过程分为两个宏来处理：
1.将所有inlineshapes转变为shapes类型；
for each ishapes in selection.inlineshapes
ishapes.converttoinlineshape
next ishapes
2.将所有转化的shapes类型放大一定倍数然后还原为inlineshapes类型：
selection.shaperange.shapewidth 3,false
selection.shaperange.shapeheight 3,false
for each n in selection.shaperanges
n.converttoinlineshape
next n
上式中的两个三代表将长和宽分别扩大三倍。其他的性质可以自己探索~~最后选中图形执行宏就行了！
热心网友
时间：2022-02-21 22:08
热心网友
时间：2022-02-22 00:49
热心网友
时间：2022-02-22 03:47
