I have used this code:
ActiveWindow.View.Paste
ActiveWindow.Selection.ShapeRange(1).Name = shapeName
With NewPres.Slides(SlideNumber).Shapes(shapeName)
.Height = gridHeight
.Width = gridWidth
.Left = gridLeft
.Top = gridTop
.ZOrder gridZOrder
End With
After it pastes it is still selected so you can then give it a name and reference it that way and set it's various properties.