首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

填充好的矩形边框的颜色如何指定

2012-01-28 
填充好的矩形边框的颜色怎么指定?With OWork.ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90,

填充好的矩形边框的颜色怎么指定?
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     '改变线条大小 

热点排行