Question

将指定的 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"