Word里面怎么批量解决图片放大缩少吗?
可以借助宏来实现。
1.点击视图-宏-输入setpicsize或任意名字-创建。
2.出现的界面输入,下面的代码,意思是把图片尺寸改为5cm和4cm,此参数可改:Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm (1cm等于28.35px)ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cmNext nEnd Sub3.运行:点击-视图-宏-运行即可把所有图片设为上述尺寸。
怎么方便快捷的把word里的所以图片一次性放大??
word文档放大图片方法:1.在第一张图片上点击右键,选择设置图片格式,观察图片大小。
2.增加图片比例,点击确定。
3.观察效果。
4.选择第二张图片。
5.按F4键放大第二张图片,保持尺寸和第一张图片尺寸一致。
6.以同样的方式依次选择其他图片进行放大,保持尺寸和第一张图片比例一致即可(选中图片并按F4键,只能单选,不能多选)。
怎么把word里的图片放大
批量调整word中插入的图片大小,需要用到“选中多个对象”这个工具;操作方法如下:1;文档中所有的图片无论是放在一页,还是分布在多页上,操作都一样;先在文档绘图工具栏中点下“选中多个对象”工具;2;弹出的操作框中,点“全选”,点"全选“后,在”对象“这里的图片即被打上勾;然后,点确定;3;点确定后,文档中所有图片即被同时选中;4;然后,在任意一张图片上鼠标右键点下,弹出的菜单中点“设置图片格式”;5;弹出的操作框中,点下“大小”;打开“大小”设置框;在“高度”和“宽度”分别 设置自己预定的数字;在“锁定纵横比”和“相对原始图片大小”这两处要取消勾;然 后点确定。
6;点确定后,文档中所有图片都同时一次的批量的调整了大小。
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文档里的图片全部放大
设置方法:1、按住Ctrl键,用鼠标点击图片,需要设置的图片一起选中(图片的环绕方式必须是非除嵌入型的);2、单击图片工具格式选项卡,在高度和宽度输入框中输入所需要的数值即可,如图所示。
word如何批量插入图片
方法一:1、单击插入---->图片,如图所示;2、在弹出“插入图片”对话框中选择存放图片的位置,此时按住 Ctrl 键,你就可以用鼠标选择多张图片了;或者你也可以按 Shift 键,然后单击选中一张图片,再单击另一张图片,则自动选中了这两张图片为对角线的矩形范围内的所有图片;或者直接按快捷键 Ctrl+A 全选,全部选中。
最后“插入”即可,如图所示。
方法二:1、打开存放图片的位置,然后选中你的插入的全部图片;2、在按下鼠标右键,选择“复制”;3、Word文档中,按下鼠标再按下右键,选择“粘贴”,即可快速想插入的多个图片。
word如何排版批量图片
在word中,默认插入的嵌入式图片是不能批量统一设置,只有将默认修改为四周型后,才可以批量修改图片版式或大小,具体操作方法如下:1、打开WORD,在”工具“菜单下选择”选项“命令;2、在”选项“窗口中,在”编辑”选项卡下,将插入图片的格式选择为“四周型”;3、在“插入”菜单中选择“图片”/“来自文件”;4、在“插入图片“对话框中选择要插入的图片;5、在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”;6、使用“选中多个对象”,将所有插入的图片全部选中;7、双击任意一图片,在弹出的对话框中,就可以统一批量设置了,完成。
如何在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批量修改图片大小的方法就是这样的了,这两种方法各有千秋,大家可以根据情况自行选择哦!
转载请注明出处51数据库 » word怎么批量放大图片