Compress pictures using macro in Word

Hi,

I am using MS Word 2010 and have a piece of code that changes pictures attributes:

Sub ChangeImageBorder()

    Dim iShape As InlineShape

    For Each iShape In ActiveDocument.InlineShapes

        With iShape

            With .Borders(wdBorderLeft)

                .LineStyle = wdLineStyleSingle

                .LineWidth = wdLineWidth025pt

                .Color = wdColorBlack

            End With

        End With

    Next iShape

End Sub

This works fine.

I am trying to use the macro that reduces the size of the PPI to 96 and when I record this process nothing gets recorded.

Please can you help?

Many thanks

Peter