VBA picture recolouring

[icecurtain]

Purpose to recolour and soften all pictures that are greater than 100X100

I have created this macro in word VBA as a have a 500 page document with 100s of pictures, but I am sure excel will reacts the same.

But I only want to recolour pictures in my document that are greater than

Height = 100 Width = 100

and ingore the rest what do I need to add to my statement please?

   Sub recolour()
    '
    ' recolour Macro
    Dim Pic As InlineShape
    For Each Pic In ActiveDocument.InlineShapes
    Pic.PictureFormat.ColorType = msoPictureGrayscale
    Pic.SoftEdge.Type = msoSoftEdgeType5
    Next
    End Sub

 

[VoG]

Try

Sub recolour()
'
' recolour Macro
Dim Pic As InlineShape
For Each Pic In ActiveSheet.InlineShapes
If Pic.Height >= 100 And Pic.Width >= 100 Then
    Pic.PictureFormat.ColorType = msoPictureGrayscale
    Pic.SoftEdge.Type = msoSoftEdgeType5
End If
Next Pic
End Sub

 

[icecurtain]

Thanks just the job....