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