请教如何在word vba中判断文档中图片旋转了90度？

donald0001

我要根据word中嵌入式图片的高和宽来缩放，但如果图片旋转了90°，取的高和宽与显示的正好相反。请问，在word vba中如何取得图片旋转90°这个参数？

xyz74sc

有个rotation属性，你查查看

xyz74sc

Sub GetRotation()
   
    '本代码由数学工具编写，转载请注明出处
   
    Dim oShp As Shape
    Dim sgAngle As Single
   
    Set oShp = Selection.ShapeRange(1)
    sgAngle = oShp.Rotation
   
    If sgAngle > 0 Then
        Debug.Print "逆时针旋转了" & sgAngle; "度"
    ElseIf sgAngle < 0 Then
        Debug.Print "顺时针旋转了" & sgAngle; "度"
    Else
        Debug.Print "该图形/形状没有旋转过"
    End If

End Sub

donald0001

谢谢了！我试试

xd3210

inlineshape有rotation属性吗？