I have too questions:
1) VBA code
Selection.ShapeRange.TextFrame.MarginLeft = 0#
Selection.ShapeRange.TextFrame.MarginRight = 0#
Selection.ShapeRange.TextFrame.MarginTop = 0#
Selection.ShapeRange.TextFrame.MarginBottom = 0#
seems to don't work. I have to click off <inside Margin <checkbox
Automatic manually to get it in function

2) What is difference between
Selection.ShapeRange.TextFrame.MarginLeft = 0#
or
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 405#, 195#, 67.5,
46.5).Select
And
Selection.ShapeRange.TextFrame.MarginLeft = 0
or
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 405, 195, 67.5, 46.5).Select

Any assistance would be greatly appreciated.