How to trap a pasted picture in an object variable?

Like this?

set temp(4) = temp(1).Shapes.PasteSpecial (ppPasteBitmap)

current doing the following workaround:

temp(1).Shapes.PasteSpecial (ppPasteBitmap)

Set temp(4) = temp(1).shapes(temp1.shapes.count)