在VBA中如何使一个嵌入式对象改为浮于文子上方。

dzdoc

在VBA中如何使一个嵌入式图片对象改为浮于文字上方。急盼回复。

当我用录制宏的方法时，版式部分全转为灰色了，所以无法获得相应的信息。

[此贴子已经被作者于2005-6-25 13:18:39编辑过]

守柔

请参:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-25 14:42:36 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyShape As Shape On Error Resume Next '将嵌入式图形转化为图形 Set MyShape = Me.InlineShapes(1).ConvertToShape With MyShape .WrapFormat.Type = 3 .ZOrder 4 End With End Sub '----------------------

dzdoc

以上代码，在我机器中将Set MyShape = Me.InlineShapes(1).ConvertToShape 的关键字ME，改为ActiveDocument 后可以成运行。关于这些代码，帮助中有如下信息。

代表文档的文字层中的对象。嵌入式图形只能是图片、OLE 对象或 ActiveX 控件。InlineShape 对象被视为字符，可将其象字符一样放置于一行文本中。InlineShape 对象是 InlineShapes 集合中的一个成员。InlineShapes 集合包含文档、区域或选定内容中的所有嵌入式图形。

使用 InlineShape 对象

用 InlineShapes (index) 可返回单个 InlineShape 对象，其中 index 是索引序号。嵌入式图形没有名称。下列示例激活活动文档中的第一个嵌入式图形。

ActiveDocument.InlineShapes(1).ActivateConvertToShape 方法将嵌入式图形转换为可自由浮动的图形。返回一个 Shape 对象，该对象代表新图形。

守柔

以下是引用dzdoc在2005-6-25 16:52:43的发言：

以上代码，在我机器中将Set MyShape = Me.InlineShapes(1).ConvertToShape 的关键字ME，改为ActiveDocument 后可以成运行。关于这些代码，帮助中有如下信息。

代表文档的文字层中的对象。嵌入式图形只能是图片、OLE 对象或 ActiveX 控件。InlineShape 对象被视为字符，可将其象字符一样放置于一行文本中。InlineShape 对象是 InlineShapes 集合中的一个成员。InlineShapes 集合包含文档、区域或选定内容中的所有嵌入式图形。

使用 InlineShape 对象

用 InlineShapes (index) 可返回单个 InlineShape 对象，其中 index 是索引序号。嵌入式图形没有名称。下列示例激活活动文档中的第一个嵌入式图形。

ActiveDocument.InlineShapes(1).ActivateConvertToShape 方法将嵌入式图形转换为可自由浮动的图形。返回一个 Shape 对象，该对象代表新图形。

可惜了你到守柔处得到的那些代码！

楼主从未正式看过这些代码头中的意义吧？一见代码，立马复制粘贴，也不管是谁的，代码是在哪个窗口中的？……

我想，我还不至于连ME与ACITVEDOCUEMNT都搞不清吧！

dzdoc

看了四楼，又长见识了。。。。。。

[em04]

[此贴子已经被作者于2005-6-28 20:35:35编辑过]