Office中国论坛/Access中国论坛

标题: 向高手请教：宏改写代码急！！！！！！ [打印本页]

作者: yuchen6983 时间: 2004-9-21 04:58
标题: 向高手请教：宏改写代码急！！！！！！
向高手请教:

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

作者: 静儿 时间: 2004-9-23 17:07
Else: Selection.ShapeRange.IncrementLeft +5我乱猜的。

作者: zgzxp 时间: 2004-12-1 19:19
我执行到这里If Selection.ShapeRange.Count = 0 Then如果我选的是一个图片，就不能执行命令了怎么回事阿

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)