VBA 旋转图片 90 度：简单代码示例

以下是将选定的图片旋转 90 度的 VBA 代码：

Sub RotateImage90()
    If Not ActiveWindow.Selection.ShapeRange.Count = 1 Then
        MsgBox '请选中一张图片'
        Exit Sub
    End If
    With ActiveWindow.Selection.ShapeRange(1)
        If .Type <> msoPicture Then
            MsgBox '请选中一张图片'
            Exit Sub
        End If
        .Rotation = 90
    End With
End Sub

该代码首先检查当前是否选中了一个图片，如果没有，则会弹出消息框提示用户进行选择。如果选中了一个图片，则检查该图片是否为图片类型。如果是，则将其旋转 90 度。