Sub tongyixiugaichicun()
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoFalse '不锁定纵横比
' .ScaleHeight = 10
.Width = CentimetersToPoints(8)
.Height = CentimetersToPoints(6)
' .ScaleWidth = 10
End With
Next
End Sub
以下是一段
VBA
代码，它可以实现将Microsoft
Word
文档中的所有
图片
尺寸统一为指定的高度和宽度：
Sub ResizeAllImages()
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Then
shp.Height = Application....
如果您有一推
图片
且大小一样，想用
word
转成PDF,那么我推荐您使用
VBA
来
调整
图片大小
，先给
word
设置 “页面布局-页边距”全部设置成0，再
调整
成合适的纸张大小，然后启动
VBA
【Alt +F11】，粘贴如下代码，修改代码中自定义的宽高（如果不知道，那么先设置一张看看那个宽高最合适），最后 【F5】运行代码等待统一修改完成即可。
Sub 改变
图片大小
()
Dim iSha As Inline
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型
图片
ActiveDocument.InlineShapes(n).LockAspec.
朋友在后台提了这样一个问题，能不能根据名称一键将
图片
批量插入到单元格的批注中去，酱紫的话，当鼠标划过单元格，Excel就会自动显示
图片
了，很酷很实用……
比如下面动态图所展示的这样：
哎呦，不错哦~~
实现代码如下：
Sub Comment...
非编程科班人士（有机专业），仅仅是喜欢喜欢代码，10年的MS Office疯狂热爱者。后续不定期更新该系列博客，希望我能坚持不断学习。
今天是周日，在家躺着也是躺着，就跑到网上瞎逛。我每天会从油管上找些视频资源下载下来。但是不能下载太多，怕被学校或者油管找我喝茶。
突然看到一个关于MS
Word
VBA
绘制图形的视频教程。甚是有趣，随即照葫芦画瓢，边学边做，最终实现了最终目标。现代码分享如下，以飨...
今天女朋友工作上出了点麻烦，就是要向
Word
中批量添加
图片
以及整理成Excel数据的
图片
名。其中
图片
名需要设置段落和文字格式，有些
图片
还是共享一个
图片
名。这可是个繁琐而枯燥的工作。我一直相信重复劳动是对人这智能生物的侮辱（逃，所以决定解放一下她。下面整理下需求：
从文件夹中向
Word
里批量添加整理好的
图片
，并设置
图片
格式。
为
图片
设置整理成Excel数据的
图片
名，其中有个难点是
图片
名是给好的，独...
