ПРОБЛЕМА С ОБЪЕКТАМИ Label

[VITA11111]

Вобщем проблема такая:
Расставил объекты ,которые прописаны макросом на скрытие диапазона строк, эти диапазоны пересекаются поэтому при скрытии строк объекты в этом диапазоне тоже скрываются все было бы хорошо если бы после записи и закрытии книги , а потом открытия файла и раскрытия строк объекты не становятся по строкам
решил проблему макросом ,но каждый раз получается надо выполнять макрос по растановки объектов (а их около 150 шт.)по строкам ,а это немного тормозит

Private Sub КНОПКИ_ПЛЮС_МИНУС()
     Application.ScreenUpdating = False
     Sheets("РАБОЧИЙ ПЛАН").Shapes.Range(Array("ТП_МИНУС", "ТП_ПЛЮС")).Top = Cells(Sheets("kn").Range("C1"), 8).Top
      End Sub

приклепляю пример нажмите на "+"

[Казанский]

Попробуйте поиграть с параметрами привязки объекта к ячейкам: Формат - Свойства - Привязка объекта к фону.

[VITA11111]

Я пробывал много раз и так и так проблема не решается,поэтому решил только через макрос

[SAS888]

Предлагаю не использовать объекты, а макросы запускать по событию

Worksheet_SelectionChange(ByVal Target As Range)

[VITA11111]

я так понимаю что при выделении ячейки будет выполнятся макрос
это хорошая идея даже незнал



так надо написать

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
     If Target.Row = Sheets("kn").[C1] And Target.Column = 8 Then
 'МАКРОС1
     End If
     If Target.Row = Sheets("kn").[C1] And Target.Column = 9 Then
'МАКРОС2
     End If
    Application.ScreenUpdating = True
End Sub

т.е. если расположение выделенной ячейки в столбце 8 на листе "рабочий план" = расположению(значение вычисляется по формуле на листе "kn"(счет строк в диапазоне на литсе "рабочий план") ) в столбце 8 на листе "рабочий план"

[SAS888]

Именно так. Еще можно присвоить имя требуемым ячейкам, и тогда при добавлении (удалении) строк (столбцов) не потребуется вычислять их адрес. Например:

If Target.Address = Range("плюс").Address Then Макрос1

[VITA11111]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Address = Range("ТП_МИНУС").Address Then: Run "лист16.ТП_МИНУС"
     If Target.Address = Range("ТП_ПЛЮС").Address Then: Run "лист16.ТП_ПЛЮС"
     If Target.Address = Range("ОФП_МИНУС").Address Then: Run "лист16.ОФП_МИНУС"
     If Target.Address = Range("ОФП_ПЛЮС").Address Then: Run "лист16.ОФП_ПЛЮС"
     If Target.Address = Range("СФП_МИНУС").Address Then: Run "лист16.СФП_МИНУС"
     If Target.Address = Range("СФП_ПЛЮС").Address Then: Run "лист16.СФП_ПЛЮС"
End Sub

И ТАКИХ СТРОК МНОГО (264)
ИЗ-ЗА ЭТОГО ПИШЕТ ОШИБКУ ПРОЦЕДУРА СЛИШКОМ БОЛЬШАЯ
ЧТО ДЕЛАТЬ?
ТУТ ХОРОШО ЧТО ИМЯ МАКРОСА СОВПАДАЕТ С ИМЕНЕМ ЯЧЕЙКИ КОТРАЯ ЗАПУСКАЕТ МАКРОС

[VITA11111]

т.е. мысля такая
если выделенная ячейка равняется одной из ячеек в массиве именнованых ячеек в книге тогда запускается макрос по имени выделенной ячейки

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Ex
  Run "лист16." & Target.Name.NameLocal
Ex:
End Sub

надо дать имя макросу такое же как и выделенной ячейке
и поместить в модуль листа этот макрос
срабатывает лучше чем объекты label и исчезла проблема
спасибо огромное SAS888 за идею и помощь