Option Explicit
   Sub PropertyChanging2()
   'добавление прямоугольника к коллекции Shapes
   ' и занесение в него текста
 	
    Set myDocument = Worksheets(1)

 
  With myDocument.Shapes.AddShape(msoShapeRectangle, _
          0, 0, 100,  40).TextFrame 
          .Characters. Text = "Пример текста внутри прямоугольника" 
          .MarginBottom =10 
          .MarginLeft =10 
          .MarginRight =10 
          .MarginTop = 10
     End With	
     End Sub

myDocument

Set myDocument = Worksheets(1)