批处理怎样在word中按要求插入图片自动调整图片尺寸大小？

心若拂尘

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

图片是这样


要求结果是这样

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

hfxiang

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

心若拂尘

回复 2# hfxiang


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

hfxiang

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

心若拂尘

回复 4# hfxiang


    大佬大佬

心若拂尘

回复 4# hfxiang


    大佬试试

心若拂尘

回复 4# hfxiang


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