word中快捷键控制图片缩放

word图片 缩放 快捷键

自己写一个vba，也就是宏，再将这个宏附加到按钮上，再添加到工具栏里。

按比例缩放：把word中的所有图片按比例缩放！

vba代码如下：

Sub

setpicsize（) '设置图片大小

Dim n '图片个数

Dim picwidth

Dim picheight

dim obj

On Error Resume Next '忽略错误

For

n = 1 To

ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

obj=ActiveDocument.InlineShapes(n)

picheight =obj.Height

picwidth = obj.Width

obj.Height = picheight * 0.9 '设置高度为.9倍

obj.Width = picwidth * .9 '设置宽度为.9倍

Next

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

obj=ActiveDocument.Shapes(n)

picheight = obj.Height

picwidth = obj.Width

obj.ight = picheight * .9 '设置高度为.9倍

obj.dth = picwidth * .9 '设置宽度为.9倍

Next

End

Sub

word中如何快速让图片设置成一样大小

Word中批量设置插入图片的大小的方法如下： 1、在电脑桌面中双击Word快捷方式，或使用系统任务栏中的搜索栏搜索：word，随后点击搜索结果来打开word应用程序。

2、在打开word应用程序的软件界面右侧上方选择“空白文档”选项，系统会自动新建一个空白的文档。 3、在随后打开的软件界面上方选择“插入”选项卡，在随后打开的菜单组中选择“图片”按钮。

4、从自己的计算机中选择多张图片，并在对话框下部点击“插入”按钮。 5、任意选择一张图片，并右键选择该图片，点击“大小和位置”按钮。

6、在弹出的对话框中取消勾选“锁定纵横比”按钮。 7、随后更改高度和宽度的绝对值为统一值，点击“确定”后在文档界面按下键盘快捷键F4即可批量更改完成。

。

WORD如何批量缩小图片我现在WORD中有一百张图片,由于图片比

打开所要调整图片大小的word文档。

点击工具—宏—visual basic编辑器。点击试图—代码窗口，打开代码窗口。

将代码“Sub setpicsize（) '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument。 InlineShapes。

Count 'InlineShapes类型图片ActiveDocument。InlineShapes(n)。

Height = 100 '设置图片高度为 100pxActiveDocument。InlineShapes(n)。

Width = 100 '设置图片宽度 100pxNext nFor n = 1 To ActiveDocument。Shapes。

Count 'Shapes类型图片ActiveDocument。Shapes(n)。

Height = 100 '设置图片高度为 100pxActiveDocument。 Shapes(n)。

Width = 100 '设置图片宽度 100pxNext nEnd Sub”输入窗口，修改其中“Height = 100”和“Width = 100”即可按照要求更改图片大小。点击运行—运行子程序，或者按F5运行即可。

图片大小就修改完毕。如果说图片是按比例修改，则把第三步的程序改为：Sub setpicsize（) '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument。

InlineShapes。Count 'InlineShapes类型图片picheight = ActiveDocument。

InlineShapes(n)。Heightpicwidth = ActiveDocument。

InlineShapes(n)。 WidthActiveDocument。

InlineShapes(n)。Height = picheight * 1。

1 '设置高度为1。1倍ActiveDocument。

InlineShapes(n)。Width = picwidth * 1。

1 '设置宽度为1。1倍Next nFor n = 1 To ActiveDocument。

Shapes。Count 'Shapes类型图片picheight = ActiveDocument。

Shapes(n)。Heightpicwidth = ActiveDocument。

Shapes(n)。WidthActiveDocument。

Shapes(n)。Height = picheight * 1。

1 '设置高度为1。1倍ActiveDocument。

Shapes(n)。Width = picwidth * 1。

1 '设置宽度为1。1倍Next nEnd Sub。

在word中,怎样将图片设置缩放比例为30﹪

word中将图片缩放改为30%的方法如下：

1、通过桌面快捷方式或搜索来打开word文档。

2、在随后打开的界面左侧点击需要设置图片缩放的文档。

3、在接着打开的界面中点击图片，使其自动出现控制点。

4、在word文档界面上方的“格式”选项卡右侧点击“更多”按钮。

5、在随后弹出的对话框中勾选“锁定宽高比”，并将宽度和高度改为30%，随后点击确定即可。

转载请注明出处51数据库 » word中快捷键控制图片缩放