Microsoft Office Forums - View Single Post - VBA to rotate images by selection or another condition?

gmayor · 09-07-2020, 02:14 AM

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