Office开发/ VBA
怎样读取word图片中的锐化/柔化值
墨衍会员 · 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
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
...全文
相关推荐
科技中介服务机构如何降低技术交易过程中的人工操作成本？.docx
科技中介服务机构如何降低技术交易过程中的人工操作成本？
TdsProxy.cpp
TdsProxy.cpp
高校技术转移办公室人员如何实现科技成果的精准推介展示？.docx
科易网基于AI模型+行业大数据，在技术转移、成果转化、技术经纪、知识产权、产业创新、科技招商等垂直领域的多样化应用场景，推出科技创新领域的AI+工具与数智化解决方案，推动科技创新与产业创新智能化发展。
科技中介服务机构如何通过平台实现服务流程的标准化与智能化？.docx
科技中介服务机构如何通过平台实现服务流程的标准化与智能化？
j1j2j3j4j5.eddx
j1j2j3j4j5.eddx
