VBA to rotate images by selection or another condition?

gmayor · #4 09-07-2020, 04:42 AM

Again based on your example, you could process all the cells in column 1 e.g. as follows (this works with your table without upsetting row 2).

Code:

Sub Macro2()
Dim ocell As Cell
Dim oInlineShape As InlineShape
Dim oShape As Shape
Dim i As Integer
    For i = 1 To ActiveDocument.Tables(1).Rows.Count
        Set ocell = ActiveDocument.Tables(1).Cell(i, 1)
        Set oInlineShape = ocell.Range.InlineShapes(1)
        Set oShape = oInlineShape.ConvertToShape
        oShape.Rotation = 360
        oShape.ConvertToInlineShape
    Next i
    Set oInlineShape = Nothing
    Set oShape = Nothing
    Set ocell = Nothing
End Sub

or if you only want to process some of the rows then

Code:

Sub Macro3()
Dim ocell As Cell
Dim oInlineShape As InlineShape
Dim oShape As Shape
Dim i As Integer
    For i = 1 To ActiveDocument.Tables(1).Rows.Count
        Select Case i
            Case 1, 2, 3, 13, 15, 22, 57
                Set ocell = ActiveDocument.Tables(1).Cell(i, 1)
                Set oInlineShape = ocell.Range.InlineShapes(1)
                Set oShape = oInlineShape.ConvertToShape
                oShape.Rotation = 360
                oShape.ConvertToInlineShape
            Case Else
        End Select
    Next i
    Set oInlineShape = Nothing
    Set oShape = Nothing
    Set ocell = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word Art Rotate	new_bie	Drawing and Graphics	5	01-19-2016 04:11 PM
Rotate pages	Barbee	Word	3	01-21-2015 12:03 PM
How Rotate row of cells 45 degrees?	markg2	Excel	2	04-23-2014 05:12 AM
Rotate text	chrislewis	Word	3	07-22-2013 08:33 AM
Selection of all Text for a specific page in word is spanning selection across pages	ramsgarla	Word VBA	9	12-05-2012 03:23 AM