word文档中插入图片大量图片后,如何一次性将所有图片的尺寸调成统...
如果 你 的 图片 都是 横放或者竖放,这很简单:例如:word 默认 A4 是21厘米 宽, 你的图片要求 宽 都是 10厘米那么,你把 word 的 页面设置 、 页边距 设置为: 左 5里面,右 6厘米 然后再插入图片,则大多数 图片 的宽度都是 10厘米啦。
然后,把文档页边距设置回你需要的文档宽度。
当然,可能你的 图片 有的原图 没有 10厘米宽,建议你不要使用,因为原图拉大,效果就不好了。
如果必须使用,毕竟是少数,手动把这少数 一 两张 设置好就是如果你原图 的高度不一样,但是 也都要 一样高,这个的话,就用Photoshop 的批处理 ,处理成同样的宽度、高度就是,再插入word
如何一次性选择WORD所有的图片
利用word中的宏可以解决这个问题。
打开VB编辑器,将这个过程分为两个宏来处理: 1.将所有inlineshapes转变为shapes类型; for each ishapes in selection.inlineshapes ishapes.converttoinlineshape next ishapes 2.将所有转化的shapes类型放大一定倍数然后还原为inlineshapes类型: selection.shaperange.shapewidth 3,false selection.shaperange.shapeheight 3,false for each n in selection.shaperanges n.converttoinlineshape next n 上式中的两个三代表将长和宽分别扩大三倍。
其他的性质可以自己探索~~最后选中图形执行宏就行了!
怎样把word中浮动图片一次性全部改嵌入式的?
设置方法:1、按住Ctrl键,用鼠标点击图片,选中所有的图片;2、单击图片工具格式----文字环绕----嵌入型即可,如图所示。
word中怎样一次性调整所有图片大小?
新建一个宏(名称自定,如“全部图片”),编辑内容。
如下:Sub 选所有图片()ActiveDocument.Shapes.SelectAllEnd Sub在word文档中执行以上宏,即可将所有图片选中,然后再图片工具中选择图片大小,进行设置,全部图片就一样大了。
word插入多张图片后如何一次性设置图片大小(word2003)
1、word默认插入图片版式是“嵌入型”,首先要将这些图片设为“四周型”或“紧密型”(否则不能选择??)。
2、点击绘图工具栏上的“选中多个对象”按钮(如没有该按钮可通过点击右侧下拉箭头添加)。
3、选择要修改的图片,4、点击“确定”关闭“选择多个对象”窗口,然后右击某个图片,选择“设置图片格式”,?5、设置大小为合适尺寸即可,?
word怎么批量改图片大小
方法/步骤1点击左上角wps文档的标记找到文档设置的选项,进行基本功能的设置。
2需要设置的是对编辑工具栏下方的图片插入默认形式,调整为四周型,系统默认的是嵌入类型。
设置完成点击确认。
3然后是选中需要统一调整的图片,可以按住Ctrl逐个点击图片来操作,选中即可。
4点击图片菜单栏右下角的隐藏命令,调出图片设置的命令菜单界面,对图片进行设置。
5把锁定纵横比和相对图片原始大小两个对勾都去掉,然后就可以自由设置图片大小了,因为插入的图片不一样大小,所以不能让他锁定。
6手动输入想要同样的宽高数字,点击确定,进行统一的修改,
Wps怎么一次性修改所有图片的大小
展开全部 下面是我自己用的一个宏,供参考。
Sub a批量调整图片大小()Dim picture_total%A = InputBox("固定高度:H" & Chr(10) & "固定宽度:W" & Chr(10) & "比例缩放:S", "调整图片大小", "H")A = UCase(A)picture_total = ActiveSheet.Shapes.CountFor i = 1 To picture_totalSelect Case ACase "H"If i = 1 Then h = InputBox("请输入图片高度:", "提示:", "200")ActiveSheet.Shapes(i).Height = hIf i = 1 Then c = MsgBox("是否同一水平高度?", vbOKCancel, "提示:")' SendKeys "{TAB}"If c = vbOK ThenIf i = 1 Then t = InputBox("请输入图片上端位置:", "提示:", "200")ActiveSheet.Shapes(i).Top = tEnd IfCase "W"If i = 1 Then w = InputBox("请输入图片宽度:", "提示:", "200")ActiveSheet.Shapes(i).Width = wCase "S"If i = 1 Then s_old = ActiveSheet.Shapes(i).HeightIf i = 1 Then s = InputBox("请输入缩放比例(100%):", "提示:", "100")ActiveSheet.Shapes(i).Height = s_old * s / 100Case Elseb = MsgBox("您输入的字符不正确!" & Chr(10) & "即将退出程序!", vbOKOnly, "警告!")Exit SubEnd SelectNextEnd Sub...
word中如何一次性选择所有图片下面的名称
工具--宏--录制宏--指定快捷键cltr L,关闭,然后录制,ctrl F,点开高级,查找框里面输入 图^#查找下一个。
找到后,点取消按钮,然后回到正文用方向箭头左移,然后shift end选中这一行,设置格式。
然后end键,到行尾。
结束宏录制。
ctrl L连续执行宏,按着不松手就等结果吧。
1000个也就一小会儿的功夫就弄好了。
转载请注明出处51数据库 » word一次性改所有图片