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

[解决办法]
学习