如何在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会满足您的需求