Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Рамка вокруг Range, Excel 
V
    Опции темы
CPlusPlusFAN
Дата 11.7.2008, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 315
Регистрация: 1.11.2005
Где: Воронеж

Репутация: нет
Всего: нет



Есть объект Range. Нужно нарисовать вокруг него рамку. Другими словами:

Код

Range.Borders[?].LineStyle:=1;


вместо ? вставить нужное число.  smile  Сам пытался подобрать, но чё-то как-то не получается.

ЗЫ Или нужно написать 4 строчки со значениями 7-10?
PM MAIL ICQ Jabber   Вверх
kemiisto
Дата 11.7.2008, 19:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 1
Всего: 160



Просто если хотите все границы одинаковыми:
Код

Range.Borders.LineStyle := 1;



--------------------
PM MAIL WWW GTalk Jabber   Вверх
CPlusPlusFAN
Дата 11.7.2008, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 315
Регистрация: 1.11.2005
Где: Воронеж

Репутация: нет
Всего: нет



Да это сетка. А мне нужна рамка.
PM MAIL ICQ Jabber   Вверх
kemiisto
Дата 11.7.2008, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 1
Всего: 160



Цитата(CPlusPlusFAN @  11.7.2008,  22:33 Найти цитируемый пост)
 А мне нужна рамка.

Поподробнее. Какой хоть это пункт меню в Excel?


--------------------
PM MAIL WWW GTalk Jabber   Вверх
CPlusPlusFAN
Дата 11.7.2008, 23:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 315
Регистрация: 1.11.2005
Где: Воронеж

Репутация: нет
Всего: нет



Панель инструментов -> Границы
PM MAIL ICQ Jabber   Вверх
Данкинг
Дата 11.7.2008, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



Цитата(CPlusPlusFAN @ 12.7.2008,  00:24)
Панель инструментов -> Границы

Ну вот и запиши макрос, а потом посмотри, как сам Excel сиё сотворил. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
CPlusPlusFAN
Дата 12.7.2008, 00:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 315
Регистрация: 1.11.2005
Где: Воронеж

Репутация: нет
Всего: нет



Я не умею макросы писать.
PM MAIL ICQ Jabber   Вверх
Данкинг
Дата 12.7.2008, 00:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



Цитата(CPlusPlusFAN @ 12.7.2008,  01:37)
Я не умею макросы писать.

Не "напиши", а "запиши"! smile "Макросы - начать запись..."


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
CPlusPlusFAN
Дата 12.7.2008, 02:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 315
Регистрация: 1.11.2005
Где: Воронеж

Репутация: нет
Всего: нет



Код

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


Действительно, рамка вокруг области расширяется в 4 записи об указании границ слева, справа, сверху и снизу. Я так и предполагал сначала.

ЗЫ Данкинг, я знал о том, что есть запись макросов, но не знал для чего оно. Так теперь мне справка по методам/свойствам объектов нафик не нужна.  smile 
Респектище тебе! И лови +1.

Это сообщение отредактировал(а) CPlusPlusFAN - 12.7.2008, 02:27
PM MAIL ICQ Jabber   Вверх
Данкинг
Дата 12.7.2008, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



Цитата(CPlusPlusFAN @  12.7.2008,  03:22 Найти цитируемый пост)
я знал о том, что есть запись макросов, но не знал для чего оно

Изначально-то оно всё же было только ради макросов, вероятно. smile Но мне тоже в своё время люди подсказали, что таким образом можно узнавать команды для работы из Дельфи. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Albinos_x
Дата 15.7.2008, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108





--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




[ Время генерации скрипта: 0.1183 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.