Извлечение цвета (Пипетка)

Извлечение цвета (Пипетка), Как скопировать цвет текста или фона текста. (только цвет)

Пользователь

Сообщений: 34 Регистрация: 25.08.2015

20.11.2015 06:20:54

Здравствуйте. извиняюсь за глупый вопрос. Подскажите пожалуйста как скопировать цвет текста или фона текста, чтобы потом применить точно такой же к другому тексту. Причем только цвет. Раньше была функция пипетка. Этот я так понял относится и к Ворду. Например взять цвет ячейки из документа и применить такой же цвет к тексту другой ячейки.Нигде не могу найти ответ. Есть функция "формат по образцу", но это не то, так как копируется и формат текста.
Спасибо

Изменено: alevlaka - 20.11.2015 06:21:30

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#2 20.11.2015 08:37:07 Как-то с форума скачал, в загажник. Прикрепленные файлы rgb color demo.xlsm (28.8 КБ) "..Сладку ягоду рвали вместе, горьку ягоду я одна."

МВТ

Пользователь

Сообщений: 1198 Регистрация: 01.02.2015

20.11.2015 09:39:20

Как-то так

Код

Sub CopyTextColor()
    Dim Rng As Range, Area As Range
    Dim Color As Long
    On Error Resume Next
    Set Rng = Application.InputBox("Выберете ячейку, цвет шрифта которой, будет скопирован", , ActiveCell.Address, , , , , 8)
    If Rng Is Nothing Then Exit Sub
    Color = Rng.Cells(1, 1).Font.Color
    Set Rng = Application.InputBox("Выберете ячейку или диапазон, куда будет скопирован цвет шрифта", , ActiveCell.Address, , , , , 8)
    If Rng Is Nothing Then Exit Sub
    For Each Area In Rng.Areas
        Area.Font.Color = Color
    Next
End Sub

Sub CopyInteriorColor()
    Dim Rng As Range, Area As Range
    Dim Color As Long
    On Error Resume Next
    Set Rng = Application.InputBox("Выберете ячейку, цвет фона которой, будет скопирован", , ActiveCell.Address, , , , , 8)
    If Rng Is Nothing Then Exit Sub
    Color = Rng.Cells(1, 1).Interior.Color
    Set Rng = Application.InputBox("Выберете ячейку или диапазон, куда будет скопирован цвет фона", , ActiveCell.Address, , , , , 8)
    If Rng Is Nothing Then Exit Sub
    For Each Area In Rng.Areas
        Area.Interior.Color = Color
    Next
End Sub

Shamay Пользователь Сообщений: 4 Регистрация: 18.01.2017	#4 18.01.2017 11:57:31 alevlaka, есть довольно простое и универсальное решение. Можно применить к контуру/ заливке/ тексту и т.п., если "формат по образцу" не работает. Допустим для текста: 1) Выбираем ячейку, из которой хотим скопировать цвет текста 2) Нажимаем на стрелочку около "цвет шрифта"/ "другие цвета" (должен отображаться как раз нужный цвет текста)/ "ОК" 3) Теперь выбираем ячейку, где хотим применить текст и нажимаем на сам цвет шрифта. Аналогично можно залить фигуру в графике по образцу корпоративных цветов, например. Изменено: Shamay - 18.01.2017 12:01:16

Читают тему