I don't think there is a container you can paste into so I would be looking at the code to resize the graphic after the paste. I also haven't worked out the code to resample the bitmaps after resizing but the resizing could be done with...
Code:
Sub ResizeShapes()
Dim aShp As Shape
For Each aShp In ActiveWindow.Selection
aShp.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = "100 mm"
aShp.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = "50 mm"
Next aShp
End Sub