word 2010以上版本的VBA中如何添加代码改变图片的清晰度

bangedian

      Call Openword(strT) ’调用打开WORD的函数

    wrdApp.ActiveDocument.Tables(1).Cell(1, 1).Select
    Set MyPic = wrdApp.Selection.InlineShapes.AddPicture(FileName:="D:\1.jpg", LinkToFile:=False, SaveWithDocument:=True)
    H = MyPic.Height
    MyPic.Height = 10.9 * 28
    MyPic.Width = (10.9 * 28 / H) * MyPic.Width


    MyPic.PictureFormat.Contrast = 0.1‘改变对比度
   ？如何改变清晰度
    Call closeword

duquancai

    Call Openword(strT) '调用打开WORD的函数
   
    wrdApp.ActiveDocument.Tables(1).Cell(1, 1).Select
    Set MyPic = wrdApp.Selection.InlineShapes.AddPicture(FileName:="D:\1.jpg", LinkToFile:=False, SaveWithDocument:=True)
    H = MyPic.Height
    MyPic.Height = 10.9 * 28
    MyPic.Width = (10.9 * 28 / H) * MyPic.Width
   
   
    MyPic.PictureFormat.Contrast = 0.1 '改变对比度
'    ？如何改变清晰度
'    -----------------------------------------------------------------
    Set Shp = MyPic.ConvertToShape
    With Shp.Fill.PictureEffects.Insert(26)
        .EffectParameters(1).Value = 0.5 '   清晰度+50%
    End With
    Shp.ConvertToInlineShape
'    ------------------------------------------------------------------
    Call closeword