用VBA如何实现这个效果？能实现么？

Question

本帖最后由 O__________________K 于 2012-06-21 16:27:33 编辑

Answer 1

用Selection就可以了。
Sub Test()
    If TypeName(Selection) = "Rectangle" Then                   '判断选中的是矩形
        Selection.ShapeRange.Line.DashStyle = msoLineDash       '边框设为虚线
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12    '背景设为蓝色
    End If
End Sub

Answer 2

freshsuncy 的方法不好用啊，
选中N个矩形后，你在点 按钮 的时候，那些矩形就失去了焦点，
而不是说，那些矩形被存到了selection里了。

Answer 3

选中N个矩形后，
你在点 按钮 的时候，那些矩形就失去了焦点，而不是说，那些矩形被存到了selection里了。这个是不是用VBA实现不了啊。

Answer 4

使用“窗体”里的按钮，不要使用控件工具箱里的命令按钮
Sub Test()
    If TypeName(Selection) = "Rectangle" Or TypeName(Selection) = "DrawingObjects" Then                   '判断选中的是矩形
        Selection.ShapeRange.Line.DashStyle = msoLineDash       '边框设为虚线
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12    '背景设为蓝色
    End If
End Sub
我试过了，是能实现的