Ⅰ 对word中的几个图片同时进行尺寸修改 其他的保持不变
1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!
2、宏名起好了,单击“创建”进入Visual
Basic
编辑器,输入如下代码并保存
Sub
setpicsize()
'设置图片大小
Dim
n
'图片个数
On
Error
Resume
Next
'忽略错误
For
n
=
1
To
ActiveDocument.InlineShapes.Count
'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height
=
400
'设置图片高度为
400px
ActiveDocument.InlineShapes(n).Width
=
300
'设置图片宽度
300px
Next
n
For
n
=
1
To
ActiveDocument.Shapes.Count
'Shapes类型图片
ActiveDocument.Shapes(n).Height
=
400
'设置图片高度为
400px
ActiveDocument.Shapes(n).Width
=
300
'设置图片宽度
300px
Next
n
End
Sub
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)
按比例缩放篇
这部分要说的是把word中的所有图片按比例缩放!
具体操作同上,只是代码部分稍做修改,代码如下:
Sub
setpicsize()
'设置图片大小
Dim
n
'图片个数
Dim
picwidth
Dim
picheight
On
Error
Resume
Next
'忽略错误
For
n
=
1
To
ActiveDocument.InlineShapes.Count
'InlineShapes类型图片
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类型图片
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
若还想使所有图片居中对齐,可在循环中加入下面的语句:
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment=
wdAlignParagraphCenter‘左对齐:wdAlignParagraphLeft
注意:这里的Shapes(InlineShapes)不仅仅是指图片,也包含其它的,自选图形、任意多边形、OLE
对象、ActiveX
控件、图片等。
Ⅱ word里怎么把图片大小调整一致
一、插入图片
打开Word文档,点击工具栏上面的【插入】-【图片】,选择需要的图片并且插入到文档中。
二、选择图片
我们可以看到这些图片的大小每一张都是不同的,然后选择其中任意一张图片,鼠标右键选择【大小和位置】。
三、修改图片大小
进入布局的窗口之后,先修改【高度的绝对值】,修改好之后,将下面的【锁定纵横比】取消勾选,这样【宽度的绝对值】就会随着高度的改变而改变,点击【确定】之后,图片就不会发生变形。
四、F4统一大小
第一张图片的大小设置完成后,先不要进行其他步骤,先用鼠标选择第二张需要修改的图片,然后按下快捷键【F4】就能执行上一步的操作,图片就会自动修改大小,就可以和上一张图片的大小一模一样了。
五、图片大小全部统一
通过上面的操作,大家应该知道该怎样做了吧,按住快捷键【F4】连续点击图片,图片大小就能全部统一了。
Ⅲ 如何在word中批量修改图片大小 Word中怎么批量修改图片固定大小
如何在word中批量修改图片大小
Word中怎么批量修改图片固定大小。相信很多人都使用过电脑中的word文档功能,因为这对于很多人来说都会经常用到的,非常的具有实用性。
解决:按alt+F11。然后在project右键插入模块,然后粘贴Sub
Macro()
Mywidth
=
4.13
Myheigth
=
5.48
For
Each
iShape
In
ActiveDocument.InlineShapesiShape.Height
=
28.345
*
Myheigth
iShape.Width
=
28.345
*
Mywidth
Next
iShape
End
Sub
再按F5,就行了。
其中Mywidth
=
4.13,Myheigth
=
5.48这里的数字你自己改大小。
固定长宽方法:
1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!
\
2、宏名起好了,单击“创建”进入Visual
Basic
编辑器,输入如下代码并保存Sub
setpicsize()
'设置图片大小
Dim
n
'图片个数
On
Error
Resume
Next
'忽略错误
Forn
=
1
ToActiveDocument.InlineShapes.Count
'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height
=
400
'设置图片高度为
400pxActiveDocument.InlineShapes(n).Width
=
300
'设置图片宽度
300pxNextn
Forn
=
1
ToActiveDocument.Shapes.Count
'Shapes类型图片ActiveDocument.Shapes(n).Height
=
400
'设置图片高度为
400pxActiveDocument.Shapes(n).Width
=
300
'设置图片宽度
300pxNextn
End
Sub
\
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)按比例缩放方法
这部分要说的是把word中的所有图片按比例缩放!
具体操作同上,只是代码部分稍做修改,代码如下:
Sub
setpicsize()
'设置图片大小
Dim
n
'图片个数
Dimpicwidth
Dimpicheight
On
Error
Resume
Next
'忽略错误
For
n
=
1
ToActiveDocument.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倍Nextn
For
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倍Nextn
End
Sub
若还想使所有图片居中对齐,可在循环中加入下面的语句:
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment=
wdAlignParagraphCenter‘左对齐:wdAlignParagraphLeft
注意:这里的Shapes(InlineShapes)不仅仅是指图片,也包含其它的,自选图形、任意多边形、OLE
对象、ActiveX
控件、图片等。
好了,word批量修改图片大小的方法就是这样的了,这两种方法各有千秋,大家可以根据情况自行选择哦!
Ⅳ 如何在word里面调整一张图片的方向而不改变大小形状
在Word2007中,插入图片后更改文字环绕,选中图片,图片上方出现一个绿色的控制旋钮,拖动该旋钮即可调整图片的方向。不过也可以精确调整图片的角度,选中图片——格式——排列——旋转——其他旋转选项——设置旋转角度——关闭即可。
Ⅳ 在WORD里面批量插入图片的时候 如何才能不需要改图片大小
设置方法:
1、打开word后,选择“页面布局”选项卡,并单击“页边距”按钮,在弹出的快捷菜单中选择“自定义页边距”命令;
2、弹出“页面设置”对话框,在“页边距”标签中,我们要修改“左右边距”,根据将要设置的图片的宽度大小,计算出左右边距大小。比如:我们要插入宽度为10厘米的图片,那么A4页面的左右边距就可以设为(21-10)/2,就是左右边距各为5.5厘米。设置完后点击“确定“;
3、返回word界面后,单击“插入”选项卡中的“图片”按钮;
4、弹出的“插入图片”对话框中选择要插入到word中的图片,单击右下角的“插入”按钮;
5、图片插入到word后,word就会自动对图片大小进行调整,调整的宽度就是刚才设置的10厘米;
6、在插入图片时,可以按住Ctrl键,单击所需要的图片,一次选中多张图片批量插入到word中;
7、批量把多张图片插入到word后,图片都按同样的宽度设置好了;
8、图片按统一的宽度大小设置成功后,再修改文档的页边距,图片的大小也不会再改变了。这时就可以输入文字,继续对文档进行编辑了。
Ⅵ 3.在word中,修改图形的大小时,要想保持其长宽比例不变,正确的操作方法有
锁定纵横比即可,操作方法如下:
1、选中图片;
2、单击鼠标右键,在弹出的快捷菜单中选择大小命令;
Ⅶ word里图片怎么设置可以不改变大小
一般来说图片插入word里面都是嵌入方式插入的,如果你的图片不超过页面大小,都会按照100%的比例插入,如果超过页面大小就会自动缩放到合适比例再插入。。。你可以在图片属性里面将缩放比例更改为100%就可以改回原图片大小了
Ⅷ 怎么把word里面的图片换成另一张不改变大小
先记下图片的大小,然后选中图片,把另一张图片复制后粘贴即可覆盖,然后再设置图片大小
Ⅸ 如何把word里的图片缩小并且不改变尺寸与清晰度
我是在做执照年检的时候上传资料遇到的问题,文件太大上传不了,通过以下操作可以缩小WORD,基本上不影响图片的效果。
在WORD里面双击图片,设置图片格式--图片--压缩(左下角)
如果你不想改变图片的清晰度与尺寸,就选择不修改分辨率见图
真诚的和你分享我的经验,虽然你悬赏分为零
Ⅹ 在word中怎样才能批量修改图片的高度而不改变比例
在WORD中,点:插入-图片-来自文件,输入图片。鼠标点一下图片,按住Shift键,将图片的一角拖动,就可以将图片长宽比不变地放大或缩小到合适的大小。