Hi Greg,

Am Thu, 20 Jun 2013 21:59:42 -0700 (PDT) schrieb Greg Glynn:

... runs till it gets to the 'Set Pct =' step then flops into debug, upon which I can then proceed without an error. I thought it might be a timing issue, but I'm not sure. Can anyone help?

for me it works fine.
But you can also try:

Sub AddPhotoPictureWithName()

' This Macro creates a picture element from the contents of a range,
and names it
Dim Pct As Picture, Rng As Range, Shp As Shape

' Identify and copy the source
With ActiveSheet
Set Rng = .Range("B2:C6")
Rng.CopyPicture xlScreen, xlBitmap
.Paste Destination:=.Range("A1")
End With
With Selection
.Name = "Project Clip"
.Top = 100
.Left = 100
End With
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2