vb 中如何设置圆的颜色，包括边框和填充的颜色

代码及注释： 假设圆为shapes(1) Sub main() Shapes(1).Fill.ForeColor.RGB = RGB(255, 255, 0)'将图形填充颜色变为黄色 Shapes(1).Line.ForeColor.RGB = RGB(255, 0, 0)'将图形边框颜色变为红色 End Sub