ConvertTo 方法

       

将指定的 OLE 对象转换为另一种类型,以便能在另一种服务器应用程序中编辑该对象,或者改变对象在文档中的显示方式。

expression.ConvertTo(ClassType, DisplayAsIcon, IconFileName, IconIndex, IconLabel)

expression   必需。该表达式返回一个 OLEFormat 对象。

ClassType   Variant 类型,可选。用来激活 OLE 对象的应用程序的名称。在“插入”菜单“对象”命令的“新建”选项卡上的“对象类型”框中可以看到有效应用程序的列表。将一个对象插入为嵌入式图形,然后查看域代码,可以看到 ClassType 字符串。对象类的类型后面都带有单词“EMBED”或“LINK”。

DisplayAsIcon   Variant 类型,可选。如果本属性为 True,则将 OLE 对象显示为图标。默认值为 False

IconFileName   Variant 类型,可选。包含将要显示的图标的文件。

IconIndex   Variant 类型,可选。IconFileName 中图标的索引序号。当选中“显示为图标”复选框时,在指定文件中图标的顺序对应于“插入”菜单“对象”命令“更改图标”对话框中图标出现的顺序。文件中的第一个图标的索引序号为 0。如果指定索引序号的图标在 IconFileName 中不存在,则使用索引序号为 1 的图标(文件中的第二个图标)。默认值为 0。

IconLabel   Variant 类型,可选。显示在图标下面的标签(题注)。

示例

本示例创建一篇文档,然后插入一篇嵌入的包含文字的文档。再将嵌入的文档转换成 Word 图片。

Dim objEmbedded As Object

Documents.Add

Set objEmbedded = ActiveDocument.Shapes _
    .AddOLEObject(ClassType:= "Word.Document")
objEmbedded.Activate
Selection.TypeText "Test"
objEmbedded.OLEFormat.OLEFormat.ConvertTo _
    ClassType:="Word.Picture"