What do you mean by "Is there a way to set the axis the shape/inlineshape axis after a rotation"? What axis?
The basic code to rotate an InlineShape is:
Code:
Sub Demo()
Dim Shp As Shape
With ActiveDocument
Set Shp = .InlineShapes(1).ConvertToShape
With Shp
.Rotation = 90
.ConvertToInlineShape
End With
End With
End Sub