VBA Excel Как программно запретить вывод автофигуры на печать?

Формулировка задачи:

Всем привет! Подскажите, пожалуйста, как у создаваемой программно автофигуры поставить свойство "не выводить на печать"? В ручную, допустим, это делается снятием соответствующей галки на вкладке "Размер и свойства / Свойства" А если фигуры создаются программно, при этом мы заранее не знаем, сколько их будет? Вот такой код, например (файл тоже прилагаю):

                    Листинг программы
                
 
                        
                          
                    
Sub rty()
Dim Temp As Variant 
Temp = Application.InputBox(Prompt:="Вставьте цифру от 1 до 10", Default:=1, Type:=1)
 
Dim i As Long 
i = Cells(Rows.Count, 1).End(xlUp).Row ' посл.строка
Cells(i + 1, 1) = Temp 
' вставка фигуры
Dim MyShape As Shape
    Cells(i + 1, 2).Select
    ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, Selection.Left, Selection.Top, 100, 30).Select
    Selection.ShapeRange.Line.Visible = msoTrue
  With Selection.ShapeRange.Fill
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
   With Selection.ShapeRange.Line
        .ForeColor.RGB = RGB(255, 145, 164)
        .Weight = 3
    End With
        Selection.Characters.Text = "Данные-" & (i - 2)
     
     With Selection.Characters.Font
        .Name = "Calibri"
        .FontStyle = "полужирный"
    End With
 
End Sub

Где здесь и как указать, чтобы эта фигура не выводилась на печать?

Решение задачи: «VBA Excel Как программно запретить вывод автофигуры на печать?»

textual
                            Листинг программы 
                        
    ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, Selection.Left, Selection.Top, 100, 30).Select
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.PrintObject = msoFalse