[求助]请帮我一下,如何用VBA获取WORD里面的图片属性

vba搜索者

如题,谢谢

守柔

不知楼主具体要哪些属性，以下代码供参考：

Sub GetPictureProperty()
    Dim myShape As Variant, strProperty As String
    With Selection
        If .Type = wdSelectionInlineShape Then
            Set myShape = .InlineShapes(1)
            strProperty = "嵌入型"
            With myShape
                strProperty = strProperty & vbLf & "宽=" & .Width
                strProperty = strProperty & vbLf & "高=" & .Height
            End With
        ElseIf .Type = wdSelectionShape Then
            Set myShape = .ShapeRange(1)
            Select Case myShape.WrapFormat.Type
            Case wdWrapInline
                strProperty = "嵌入型"
            Case wdWrapNone
                strProperty = "衬于文字下方型or浮于文字上方型"
            Case wdWrapSquare
                strProperty = "四周型环绕"
            Case wdWrapThrough
                strProperty = "穿越型环绕"
            Case wdWrapTight
                strProperty = "紧密环绕型"
            Case wdWrapTopBottom
                strProperty = "上下型环绕"
            End Select
            With myShape
                strProperty = strProperty & vbLf & "宽=" & .Width
                strProperty = strProperty & vbLf & "高=" & .Height
                strProperty = strProperty & vbLf & "顶部距离=" & .Top
                strProperty = strProperty & vbLf & "左侧距离" & .Left
            End With
        End If
    End With
    MsgBox strProperty, vbInformation
End Sub
'----------------------