Макрос замены черного фона рисунка прозрачностью

Замечательный совет по использованию макроса при работе с иллюстрациями в редакторе Word.

Читательница пишет, что на работе ей часто приходится вставлять в документ Word захваченные в буфер обмена при помощи клавиши Print Screen рисунки из-под OC DOS (или эмуляции DOS). Поскольку фон этих рисунков всегда черный, то необходимо заменять фон прозрачностью. Вручную такую операцию производить конечно можно, но при большом количестве рисунков нецелесообразно.

Ольга предлагает использовать следующий макрос (для Word 2003):

Sub NoBlack()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
    iShape.PictureFormat.TransparentBackground = msoTrue
    iShape.PictureFormat.TransparencyColor = RGB(0, 0, 0)
    iShape.Fill.Visible = msoFalse
Next iShape
End Sub

• Подписаться на рассылку " Windows и Office: новости и советы "
• Обратиться в “Интерфейс” за дополнительной информацией/по вопросу приобретения продуктов