Copy/Paste Picture Fails - then works

[Greg Glynn]

Hi,

My code:
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
Set Rng = Range("B2:C6")
Rng.Copy

'
Set Pct = ActiveSheet.Pictures.Add(100, 100, 100, 100)
Pct.Name = "Project Clip"

For Each Shp In ActiveSheet.Shapes
Debug.Print Shp.Name
Next Shp

End Sub

.... 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?

Greg

 

[Claus Busch]

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

 

[Greg Glynn]

Thanks Claus - I found the bug. I changed the

Set Rng = Range("A2:AK14")
to
Set Rng = ActiveSheet.Range("A2:AK14")

(it was crapping out when running from the Editor - No focus?)

Thanks for your code. I'll check it out right away.

Greg