回帖：# 【调整每张幻灯片的大小为高184宽262，也许还有更佳的值，可自己尝试】
#
# Dim i As Integer
# For i = 1 To ActiveDocument.InlineShapes.Count
# ActiveDocument.InlineShapes(i).Height = 184——改成178会好一点 我用184 每张纸是6片
# ActiveDocument.InlineShapes(i).Width = 262
# Next i
可能我这个也是个例吧 仅供参考