怎样读取word图片中的锐化/柔化值
设置可以用如下代码.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
园区如何利用数据洞察优化企业服务和管理?
科技园区如何提升服务精准度,为科技企业匹配高效创新资源?.docx
科技园区如何提升服务精准度,为科技企业匹配高效创新资源?
新闻稿-清新雅致.docx
新闻稿-清新雅致
nodejs-20261015
123
采用Bat算法优化集群头选择的增强型无线传感器网络LEACH路由协议。MATLAB模拟、单跳和多跳变体。.zip
1.版本:matlab2014a/2019b/2024b 2.附赠案例数据可直接运行。 3.代码特点:参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象:计算机,电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。


Office开发/ VBA
