To name a picture as you paste it from VBA, you can use the following steps:

1. Copy the picture to the clipboard using the following code:
   
   Formula:

   Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture 

2. Create a new shape in Excel using the following code:
   
   Formula:

   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 200).Select 

3. Paste the picture from the clipboard into the new shape using the following code:
   
   Formula:

   ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
ActiveSheet.Paste 

4. Rename the shape to "samplepicture" using the following code:
   
   Formula:

   ActiveSheet.Shapes("Rectangle 1").Name = "samplepicture" 


So, the complete code to paste the picture from the clipboard and name it as "samplepicture" would be: