Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vba Excel 2010, копирование цвета / 5 сообщений из 5, страница 1 из 1
02.02.2012, 12:11
    #37643587
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba Excel 2010, копирование цвета
Всем привет!

Ищу возможность "копирования" цвета заливки ячейки (получение значений RGB). Задача усугубляется необходимостью "копирования" цвета заливки с gradient (цвета переливаются). Подскажите вариант решения задачи.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2012, 12:15
    #37643598
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba Excel 2010, копирование цвета
копирование куда?
из ячейки в ячейку? "Копирование формата" не подходит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2012, 12:19
    #37643610
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba Excel 2010, копирование цвета
"Копирование формата" не подходит. Речь идет о "копировании" данных цвета RGB в переменные для последующей "вставки" данных в столбец диаграммы. Подскажите кто может.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2012, 13:00
    #37643680
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba Excel 2010, копирование цвета
Поможет запись макроса, в котором будет создаваться этот градиент, а потом его "вывернуть" в обратную сторону
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2012, 13:29
    #37643745
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba Excel 2010, копирование цвета
Здесь подсказали, как установить цвет столбца в диаграмме в соответствии с заливкой ячейки:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub X()
    Dim objSeries As Series
    Dim rngColours As Range
    Dim lngIndex As Long
    
    Set rngColours = Range("B2:B5")
    lngIndex = 1
    With ActiveChart
        For Each objSeries In .SeriesCollection
            objSeries.Format.Fill.ForeColor.RGB = rngColours.Cells(lngIndex).Interior.Color
            lngIndex = lngIndex + 1
        Next
    End With
    
End Sub



Только все еще не понятно, как быть с цветами gradient.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vba Excel 2010, копирование цвета / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 142ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158098]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 11ms
total:  142ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]