VBA Excel - : Лекарства "Метокард" (строка 5) и "Карвидил" (строка 6) при нажатии появляются 2 раз. Что надо делать?

[omonulla1986]

Здравствуйте!!! Помогите пожалуйста!
Я создал перечень лекарств для сам в виде программа. Некоторые специалисты помогали. Но сейчас маленькая проблема: Лекарства "Метокард" (строка 5) и "Карвидил" (строка 6) при нажатии появляются 2 раз. Что надо делать?
Спасибо заранее

[Aleksandr H.]

.........
For Each CheckBox In ActiveSheet.OLEObjects
      If TypeName(CheckBox.Object) = "CheckBox" Then
..........

[Hugo121]

Интересно - это глюк или можно найти объяснение, почему эти два элемента дублируются в DrawingObject? Я причину не нашёл...

[Step_UA]

На самом деле лист просто содержит 10 объектов, причем первый и второй это прямоугольники (странно что их наименования CheckBox4 и CheckBox5), у которых установлено свойство Visible в False.
Если они нужны, то в код следует добавить проверку их видимости или просто удалить

ActiveSheet.Shapes(1).delete
ActiveSheet.Shapes(1).delete

[Hugo121]

Я вижу что первый и второй точно такие же чекбоксы, как девятый и десятый, прямоугольник там один - третий.

[Step_UA]

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

Я вижу что первый и второй точно такие же чекбоксы, как девятый и десятый, прямоугольник там один - третий.

Я писал о номерах в перечислении Shapes. Выполните код

ActiveSheet.shapes(1).visible=true
ActiveSheet.shapes(1).select

при выделении появляется вкладка "Средства рисования/Формат" (2007) ... ошибся по поводу прямоугольника, это надписи, но в контексте задачи это не так уж и важно

[Hugo121]

Да, когда удалил два первых элемента - то проявились эти две "рамки".
Но смущает почему при выполнении

    For Each el In ActiveSheet.DrawingObjects
        Debug.Print el.Name, el.TopLeftCell.Address
    Next

результат
CheckBox4 $A$5
CheckBox5 $A$6
Прямоугольник 1 $B$1
CheckBox170 $A$1
CheckBox1 $A$2
CheckBox2 $A$3
CheckBox3 $A$4
CheckBox6 $A$7
CheckBox4 $A$5
CheckBox5 $A$6

Ведь эти "надписи" расположены ниже таблицы, и если первые два чекбокса удалить, то тогда этот код выдаёт уже такой результат:
CheckBox4 $B$8
CheckBox5 $B$6
Прямоугольник 1 $B$1
CheckBox170 $A$1
CheckBox1 $A$2
CheckBox2 $A$3
CheckBox3 $A$4
CheckBox6 $A$7

Имхо налицо глюк.

[Step_UA]

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

Имхо налицо глюк.

Однозначно ... это видно по совпадению наименований