Replies

Hi,

Please I want to convert all other types of shapes to regular shapes by making such modification

Sub Convert2Inline()
Dim i As Integer
For i = ActiveDocument.Shapes.Count To 1 Step -1
Select Case ActiveDocument.Shapes(i).Type
Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
msoLinkedPicture, msoOLEControlObject, msoPicture, msoAutoShape, msoFreeform, msoTextBox
ActiveDocument.Shapes(i).ConvertToInlineShape
End Select
Next i

End sub

but doesn’t work

Any fix please