Макрос замены черного фона рисунка прозрачностьюИсточник: wordexpert Антон Конкин
Замечательный совет по использованию макроса при работе с иллюстрациями в редакторе 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 |