1.在word中,怎样将图片设置缩放比例为30﹪
word中将图片缩放改为30%的方法如下:
1、通过桌面快捷方式或搜索来打开word文档。
2、在随后打开的界面左侧点击需要设置图片缩放的文档。
3、在接着打开的界面中点击图片,使其自动出现控制点。
4、在word文档界面上方的“格式”选项卡右侧点击“更多”按钮。
5、在随后弹出的对话框中勾选“锁定宽高比”,并将宽度和高度改为30%,随后点击确定即可。
2.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。
转载请注明出处51数据库 » word图片自动缩放