The best magazine
- 1). Click "File" and choose "Open," then navigate to the location of the document that contains the shapes you would like to convert. Double-click to open the file.
- 2). Hold the "Alt" key and press the "F11" key to open the VBE window.
- 3). Click "Insert" in the VBE window and choose "Module." This will open a new window for the module.
- 4). Copy the following code by highlighting it, right-clicking and choosing "Copy":
Sub ConvertToInlineShape()
With Selection
' \\ If we selected a Shape then convert to InlineShape
If .Type = wdSelectionShape Then
.ShapeRange(1).ConvertToInlineShape
End If
End With
End Sub - 5). Right-click inside the blank space in the VBE window, right-click and choose "Paste" to paste the code into the window.
- 6). Close the VBE window and save the document.
- 7). Highlight the areas that contain the shapes you wish to convert by clicking and dragging with the mouse.
- 8). Hold the "Alt" key while you press "F8" to open the macro window. Click "ConvertToInlineShape" and click "Run" to convert the shapes.
Source: ...