求高手帮助修改代码

nxljt

已在论坛上找到了批量改变图片大小的vba，如下：
Sub 改变图片大小()
'
' 改变图片大小 宏
'
'
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 163 '设置图片高度为 5.77cm
ActiveDocument.InlineShapes(n).Width = 214 '设置图片宽度 7.54cm
With Selection.ParagraphFormat

.Alignment = wdAlignParagraphCenter

End With
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 163 '设置图片高度为 5.77cm
ActiveDocument.Shapes(n).Width = 214 '设置图片宽度 7.54cm
Next n

End Sub


我的问题是：想在批量改变图片大小的同时奇数张图片后加二个空格，偶数张图片后加一个硬回车，目的是想在Word中实现二张图片一行，一行就是一个段，二张图片中间用二个空格分隔开。请问可以实现吗？请高手帮助！

413191246se

* 楼主，按你的原来想法未做到，但我变通了一下，只须调整一下左右页边距，即可达到目的，请试试：
（但请 楼主 须先准备一个图片文件夹，新建一个文档，然后，插入——图片——点击第一个图片，再按 Shift 键，点选最后一张图片，来插入图片。这只是 嵌入式图片，浮动式图片/图形，可以准备也可以不准备。）

1. Sub 改变图片大小222()
   
2.     Dim n&
   
3.     With ActiveDocument
   
4.         For n = 1 To .InlineShapes.Count 'InlineShapes类型图片
   
5.             With .InlineShapes(n)
   
6.                 .Height = 163 '高度5.77cm
   
7.                 .Width = 214 '宽度7.54cm
   
8.             End With
   
9.         Next n
   
10.         For n = 1 To .Shapes.Count 'Shapes类型图片
    
11.             With .Shapes(n)
    
12.                 .Height = 163 '高度5.77cm
    
13.                 .Width = 214 '宽度7.54cm
    
14.             End With
    
15.         Next n
    
16.         With .PageSetup
    
17.             .LeftMargin = 2.54 * 28.4
    
18.             .RightMargin = 2.54 * 28.4
    
19.         End With
    
20.     End With
    
21. End Sub

复制代码