图片加边框

xseyuan

嵌入式图片加边框没问题，浮于文字上方的怎么加边框，已经能找到浮于方字止方的图片，用哪个参数？
Sub Example()
    Rem 嵌入式图片加边框
    Dim oInlineShape As InlineShape
    Application.ScreenUpdating = False
    For Each oInlineShape In ActiveDocument.InlineShapes
        With oInlineShape.Borders
            .OutsideLineStyle = wdLineStyleSingle
            .OutsideColor = RGB(0, 0, 0)
            .OutsideLineWidth = wdLineWidth150pt
        End With
    Next
Rem 其它图片加边框
Dim n As Shape
For Each n In ActiveDocument.Shapes
If n.Type = msoPicture Then
With n.Borders
            .OutsideLineStyle = wdLineStyleSingle
            .OutsideColor = RGB(255, 0, 0)
            .OutsideLineWidth = wdLineWidth150pt
        End With
End If
Next n
    Application.ScreenUpdating = True
End Sub

[url=]附件[/url]

xseyuan

Sub Example()
    Rem 嵌入式图片加边框
    Dim oInlineShape As InlineShape
    Application.ScreenUpdating = False
    For Each oInlineShape In ActiveDocument.InlineShapes
        With oInlineShape.Borders
            .OutsideLineStyle = wdLineStyleSingle
            .OutsideColor = RGB(0, 0, 0)
            .OutsideLineWidth = wdLineWidth150pt
        End With
    Next
Rem 其它图片加边框
Dim n As Shape
For Each n In ActiveDocument.Shapes
If n.Type = msoPicture Then
With n.Line
      .Visible = msoTrue
      .Weight = 1.5
      .ForeColor.RGB = RGB(0, 0, 0)
End With
End If
Next n
    Application.ScreenUpdating = True
End Sub
已解决