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

Читательница сайта Ольга прислала замечательный совет по использованию макроса при работе с иллюстрациями в редакторе 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