VBA Code For CameraTool

[doofusboy]

Tried using macro recorder to get code for camera tool, but nothing recorded. Then I did a search here and found some code, but I'm getting error on highlighted line. Am I missing a reference or something? Am using Excel2007 by the way.

ERROR: Run-time error '1004':
Unable to get the Paste property of the Pictures class

    Range("A1:C9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M1").Select
    [B][COLOR=red]ActiveSheet.Pictures.Paste(Link:=True).Select[/COLOR][/B]

ERROR:

Run-time error '438':
Object doesn't support this property or method

If I change code to:

 Range("A1:C9").Select
Application.CutCopyMode = False
Selection.Copy
Range("M1").Select
[COLOR=red][B]ActiveSheet.Picture.Paste(Link:=True).Select[/B][/COLOR][COLOR=black]

[/COLOR]

 

[VoG]

Try like this

Sub a()
Dim x As Object
Range("A1:C9").Copy
Range("M1").Select
Set x = ActiveSheet.Pictures.Paste(Link:=True)
End Sub

 

[doofusboy]

Thanks for the quick response VoG. Tried your code and got:

Run-time error '1004':
Unable to get the Paste property of the Pictures class

 

[VoG]

Worked for me - Excel 2010.

 

[doofusboy]

Oddly enough, I added reference and it started working. Got rid of reference and it's still working. ??? Not gonna worry since it's now working, but weird.

Thanks for your help.