Простановка единиц в ячейки под объектами, в макрос-то эту запись как превратить ?

[Путин ВВ]

Доброе утро.
Помогите решить проблему.

У меня есть макрос, заполняющий единицами ячейки под фигурой-полилинией.
Но применить его для простановки единиц под простыми фигурами - что-то не получается.

Подскажите - как проставить единицы - и под простыми фигурами тоже ?
(Или каким-то другим макросом проставить единицы под фигурами)

[IgorGO]

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

[Путин ВВ]

IgorGO, а в макрос-то эту запись как превратить ?
Чтобы хотя бы посмотреть как он работает.

Я вот так его добавил:

Sub SetOnes()
Set sh = ActiveSheet.Shapes.Range(Array("Rectangle 3"))
  Range(sh.TopLeftCell, sh.BottomRightCell).Value = 1
End Sub

Выдает ошибку:
Run-time error '438'. Object doesn't support this property or method

[IgorGO]

Путин ВВ,
а эта запись и есть полноценный макрос. не верите? спросите у любого полноценного программиста на VBA. не нужно ее ни во что превращать, просто пользуйтесь.
ранее предложенный макрос (или запись, если хотите) скопируйте в программный модуль своего проекта

в любом своем макросе используйте так:

Sub PtnPNX
' допустим это Ваш макрос
  SetOnes ActiveSheet.Shapes.("Rectangle 3")
' все 
End Sub

как только выполнили PtnPNX - смотрите не заполнились-ли ячейки за Rectangle 3 единичками.

[Путин ВВ]

Сообщение от IgorGO

просто пользуйтесь.

Так я, был бы только рад им воспользоваться, но он не работает.

Сделал все как вы сказали:

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


Sub PtnPNX()
  SetOnes ActiveSheet.Shapes.Range("Rectangle 3")
End Sub

Выдает ошибку :
Run-time error 438.
Object doesnt support this property or method

[IgorGO]

а если вместо
"Rectangle 3"
написать
"Прямоугольник 3"
??? зачем Вы обращаетесь к фигурам с несуществующими именами?

открывайте файл, щелкайте по фигурам, см. тексты макросов в Module2

[Путин ВВ]

IgorGO, посмотрел.
Этот макрос - вместо простановки единиц под фигурами - рисует что-то наподобие крестов, которые выходят далеко за пределы этой фигуры.

Подскажите как макросу - учесть наклон фигуры ?
Чтобы единицы - более-менее попадали в контур фигуры.