向高手请教：宏改写代码 急！！！！！！

yuchen6983

向高手请教:

Sub 向左移()

On Error Resume Next

    If Selection.ShapeRange.Count = 0 Then

    MsgBox "请先选中音乐符号或图形！"

    Else: Selection.ShapeRange.IncrementLeft -5

    End If

End Sub

这向左边移动的代码，请高手帮我写出向右边移动的代码！！1谢谢

Sub 向右移() '

    End Sub

静儿

Else: Selection.ShapeRange.IncrementLeft +5我乱猜的。

zgzxp

我执行到这里If Selection.ShapeRange.Count = 0 Then如果我选的是一个图片，就不能执行命令了怎么回事阿