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

leedun

小白请教，如何使用vba选中文档中图片所在的段落，然后将其设置为单倍行距，示例文件已上传，示例文件中的内容设置了段间距设置了固定值，谢谢！！

duquancai

Sub shishi()
    Dim Ip As InlineShape
    If ActiveDocument.InlineShapes.Count < 1 Then Exit Sub
    For Each Ip In ActiveDocument.InlineShapes
        Ip.Range.ParagraphFormat.Space1
    Next
End Sub

wdpfox

学习了，多谢杜老师慷慨分享好资料！
　　　　　　Oooo
　　　　　　(___)
　　oooO  　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

leedun

duquancai 发表于 2017-11-27 23:48
Sub shishi()
    Dim Ip As InlineShape
    If ActiveDocument.InlineShapes.Count < 1 Then Exit Sub
...

完美运行，谢谢杜先生每次慷慨相助！！

jiminyanyan

厉害................

leedun

duquancai 发表于 2017-11-27 23:48
Sub shishi()
    Dim Ip As InlineShape
    If ActiveDocument.InlineShapes.Count < 1 Then Exit Sub
...

杜先生，这个代码完美解决图片行距问题，根据您的代码想把嵌入的组合图形也同样设置成单倍行距，弄了几天也没有成功，还希望杜先生赐教！
附件已上传，文本段落设置了固定值，谢谢！！

duquancai

leedun 发表于 2017-12-6 08:54
杜先生，这个代码完美解决图片行距问题，根据您的代码想把嵌入的组合图形也同样设置成单倍行距，弄了几天 ...

类似问题，没必要了，自己修改吧！

leedun

duquancai 发表于 2017-12-6 13:08
类似问题，没必要了，自己修改吧！

杜先生好，通过您的激励，还是没有解决，今天又试着改了一下午，因为太小白，始终还弄不清楚shape、shapes、shaperange，还望您能再给点提示。

duquancai

leedun 发表于 2017-12-6 20:06
杜先生好，通过您的激励，还是没有解决，今天又试着改了一下午，因为太小白，始终还弄不清楚shape、shape ...

同种类型的，不想做，也没时间做，也没有给你任何提示。

duquancai

leedun 发表于 2017-12-6 20:06
杜先生好，通过您的激励，还是没有解决，今天又试着改了一下午，因为太小白，始终还弄不清楚shape、shape ...

看在你 “2个” 鲜花的份上，再写一次，不写第三次了！！！

Sub shishi()
    Dim Ip As InlineShape, d As Document, Sp As Shape
    Set d = ActiveDocument
    If (d.InlineShapes.Count + d.Shapes.Count) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    ActiveWindow.View.ShowFieldCodes = False
    For Each Ip In d.InlineShapes
        Ip.Range.ParagraphFormat.Space1
    Next
    For Each Sp In d.Shapes
        If Sp.WrapFormat.Type = 7 Then
            Sp.Select
            Selection.ParagraphFormat.Space1
        End If
    Next
    Application.ScreenUpdating = False
End Sub