WORD中批量取消锁定纵横比.

发布网友 发布时间：2022-04-28 10:47

我来回答

共4个回答

热心网友 时间：2022-07-11 15:46

1、首先我们在电脑上打开word需要进行操作的文档。

2、点击选中文档中的图片后，点击菜单栏的格式菜单项。

3、在打开的格式工具栏上点击大小的展开按钮。

4、这时就会打开word的布局窗口，在窗口中找到锁定纵横比的设置项，点击取消前面的勾选即可解决。

热心网友 时间：2022-07-11 15:47

Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
Selection.InlineShapes(n).LockAspectRatio = msoFalse
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 340 '设置图片宽度 300px
Next n
End Sub

热心网友 时间：2022-07-11 15:47

热心网友 时间：2022-07-11 15:48

设定单个图片大小的宏：
Sub 宏5()
Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横比锁定
Dim h!, w!
h = Selection.InlineShapes(1).Height
w = Selection.InlineShapes(1).Width
Selection.InlineShapes(1).Height = 627 '设置图片高度为 627px
Selection.InlineShapes(1).Width = 407 '设置图片宽度 407px
End Sub
设定单个图片比例的宏：
Sub 宏3()
Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横比锁定
Dim h!, w!
h = Selection.InlineShapes(1).Height
w = Selection.InlineShapes(1).Width
Selection.InlineShapes(1).Height = h * 1.25 '设置图片高度比例为125%
Selection.InlineShapes(1).Width = w * 0.77 '设置图片宽度比例为77%
End Sub
批量设定图片大小的宏：
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
Selection.InlineShapes(n).LockAspectRatio = msoFalse
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
批量设定图片比例的宏
Sub 宏1()
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
Selection.InlineShapes(n).LockAspectRatio = msoFalse
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
End Sub