title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
OLEFormat.ConvertTo method (Word VBA) |
vbawd10.chm154337390 |
|
|
6d648f38-34fa-21b1-3ab9-a1965f2398f4 |
12/05/2018 |
medium |
Converts the specified OLE object from one class to another, making it possible for you to edit the object in a different server application or change how the object is displayed in the document.
expression.ConvertTo ( ClassType, DisplayAsIcon, IconFileName, IconIndex, IconLabel )
expression Required. A variable that represents an OLEFormat object.
Name | Required/Optional | Data type | Description |
---|---|---|---|
ClassType | Optional | Variant | The name of the application used to activate the OLE object. You can see a list of the available applications in the Object type box on the Create New tab in the Object dialog box. You can find the ClassType string by inserting an object as an inline shape and then viewing the field codes. The class type of the object follows either the word "EMBED" or the word "LINK." |
DisplayAsIcon | Optional | Variant | True to display the OLE object as an icon. The default value is False. |
IconFileName | Optional | Variant | The file that contains the icon to be displayed. |
IconIndex | Optional | Variant | The index number of the icon within IconFileName. The order of icons in the specified file corresponds to the order in which the icons appear in the Change Icon dialog box (Insert Object dialog box) when the Display as icon check box is selected. The first icon in the file has the index number 0 (zero). If an icon with the given index number doesn't exist in IconFileName, the icon with the index number 1 (the second icon in the file) is used. The default value is 0 (zero). |
IconLabel | Optional | Variant | A label (caption) to be displayed beneath the icon. |
This example creates a new document, and then inserts an embedded Word document with some text. The embedded document is then converted to a Word Picture.
Dim objEmbedded As Object
Documents.Add
Set objEmbedded = ActiveDocument.Shapes _
.AddOLEObject(ClassType:= "Word.Document")
objEmbedded.OLEFormat.Activate
Selection.TypeText "Test"
objEmbedded.OLEFormat.ConvertTo _
ClassType:="Word.Picture"
[!includeSupport and feedback]