选中图片所在段落设置行距

413191246se

楼主：通过选中图形并移动来录制宏，发现是 Shape 对象，而不是 InlineShape 对象，仿 杜先生 代码如下：

1. Sub 组合式图形设置单倍行距()
   
2.     Dim Sp As Shape
   
3.     If ActiveDocument.Shapes.Count < 1 Then Exit Sub
   
4.     For Each Sp In ActiveDocument.Shapes
   
5.         Sp.Select
   
6.         Selection.ParagraphFormat.Space1
   
7.     Next
   
8. End Sub

复制代码

leedun

duquancai 发表于 2017-12-6 22:58
看在你 “2个” 鲜花的份上，再写一次，不写第三次了！！！

Sub shishi()

杜先生已多次解决本白问题，鲜花最近才知道怎么送，谢谢杜先生！