找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 466|回复: 4

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

[复制链接]
发表于 2003-2-24 23:33:04 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
我用录制宏来录制,发觉它的代码和置于文本上方一个样,我就无从下手了,请高手指点迷津!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 181个

财富等级: 日进斗金

发表于 2003-2-25 12:52:31 | 显示全部楼层
你是在Office中录制宏?文本框只能固定在上面,而其背面的文字则被遮住。把你所需要的效果说明清楚一点。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-2-25 13:34:01 | 显示全部楼层
你好,我的问题是这样的,我是想在一个文档中的固定地方用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

斑竹快救救我吧!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

发表于 2003-2-25 19:25:03 | 显示全部楼层
文本框也可以不用是透明的,只要Selection.ShapeRange.ZOrder msoSendBehindText,表示叠放次序是衬于文字下方,而你使用Selection.ShapeRange.ZOrder 4,表示叠放次序是浮于文字上方,更改过来就可以了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-2-26 00:17:02 | 显示全部楼层
成功了,谢谢斑竹帮忙啊!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 05:09 , Processed in 0.391304 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表