設定可以用如下代碼.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
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/179210.html