这个效果用vba能实现么？
我在一个excel的sheet页里，

画出 几十个 矩形，
有的矩形的边框是蓝色的，
有的边框的颜色需要是红色的，
矩形里的文字也有的是黑体，有点需要是宋体。
大概会有10种图形格式吧。

能不能做个vba，
比如说，做一排10个按钮，每个按钮代表一个效果。

然后，我选中N个矩形，
需要都设置成蓝色边框时，我就点一下那个按钮就行，
需要设置成红色边框时，我点另外一个按钮就行。

不用再一步步设置颜色和字体之类的操作了。

[解决办法]

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