如何让word文档里的图片全部选中然后一起拉伸变大,覆盖全页面?

发布网友 发布时间：2022-04-25 12:52

我来回答

共3个回答

热心网友 时间：2023-07-02 15:36

用这个宏吧，可以一次选中word里的图片，然后要调整为多大，运行宏后自己设置，我也是找了好久好久，不是我写的，感谢那个原创者。如下：

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

热心网友 时间：2023-07-02 15:37

将图片设置为浮于文字上方，
然后按住ctrl键，将所有图片都选中，
右键--组合

热心网友 时间：2023-07-02 15:37

将图片设置为浮于文字上方那不见看不见文字了啊，请问你是主要起到什么做用啊