填充好的矩形边框的颜色怎么指定?
With OWork.ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 120, 40).Fill
.ForeColor.RGB = RGB(255, 255, 255) '白色
.BackColor.RGB = RGB(255, 50, 0) '红色
.TwoColorGradient msoGradientHorizontal, 1
End With


这段代码画出了一个矩形 矩形内部填充的颜色从红到白渐变

如果我要指定矩形边框的颜色 请问该怎么写啊

谢谢

[解决办法]
up
[解决办法]

VB code

With OWork.ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 120, 40)        With .Fill    .ForeColor.RGB = RGB(255, 255, 255) '白色    .BackColor.RGB = RGB(255, 50, 0) '红色    .TwoColorGradient msoGradientHorizontal, 1    End With    .Line.ForeColor.ObjectThemeColor = wdThemeColorAccent6        '这里修改边框颜色end with
[解决办法]
With OWork.ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 120, 40)  
   .fill.ForeColor.RGB = RGB(255, 255, 255) '白色  
   .fill.BackColor.RGB = RGB(255, 50, 0) '红色  
   .fill.TwoColorGradient msoGradientHorizontal, 1  
    .line.ForeColor.RGB =rgb(,,) 
End With
[解决办法]
With OWork.ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 120, 40)  
   .fill.ForeColor.RGB = RGB(255, 255, 255) '白色  
   .fill.BackColor.RGB = RGB(255, 50, 0) '红色  
   .fill.TwoColorGradient msoGradientHorizontal, 1  
 .line.ForeColor.RGB =rgb(0,0,255)  
End With
[解决办法]
VB code
.Line.Weight = 3     '改变线条大小