Based on your example I suspect you want
Code:
Sub Macro1()
Dim ocell As Cell
Dim oInlineShape As InlineShape
Dim oShape As Shape
Set ocell = ActiveDocument.Tables(1).Cell(1, 1)
Set oInlineShape = ocell.Range.InlineShapes(1)
Set oShape = oInlineShape.ConvertToShape
oShape.Rotation = 360
oShape.ConvertToInlineShape
Set ocell = ActiveDocument.Tables(1).Cell(3, 1)
Set oInlineShape = ocell.Range.InlineShapes(1)
Set oShape = oInlineShape.ConvertToShape
oShape.Rotation = 360
oShape.ConvertToInlineShape
Set oInlineShape = Nothing
Set oShape = Nothing
Set ocell = Nothing
End Sub