这个效果用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
