|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.12.2010, 12:28 | #1 |
Форумчанин
Регистрация: 03.06.2008
Сообщений: 213
|
Вставка чекбокса в центр ячейки?
Здравствуйте!
Подскажите, пожалуйста, как программно вставить чекбокс в ячейки строго по центру? Высота ячеек разная. Я беру высоту ячейки и прописываю ее в CheckBox.Top= Что-то, видимо, не так делаю. Измучилась вся. |
28.12.2010, 13:57 | #2 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Ну сколько можно-то... Я ж вам в прошлый раз на примере показывал, что чекбоксы бывают как минимум 2 видов - и код для них совершенно разный. В этот раз нам опять предлагать вам все возможные варианты, или вы всё-таки сжалитесь над нами, и выложите, пусть уж не файл, но хотя бы свой код? |
|
28.12.2010, 15:00 | #3 |
Форумчанин
Регистрация: 03.06.2008
Сообщений: 213
|
Вот, выкладываю (шипко то не глумитесь над бездарем):
iRowHeight = 0 For iRowCount = 2 To UsedRange.Rows.Count iChBoxTop = ActiveSheet.Range("A" & iRowCount).Height + iRowHeight ActiveSheet.OLEObjects.Add("Forms.C heckBox.1", Link:=True, _ DisplayAsIcon:=True, Left:=112.2, Top:=iChBoxTop, Width:=15.6, Height:=10 _ ).Select iRowHeight = iChBoxTop Next |
28.12.2010, 15:24 | #4 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
.............
|
29.12.2010, 11:21 | #5 |
Форумчанин
Регистрация: 03.06.2008
Сообщений: 213
|
Спасибо!!! Работает - все четко по центру.
Только ближе к сотне центровка сбиваться начала. Вот незадача. |
29.12.2010, 11:42 | #6 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
В Excel 2003 центровка сбиваться не должна (проверил на 1000 строках) |
|
29.12.2010, 13:15 | #7 |
Форумчанин
Регистрация: 03.06.2008
Сообщений: 213
|
|
23.07.2012, 11:16 | #8 |
Новичок
Джуниор
Регистрация: 19.07.2012
Сообщений: 1
|
Попробуйте продублировать свойство Top после вставки чекбокса, например:
ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeighth).Select With Selection .Caption = "" .Top = MyTop End With |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вставка из ячейки листа в название файла (A1_B1.xsl) | ramzan_s | Microsoft Office Excel | 2 | 01.10.2010 17:16 |
Вставка текста посредине ячейки | Chairo | Microsoft Office Excel | 0 | 27.09.2010 11:33 |
вставка пустой строки относит акт ячейки и копир диап | EJIF | Microsoft Office Excel | 2 | 05.07.2010 08:09 |
Запрет смены фокуса чекбокса. | Mixasik | Общие вопросы Delphi | 7 | 25.02.2009 23:43 |