Изменение макроса для простановки 1 под шейпами

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Изменение макроса для простановки 1 под шейпами (Макросы/Sub)

radioamator

Дата: Вторник, 05.02.2019, 23:08 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Вечер добрый.
Возникла проблема с макросом.
Помогите, если кто может - решить ее.

В общем суть такая. На листе есть несколько фигур.
Если щелкать по ним, то под этими фигурами прописываются "1".
Но макросы сейчас имеют примерно вот такой вид - для каждого шейпа:
[vba]

Код

Option Explicit

Sub Макрос1()
SetOnes ActiveSheet.Shapes("Фигура 1")
End Sub

Sub SetOnes(sh)
Range(sh.TopLeftCell, sh.BottomRightCell).Value = 1
End Sub

[/vba]

То есть для каждого шейпа - приходится назначать свой отдельный макрос.

Подскажите - как макросом прописать 1 - под всеми этими шейпами, в названии которых имеется слово "Фигура" ?