Set the can use the following code. Insert, but how do you get? I use the item cannot read
MyWordDocument. InlineShapes (PicIndex). The Fill. PictureEffects. Item (25). EffectParameters. The Item (1). The Value 'sharpening effect

Set the code below
Sub on cell phone video image processing ()
Dim myrange As InlineShape
Application. ScreenUpdating=False

With Selection
For Each myrange In. InlineShapes
Myrange. PictureFormat. IncrementBrightness (0.2)
Myrange. PictureFormat. IncrementContrast (0.4)
'* * * * * * * * * * please add code here to sharpen + 50% * * * * * * * * *
With myrange. ConvertToShape. The Fill. PictureEffects
The Set sha=. Insert (msoEffectSharpenSoften)
Sha. EffectParameters (1). Value=https://bbs.csdn.net/topics/0.5


End With
Next
End With
Application. ScreenUpdating=True
End Sub