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

csdnxhb2 csdnxhb2 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
设置可以用如下代码.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
...全文
评论
收藏 已收藏
分享
返回顶部
csdnxhb2
Office开发/ VBA 5,174 成员 17,906 内容