---

Sub RotateAllImagesFixed()
    Dim pic As InlineShape
    Dim shapePic As Shape
    
    ' Цикл идет с конца в начало, чтобы не сбиться при изменении типа объекта
    For i = ActiveDocument.InlineShapes.Count To 1 Step -1
        Set pic = ActiveDocument.InlineShapes(i)
        
        ' Превращаем во флотирующий объект, чтобы можно было повернуть
        Set shapePic = pic.ConvertToShape
        
        ' Поворачиваем на 90 градусов
        shapePic.IncrementRotation 90
        
        ' Если нужно вернуть картинку обратно "в текст", раскомментируйте строку ниже:
        ' shapePic.ConvertToInlineShape
    Next i
End Sub