2016-01-20 44 views
0

我想要addionaly在Word中的图像上放一个稍微红色的透明图层,以表明它应该被删除,因为更改栏(使用更改时跟踪)被严重忽视。如何使用MS Word 2010中的宏对图像着色

到目前为止好,我可以格式化选定的图像:

Sub FormatPicture() 

    Dim inShape As InlineShape 
    Set inShape = Selection.InlineShapes(1) 

    inShape.LockAspectRatio = msoCTrue 
    'equals 16cm 
    inShape.Width = "453,9" 

End Sub 

但我怎么能上色的形象呢?

回答

0

这为我工作

Dim inShape As InlineShape 
    Set inShape = Selection.InlineShapes(1) 
    inShape.LockAspectRatio = msoCTrue 
     inShape.PictureFormat.ColorType = msoPictureGrayscale 
    'equals 16cm 
    inShape.Width = "453,9" 

你可以用ColorType 我觉得inShape.PictureFormat.ColorType = msoPictureWatermark发挥将满足您的需要

+0

我仍然无法添加红色层,但'inShape.PictureFormat.ColorType = msoPictureWatermark'为我工作。 –