macro to sharpen all images in word

Hi, I have a 500+ page document with a lot of images. I need to convert all of these to grayscale and to increase sharpness by 40%. Both of these tasks can be done by right clicking each image and choosing 'format picture'. However because there are so many images I wish to use a macro. I am using word 2010.

I am able to convert all images to grayscale. However I am not able to sharpen them since I do not know the required command/keyword. The macro recorder does not record anything you do int the 'format picture' dialog box so it is of no help. Do any of you know the command?

Here is my working code so far that converts all images to grayscale.


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

Thanks for any help you can give.

Gary