Vba 如何在MS Word 2010中使用宏为图像着色

另外，我想在Word中的图像上添加一个略带红色的透明层，以表明它应该被删除，因为更改栏（使用更改跟踪时）几乎被忽略了

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

Sub FormatPicture()

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

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

End Sub

但是我如何给图像上色呢？

这对我来说很有效

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=msopiturewatermark

会满足您的需要

我仍然无法添加红色图层，但

inShape.PictureFormat.ColorType=msopiturewatermark

适合我。