Преобразование объектов Shape в InlineShape

Недавно я получил документ, который следовало привести в порядок (оформить стилями). В документе было много рисунков, созданных в редакторе Word с помощью инструментов рисования, так называемые автофигуры.

Автофигуры, являясь объектами Shape, могут свободно перемещаться по документу, в то время как объекты InlineShape (например, вставленный в документ рисунок из файла) прикрепляются к области текста.

Применение к автофигурам стиля "Рисунок" было невозможно, поэтому пришлось быстренько написать (а точнее, подсмотреть в справке VBA) макрос, преобразующий все подобные автофигуры в рисунки, то есть сконвертировать объекты Shape в объекты InlineShape.

Sub convertShapeToInlineShape()
Dim iShape As Shape
For Each iShape In ActiveDocument.Shapes
   If iShape.Type = msoPicture Then
      iShape.ConvertToInlineShape
   End If
Next iShape
End Sub

После преобразования рисунков стало возможным использовать стили.