Статьи из блога

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

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

Рубрика: Макросы
Метки: |
Просмотров: 10858
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

Еще записи по вопросам использования Microsoft Word:

Комментариев: 4

  1. Тюнинг Honda
    19.11.2007 в 04:26 | #1

    Если я не ошибаюсь, то макрос будет заменять весь черный звет, который найдет на картинке, а это может помешать работать корректно...

  2. 19.11.2007 в 06:53 | #2

    Макрос убирает черный фон и делает несколько размытым текст. Чему он может помешать непонятно?

  3. Ольга
    19.11.2007 в 17:07 | #3

    Если фон картинки другого цвета, то в строке

    iShape.PictureFormat.TransparencyColor = RGB(0, 0, 0)

    вместо нулей надо поставить код цвета нужного фона.

    Единственная проблема, определить правильный код цвета.

    Но речь идет о окнах из-под ДОС (или его эмулятора). А там другого фона и быть не может. Соответственно, черных линий и букв на этом черном фоне наверняка нет.

  4. Abdusaid
    17.12.2007 в 02:37 | #4

    Отлично, без словно!!!

Оставьте комментарий!

(обязательно)

^ Наверх