Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Типы линий в Excel / 7 сообщений из 7, страница 1 из 1
10.02.2014, 13:15
    #38555578
Alexxz187
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Типы линий в Excel
Всем привет.
Рисую рамку отчете xls нужна толстая линия.
m.loSheet.cells(j,i).BorderS(7).LineStyle=1 дает обычную линию
Подскажите, как сделать толстой ее? Или где можно почитать про типы линий в фоксе.
...
Рейтинг: 0 / 0
10.02.2014, 13:20
    #38555583
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Типы линий в Excel
Alexxz187Всем привет.
Рисую рамку отчете xls нужна толстая линия.
m.loSheet.cells(j,i).BorderS(7).LineStyle=1 дает обычную линию
Подскажите, как сделать толстой ее? Или где можно почитать про типы линий в фоксе.

Не в фоксе, а в екселе.
Запиши маркрос с рисованием толстой линии и потом его просмотри.
...
Рейтинг: 0 / 0
10.02.2014, 13:43
    #38555629
Alexxz187
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Типы линий в Excel
IgorNGAlexxz187Всем привет.
Рисую рамку отчете xls нужна толстая линия.
m.loSheet.cells(j,i).BorderS(7).LineStyle=1 дает обычную линию
Подскажите, как сделать толстой ее? Или где можно почитать про типы линий в фоксе.

Не в фоксе, а в екселе.
Запиши маркрос с рисованием толстой линии и потом его просмотри.

Смотрел. И не понял как синтаксис перенести в фокс :(

Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
...
Рейтинг: 0 / 0
10.02.2014, 14:03
    #38555675
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Типы линий в Excel
Alexxz187IgorNGпропущено...


Не в фоксе, а в екселе.
Запиши маркрос с рисованием толстой линии и потом его просмотри.

Смотрел. И не понял как синтаксис перенести в фокс :(

Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous .ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With

Только нужно адаптировать под фоксе. Типов линий там я насчитал 15. Жирная - последняя. Попробуй так:

.LineStyle = 15
...
Рейтинг: 0 / 0
10.02.2014, 14:26
    #38555714
Alexxz187
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Типы линий в Excel
IgorNGAlexxz187пропущено...


Смотрел. И не понял как синтаксис перенести в фокс :(

Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous .ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With

Только нужно адаптировать под фоксе. Типов линий там я насчитал 15. Жирная - последняя. Попробуй так:

.LineStyle = 15

Вот в том то и дело, что 15 типа не существует. Все остальные до 14 я пробовал нет там толстой.
...
Рейтинг: 0 / 0
10.02.2014, 14:33
    #38555726
Типы линий в Excel
IgorNG,

Не совсем так... Даже если брать вольный перевод с английского, то xlContinuous = длительная, непрерывная... Это, извините, все-таки стиль рисования (непрерывная, пунктирная, штрих-пунктирная и т.д.), но не ее ширина (толщина)...

Я таки думаю, что за ширину (толщину) отвечает
.Weight = xlMedium

2 ТС:
А чтобы "подсмотреть" значение переменной xlMedium можно запустить макрос в среде VBA пошагово и в нужном месте все будет видно...
...
Рейтинг: 0 / 0
10.02.2014, 14:49
    #38555753
Alexxz187
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Типы линий в Excel
всем спасибо, кто откинулся помочь. Решил проблему следующим способом (может кому пригодится):

#DEFINE xlmedium 3
#DEFINE xlEdgeRight 10
...

m.loSheet.cells(j,i+1).BorderS(xlEdgeRight).Weight = xlMedium
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Типы линий в Excel / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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