·用户注册 · · | 设为首页 | 加入收藏
网站首页 科室简介 专家介绍 文献资料 平台建设 科室图片 资料搜索 联系我们
Word中的图片批量统一大小及同比例缩放(图)
作者:蛋白质药…    文章来源:www.yaodongxue.cn    点击数:    更新时间:2012-1-14          ★★★【字体:

中国药学人才网 

Word中的图片批量统一大小及同比例缩放(图)

有些时候,我们用Word来做一些图文混排的文档,需要正规的样式,例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。

实现代码:

HTML代码


[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

使用方法和 [Word宏:Word中英文标点符号互换-VBA源码实现(图)] 中介绍的一样,把代码复制到Visual Biscal编辑器中,再回到Word界面,运行“宏”命令。

操作步骤如下:

1.打开要统一图片大小的Word文档,点击“工具”-“宏”-“Visual Biscal编辑器。

2)插入normal工程“模块”。 

3)在“模块”中粘贴上面的代码。

 

4)保存,返回你要统一图片大小的Word文档。运行“工具”-“宏”-"宏命令"。

 

看一下结果,是不是你想要的统一图片大小。

  

我用的两张图一个大一个小,统一后400*300还是很大,放在两个页面上,上面是25%的缩略图,至此实现了统一大小的目标,如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。

按比例缩放的方法和上面的是一样的,只是代码变化一下,过程就不熬述。VBA代码如下:

HTML代码


[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

原创文章如转载,请注明:转载张辉老师工作室

 

 

我自己曾经设置过的格式为:把论文里所有的图片都统一设置为高为8cm,宽为12cm。:

Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 226.78 '设置高度8cm
ActiveDocument.InlineShapes(j).Width = 340.172 '设置宽度12cm
Next j

End Sub


 

  • 上一篇文章:

  • 下一篇文章:
  • 蛋白多肽类药物临床前药动学实验室 YaoDongXue.Cn 网站备案编号:苏ICP备11051587号
     中国药科大学江宁校区(南京龙眠大道639号)