怎么让文字覆盖在图片框的上面

如何让文字覆盖在图片框的上面
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 


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

我想在这个矩形上面居中写入OK二字 请问代码该怎么写

谢谢

[解决办法]
期待Chen8013或jhone99出手
[解决办法]
矩形框好像不能写字，得用文本库。
不是很确实。
[解决办法]

探讨

矩形框好像不能写字，得用文本库。
不是很确实。

[解决办法]
Dim sp As Shape
Set sp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 120, 40)
sp.Select
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.TypeText Text:="fgfdf"

[解决办法]
窗体内放一个文本框 ,置顶
Appearance和BorderStyle都设置为 0

如果效果不好,换成按钮试试吧.

[解决办法]

探讨

期待Chen8013或jhone99出手

[解决办法]

With OWork.ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 120, 40)
.TextFrame.Characters.Text = "OK!"
End With 

[解决办法]
学习

查看更多 下一篇