如何使用MS Word 2010中的宏着色图像

Question

我想添加一个稍微红色的透明图层，在Word中的图像上显示它应该被删除，因为更改栏（使用更改跟踪时）被忽略了。

到目前为止，我可以格式化所选图像：

Sub FormatPicture()

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

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

End Sub

但是如何为图像着色？

Answer 1

这对我有用

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符合您的需求