Дано 9 пустых фигур.

[Лука]

Здравствуйте уважаемые форумчане! Помогите пожалуйста если это вообще возможно! А я в excel ну никак
Дано 9 пустых фигур. Подскажите как сделать кнопки чтобы при их нажатии в необходимых фигурах появлялся символ, например + (ну или любой другой)?

[Sasha_Smirnov]

А секрет, Лука, был в том, чтобы записать макрос:

Sub Макрос() ' Макрос записан 27.02.2016
Dim K As Long 'СЧЁТЧИК ФИГУР
'
For K = 1 To ActiveSheet.Shapes.Count 'ДЛЯ ВСЕХ ФИГУР АКТИВНОГО ЛИСТА
    ActiveSheet.Shapes(K).Select
    Selection.Characters.Text = Selection.ShapeRange.Name 'впишем имя
    With Selection.Characters.Font
        .ColorIndex = 1
    End With
Next

End Sub

Как видите, ваши прямоугольники рождены не в том порядке, как их позже записали!

[Aleksandr H.]

Подскажите как сделать кнопки чтобы при их нажатии в необходимых фигурах появлялся символ,

Подсказка в архиве