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

csdnxhb2 2020-10-18 08:21:24
设置可以用如下代码.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
...全文
336 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧