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度。