Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.07.2009, 11:31   #1
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию Белый цвет

Я применяю в VB Office 2007 код белого цвета для границ .ThemeColor = 1 но к Office 2003 он не подходит. Если ставлю 2 то в 2007 он черный.
Подскажите код белого цвета, для обоих Office.
segail вне форума Ответить с цитированием
Старый 11.07.2009, 12:05   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Я уже говорил тебе насчёт свойства ThemeColor в Office 2003
http://www.programmersforum.ru/showp...46&postcount=9

Используй свойства Color или ColorIndex:
Код:
Sub test()
    Cells.Borders.ColorIndex = 3 ' у всех ячеек красные границы
    Range("d3:f5").Borders.ColorIndex = xlColorIndexNone    ' нет границ
    Range("d7:f9").Borders.Color = vbWhite  ' белые границы
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 11.07.2009, 12:29   #3
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

В 2007 черные. Может в коде что не так?

Код HTML:
    Application.Goto Reference:="_03_Границы"
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        Range("d7:f9").Borders.Color = vbWhite  ' белые границы.
        ' .ThemeColor = 1
        ' .TintAndShade = 0
        .Weight = xlMedium

Последний раз редактировалось segail; 11.07.2009 в 12:36.
segail вне форума Ответить с цитированием
Старый 11.07.2009, 12:51   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

А что, подумать чуть-чуть сложно?
Код:
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = vbWhite  ' белые границы.
        .Weight = xlMedium
    End With
EducatedFool вне форума Ответить с цитированием
Старый 11.07.2009, 13:48   #5
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Да не лень, просто запутался, и профессионализма не хватает, учусь путем тыка и по форуму.
segail вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Белый фон утомляет глаза Sayfera О форуме и сайтах клуба 7 25.07.2009 14:48
Как с помощью JavaScript изменить цвет фона ячеек в таблице,так что бы можно было выбрать цвет из списка Gotessa JavaScript, Ajax 1 09.05.2009 16:05
Button - цвет Chudo4258 Помощь студентам 12 29.03.2009 00:31
ScrollBar. Цвет... Roof Win Api 0 29.08.2008 23:45
Пора бы предложить новую игру - Белый стих Elefanter Свободное общение 28 21.02.2008 22:14