[求助]：如何用VBA实现将文本框衬于文本下面

kaconer

我用录制宏来录制，发觉它的代码和置于文本上方一个样，我就无从下手了，请高手指点迷津！

efan2000

你是在Office中录制宏？文本框只能固定在上面，而其背面的文字则被遮住。把你所需要的效果说明清楚一点。

kaconer

你好，我的问题是这样的，我是想在一个文档中的固定地方用VBA语言插入一个文本框，但那个地方又有文字，插入以后就把文字给覆盖住了。我试着将文本框的底色变成透明。但由于我的在文本框中要加入点图片。图片一放上去，原来的文档里的文字还是给遮住了，我看到文本框有个衬于文字下面的选项，便用录制宏的方法将它录制，可是代码执行的时候发现文本框还是在文字上面，将文字遮住。我的用录制宏录制的代码是：
Sub Macro1()
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 117#, _
        64.2, 81#, 70.2).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
    Selection.ShapeRange.Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 70.3
    Selection.ShapeRange.Width = 81.05
    Selection.ShapeRange.TextFrame.MarginLeft = 7.09
    Selection.ShapeRange.TextFrame.MarginRight = 7.09
    Selection.ShapeRange.TextFrame.MarginTop = 3.69
    Selection.ShapeRange.TextFrame.MarginBottom = 3.69
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.Left = CentimetersToPoints(0.95)
    Selection.ShapeRange.Top = CentimetersToPoints(-0.28)
    Selection.ShapeRange.LockAnchor = False
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.ZOrder 4
End Sub

斑竹快救救我吧！

efan2000

文本框也可以不用是透明的，只要Selection.ShapeRange.ZOrder msoSendBehindText，表示叠放次序是衬于文字下方，而你使用Selection.ShapeRange.ZOrder 4，表示叠放次序是浮于文字上方，更改过来就可以了。

kaconer

成功了，谢谢斑竹帮忙啊！