[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] 批处理怎样在word中按要求插入图片自动调整图片尺寸大小?

word中按设置的表格要求批量插入图片自动调整图片尺寸大小的代码,并且怎么录制,可以调的
照片发不了呀

图片是这样


要求结果是这样

Word表格中没有那些编号,只要吧那些照片导入进去按这样的顺序就好,,求大佬指点,江湖救急啊

回复 4# hfxiang


    大佬想问一下,我只是从微信群中直接鼠标拖图片进来统一尺寸呢不会带动表格这样,托一张这样

TOP

回复 4# hfxiang


    大佬试试

TOP

回复 4# hfxiang


    大佬大佬

TOP

操作:Alt+F11->插入->模块->编辑:Ctrl+C & Ctrl+V->Ctrl+s->Alt+F8

TOP

回复 2# hfxiang


    直接就是宏代码复制粘贴进去就好了嘛大佬

TOP

Sub 批量设置图片尺寸()
Dim picwidth
Dim picheight
On Error Resume Next
picheight = 10  '高度(厘米)
picwidth = 8  '宽度(厘米)
For Each Shape In ActiveDocument.InlineShapes
Next
For Each Shape In ActiveDocument.Shapes
Shape.LockAspectRatio = msoFalse
Shape.Height = picheight * 28.35
Shape.Width = picwidth * 28.35
Next
End Sub

TOP

返回列表