Страницы: 1
RSS
Связать фигуру и элемент управления, Связать фигуру и элемент управления.
 

Помогите пожалуйста! Связать фигуру и элемент управления.

При нажатии флажка в ячейке В25 - должна появится фигура овала (красный, прозрачность заливки 100%) в определенном месте: место указано. При повторном нажатии на флажок красный овал должен исчезнуть.

При нажатии на флажок в ячейке B27 должно произойти описанное выше, только обвод овалом на строку ниже.

И так далее. Спасибо.

 
and.kaa,
я предлагаю просто записать макрос:
Код
Sub Флажок1_Щелчок()
If Range("B7") = True Then
    ActiveSheet.Shapes.AddShape(msoShapeOval, 519.6522047244, 24.5217322835, _
        46.9564566929, 42.2608661417).Select
    Selection.ShapeRange.Name = "1"
    Selection.Name = "1"
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 1
        .Solid
    End With
Else
    ActiveSheet.Shapes.Range(Array("1")).Delete
End If
End Sub
Sub Флажок3_Щелчок()
If Range("B27") = True Then
    ActiveSheet.Shapes.AddShape(msoShapeOval, 373.0434645669, 297.9130708661, _
        144.5217322835, 18.7825984252).Select
    Selection.ShapeRange.Name = "2"
    Selection.Name = "2"
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 1
        .Solid
    End With
Else
    ActiveSheet.Shapes.Range(Array("2")).Delete
End If
End Sub
Изменено: evgeniygeo - 19.01.2022 08:09:27
 
Все, разобрался. Большое спасибо!!!
Страницы: 1
Наверх