InlineShapes сделать бесцветным в Ворде и вернуть сделать чёрного цвета

[Ципихович Эндрю]

здравствуйте, пробовал так:

ActiveDocument.InlineShapes(i).PictureFormat.ColorType = msoPictureWatermark
        'ActiveDocument.InlineShapes(i).PictureFormat.ColorType = msoPictureMixed - ошибку выдаёт
        ActiveDocument.InlineShapes(i).PictureFormat.ColorType = msoPictureGrayscale
        ActiveDocument.InlineShapes(i).PictureFormat.ColorType = msoPictureBlackAndWhite
        ActiveDocument.InlineShapes(i).PictureFormat.ColorType = msoPictureAutomatic

не взлетает, как правильно? спасибо

[Ципихович Эндрю]

это уладил

ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 1.0

кто подскажет-как узнать номер выделенного InlineShapes
или узнать его имя, чтобы впоследствии к нему обратиться?
спасибо

[Ципихович Эндрю]

сделал

If Selection.InlineShapes.Count = 1 And _
       Len(Selection.Text) = 1 Then
 
        For i = 1 To ActiveDocument.InlineShapes.Count
            If Selection.Start = ActiveDocument.InlineShapes.Item(i).Range.Start And _
               Selection.End = ActiveDocument.InlineShapes.Item(i).Range.End Then
                'номер первого выделенного InlineShapes
                SelectionInlineShapesIndex = i
                MsgBox$ "SelectionInlineShapesIndex-" & SelectionInlineShapesIndex
                Exit For
            End If
        Next i
    End If

блин, уверен, что это делается без цикла-одной строкой