powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как задать строке таблицы Word заливку произвольным цветом?
8 сообщений из 8, страница 1 из 1
Как задать строке таблицы Word заливку произвольным цветом?
    #33030334
Alex112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот такая строка работает из Access 97:

Код: plaintext
WT.Rows( 1 ).Shading.BackgroundPatternColorIndex = wdGray25

Заливка получается темная. Хочется светлей. Но вот такие варианты не работают, заливка строчки остается белой:

Код: plaintext
1.
2.
WT.Rows( 1 ).Shading.BackgroundPatternColorIndex = RGB( 100 ,  200 ,  50 )
WT.Rows( 1 ).Shading.BackgroundPatternColorIndex =  11908533 

Если в самом Word записываю макрос, то там все ОК, в макросе вижу нужную мне константу wdColorGray05 (ее значение типа 11908533). Но использовать ее из под Access не получается ни в каком виде ...
...
Рейтинг: 0 / 0
Как задать строке таблицы Word заливку произвольным цветом?
    #33030358
Может поможет:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
' Произведём заливку ячейки с помощью константы.
TableWord.Cell( 8 ,  1 ).Shading.BackgroundPatternColor = wdColorGold

' Произведём заливку ячейки с помощью функции RGB.
TableWord.Cell( 8 ,  2 ).Shading.BackgroundPatternColor = RGB( 100 ,  200 ,  50 )

' Произведём заливку столбца.
TableWord.Columns( 3 ).Shading.BackgroundPatternColor = wdColorOrange

' Произведём заливку строки.
TableWord.Rows( 10 ).Shading.BackgroundPatternColor = wdColorTan

' Произведём заливку всей таблицы.
TableWord.Shading.BackgroundPatternColor = wdColorBlue
...
Рейтинг: 0 / 0
Как задать строке таблицы Word заливку произвольным цветом?
    #33030387
Alex112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Пользователь2

:) Мы, похоже, смотрим одни и те же страницы с примерами. Я RGB(100, 200, 50) копировал оттуда же, откуда и вы.

Дело в том, что из под Access нет возможности вызвать:

Код: plaintext
.BackgroundPatternColor

в Access есть только:

Код: plaintext
.BackgroundPatternColorIndex
...
Рейтинг: 0 / 0
Как задать строке таблицы Word заливку произвольным цветом?
    #33030455
Alex112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Отбой, разобрался:

Код: plaintext
WT.Rows( 1 ).Shading.Texture = wdTexture5Percent
...
Рейтинг: 0 / 0
Как задать строке таблицы Word заливку произвольным цветом?
    #33030526
Ок.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Как задать строке таблицы Word заливку произвольным цветом?
    #38789417
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Alex112Вот такая строка работает из Access 97:

Код: vbnet
1.
WT.Rows(1).Shading.BackgroundPatternColorIndex = wdGray25



Заливка получается темная. Хочется светлей. Но вот такие варианты не работают, заливка строчки остается белой:

Код: vbnet
1.
2.
WT.Rows(1).Shading.BackgroundPatternColorIndex = RGB(100, 200, 50)
WT.Rows(1).Shading.BackgroundPatternColorIndex = 11908533



Если в самом Word записываю макрос, то там все ОК, в макросе вижу нужную мне константу wdColorGray05 (ее значение типа 11908533). Но использовать ее из под Access не получается ни в каком виде ...
Тоже столкнулся с проблемой. Потом разобрался. Есть два свойства BackgroundPatternColor и BackgroundPatternColorIndex. Для значений этих свойств есть два разных набора констант-значений (по крайней мере в Дельфи так, в импортированном файле библиотеки типов Word'а 2000). Для BackgroundPatternColorIndex этот набор неболльшой, для BackgroundPatternColor гораздо шире и их можно спутать (я спутал). И если подсовывать первому свойству константы от второго, то ничего не будет происходить, ячейки не будут закрашиваться.
...
Рейтинг: 0 / 0
Как задать строке таблицы Word заливку произвольным цветом?
    #38789443
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Будем точнееs62Для BackgroundPatternColorIndex этот набор неболльшой, для BackgroundPatternColor гораздо ширепервое - это набор предопределенных цветов (палитра), а второе - просто 24-битный цвет в RGB
s62И если подсовывать первому свойству константы от второго, то ничего не будет происходить, ячейки не будут закрашиваться.на самом деле ячейки закрашиваться будут, просто отличить 0 от 5 на глаз проблематично
...
Рейтинг: 0 / 0
Как задать строке таблицы Word заливку произвольным цветом?
    #38789562
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProБудем точнееs62Для BackgroundPatternColorIndex этот набор неболльшой, для BackgroundPatternColor гораздо ширепервое - это набор предопределенных цветов (палитра), а второе - просто 24-битный цвет в RGB
Да, я написал неточно, но отредактировать тут ведь нельзя. Первое (значения BackgroundPatternColorIndex) - константы, не имеющие отношения к RGB:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
const
  wdAuto = $00000000;
  wdBlack = $00000001;
  wdBlue = $00000002;
  wdTurquoise = $00000003;
  wdBrightGreen = $00000004;
  wdPink = $00000005;
  wdRed = $00000006;
  wdYellow = $00000007;
  wdWhite = $00000008;
...




Shocker.Pros62И если подсовывать первому свойству константы от второго, то ничего не будет происходить, ячейки не будут закрашиваться.на самом деле ячейки закрашиваться будут, просто отличить 0 от 5 на глаз проблематично
То, что вы написали - это скорее если константы для BackgroundPatternColorIndex подсовывать свойству BackgroundPatternColor. А я писал о противоположном (своей ошибке) - если пытаться присвоить свойству BackgroundPatternColorIndex константы для BackgroundPatternColor (т.е. цвета в RGB). Тут, для большинства констант, эффекта, как я понимаю, не будет вообще - по моим опытам, да и значения не совпадают с предопределенными значениями для этого свойства.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как задать строке таблицы Word заливку произвольным цветом?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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