Управление атрибутами (изображения) из TextBox

[EducatedFool]

Попробуйте такой вариант: (если честно, не совсем понял, что требуется)



В выпадающем списке ячейки B3 выберите нужный режим отображения стрелок.

Вот весь код:

Sub ПоказатьНужныеСтрелки()
    Select Case [b3]
        Case "красные": LineColor = 255
        Case "синие": LineColor = 12287562
        Case Else: LineColor = -999
    End Select

    Dim sha As Shape: Application.ScreenUpdating = False
    For Each sha In Me.Shapes
        'Debug.Print sha.Type, sha.AutoShapeType, sha.Name
        If sha.Type = msoAutoShape And sha.AutoShapeType = msoShapeMixed Then
            sha.Visible = sha.Line.ForeColor = LineColor
        End If
    Next sha
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [b3].Address Then ПоказатьНужныеСтрелки
End Sub

[mihsel]

Вы сделали статискую систему, а у меня динамическая тоесть в зависимо от вычеслений стрелочка будет указывать на разные обэктию
Вот пример

[EducatedFool]

Мне нужно для нача три варианта стрелочка 1 повляется если выполняется функция ИСТИНА в ячейке скажем А1.
Стрелочка 2 появляется если выполняется функция ИСТИНА в ячейке скажем А2.
Стрелочка 3 появляется если выполняется функция ИСТИНА в ячейке А3.

Вот с этого и надо было начинать...

Проверяйте:

Private Sub Worksheet_Calculate()
    For i = 1 To 3
        Me.Shapes("strelka" & i).Visible = CBool(Me.Cells(i, 1))
    Next
End Sub

[mihsel]

Спасибо.
Не судите строго я в кодах слаб просто не сталкивался.
Вечером попробую!

[mihsel]

Вы просто чудо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Сделайте пожалуста количество стрелочек 10 - 12!

[EducatedFool]

Сделайте пожалуста количество стрелочек 10 - 12!

И скажыте как мне вашу роботе перетащить (пробывал копироавть но при встаке не работает) в документ в котором формулы?
Я мог преписать формулы на семл на там две страницы даные в которых связаны между собой!

Ну и что? Сделаю я сейчас 12 стрелочек (хотя не понимаю, что это значит - добавить несколько стрелочек тех же цветов, или по одной, но разных цветов), и дальше что?
Вы же не сможете перенести это в свой проект...

Можете отправить мне свой файл (с подробными комментариями, что надо сделать) по почте - тогда получите готовое решение (но не бесплатно)

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

[mihsel]

В файле я показал три варианта для примера, а таких вариантов 12
пожалуста просто добавте стрелочек тех же цветов, и чтобы они появлялись при условии ИСТИНА. Я вчера перенес свои формулы на ваш пример немножко пришлось поисправлять но сделал.
Файл вам выслать могу, но поймите чтобы ввести вас в курс того что надо сделать нужно будет очень много времени проще перенести формулы на ваш пример.