Вставка чекбокса в центр ячейки?

[Bezdar]

Здравствуйте!
Подскажите, пожалуйста, как программно вставить чекбокс в ячейки строго по центру? Высота ячеек разная.
Я беру высоту ячейки и прописываю ее в CheckBox.Top=
Что-то, видимо, не так делаю. Измучилась вся.

[EducatedFool]

Измучилась вся

И нас решили снова помучить, да? )))

Ну сколько можно-то...
Я ж вам в прошлый раз на примере показывал, что чекбоксы бывают как минимум 2 видов - и код для них совершенно разный.

В этот раз нам опять предлагать вам все возможные варианты,
или вы всё-таки сжалитесь над нами, и выложите, пусть уж не файл, но хотя бы свой код?

[Bezdar]

Вот, выкладываю (шипко то не глумитесь над бездарем):
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

[аналитика]

.............

[Bezdar]

Спасибо!!! Работает - все четко по центру.
Только ближе к сотне центровка сбиваться начала. Вот незадача.

[EducatedFool]

Только ближе к сотне центровка сбиваться начала. Вот незадача.

Скорее всего, вы используете Excel 2007 - там есть такая проблема (надо учитывать толщину рамок ячеек, что достаточно сложно. По крайней мере, я алгоритма не знаю - обычно в таких случаях для Excel 2007 путём научного тыка ввожу небольшое смещение, зависящее от номера строки. После этого проблемы с центровкой хоть и не решаются, но визуально не видны)

В Excel 2003 центровка сбиваться не должна (проверил на 1000 строках)

[Bezdar]

Сообщение от EducatedFool

В Excel 2003 центровка сбиваться не должна (проверил на 1000 строках)

У меня 2003. Сбивается. Наляпала по-старинке - вручную

[darkedhart]

Попробуйте продублировать свойство Top после вставки чекбокса, например:
ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeighth).Select
With Selection
.Caption = ""
.Top = MyTop
End With