---

Sub RotateAllSimple()
    Dim i As Long
    For i = 1 To ActiveDocument.InlineShapes.Count
        ' Пробуем повернуть через встроенный метод форматирования
        ActiveDocument.InlineShapes(i).Fill.RotateWithObject = msoTrue
        ActiveDocument.InlineShapes(i).IncrementRotation 90
    Next i
End Sub