Sub 对比度调整()
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).PictureFormat.brightness = 0.5 '将嵌入型图片的亮度设置为50
ActiveDocument.InlineShapes(i).PictureFormat.contrast = 0.6
'将嵌入型图片的对比度设置为100
Next i
For i = 1 To ActiveDocument.Shapes.Count
If ActiveDocument.Shapes(i).Type = msoPicture Then '假设浮动型对象是图片时才处理
ActiveDocument.Shapes(i).PictureFormat.brightness = 0.5
'将浮动型图片的亮度设置为50
ActiveDocument.Shapes(i).PictureFormat.contrast = 0.6
'将浮动型图片的对比度设置为100
End If
Next i
End Sub
Sub 锐化()
Dim sha As PictureEffect
For i = 1 To ActiveDocument.InlineShapes.Count '.InlineShapes 指定是嵌入型图片；'0~1对应-100%~100%范围
With ActiveDocument.InlineShapes(i).Fill.PictureEffects
Set sha = .Insert(msoEffectSharpenSoften)
sha.EffectParameters(1).Value = 0.4 '锐化25%
End With
Next i
For i = 1 To ActiveDocument.Shapes.Count 'ActiveDocument.Shapes 默认是除去嵌入型图片的所有类型
With ActiveDocument.InlineShapes(i).Fill.PictureEffects
Set sha = .Insert(msoEffectSharpenSoften)
sha.EffectParameters(1).Value = 0.4 '锐化25%
End With
Next i
End Sub
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。