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

Не в фоксе, а в екселе.
Запиши маркрос с рисованием толстой линии и потом его просмотри.
...
Рейтинг: 0 / 0
Типы линий в Excel
    #38555629
Alexxz187
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
Типы линий в Excel
    #38555675
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Типы линий в Excel
    #38555714
Alexxz187
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
Типы линий в Excel
    #38555726
IgorNG,

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

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

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

#DEFINE xlmedium 3
#DEFINE xlEdgeRight 10
...

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


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