怎样获取word图片中的锐化/柔化值

classpeople

设置可以用如下代码.insert，但是怎么获取呢？我用item无法获取
myWordDocument.InlineShapes(PicIndex).Fill.PictureEffects.Item(25).EffectParameters.Item(1).Value '锐化效果

添加代码
Sub 手机拍摄图像加工()
        Dim myrange As InlineShape
        Application.ScreenUpdating = False

        With Selection
                For Each myrange In .InlineShapes
                        myrange.PictureFormat.IncrementBrightness (0.2)
                        myrange.PictureFormat.IncrementContrast (0.4)
        '**********请在此添加代码，使锐化+50%*********
                       With myrange.ConvertToShape.Fill.PictureEffects
                            Set sha = .Insert(msoEffectSharpenSoften)
                                sha.EffectParameters(1).Value = 0.5


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