Convert a shape (group) into a picture inside wrksheet using VBA

[geo77]

I am obsessed with terse code. The code below does the job (I recorded this macro):

Sub copy_and_paste_as_picture()

ActiveSheet.Shapes.Range(Array("Group 5")).Select
Selection.Copy
ActiveSheet.Pictures.Paste

End Sub

Can someone help me clean this up and turn the three lines inside the sub into one line (preferably without selection)?
A one line conversion from a shape into a picture would be cool but that's probably not possible (I can delete the original group later anyway).

Thanks a lot!

 

[Norie]

I think the best you could do would be this.

Sub copy_and_paste_as_picture()

    ActiveSheet.Shapes.Range(Array("Group 5")).Copy
    ActiveSheet.Pictures.Paste

End Sub

 

[geo77]

I think the best you could do would be this.

Sub copy_and_paste_as_picture()

    ActiveSheet.Shapes.Range(Array("Group 5")).Copy
    ActiveSheet.Pictures.Paste

End Sub

That's an obvious solution and I tried it before posting this. I'm getting the error: "Object does not support this property or method. Run time error 438

It must be a one line solution. Thanks!

 

[Domenic]

Try the following instead...

Sub copy_and_paste_as_picture()

    ActiveSheet.Shapes("Group 5").Copy
    ActiveSheet.Pictures.Paste


End Sub

 

[geo77]

Domenic, amazing, thanks, we love Canada!
I assume it cannot be converted to a one liner. Is it true?
Thanks again!!!

 

[Domenic]

Domenic, amazing, thanks, we love Canada!

Nice to hear.

I assume it cannot be converted to a one liner. Is it true?

I don't think so, but it can be re-written as follows...

Sub copy_and_paste_as_picture()

    With ActiveSheet
        .Shapes("Group 5").Copy
        .Pictures.Paste
    End With


End Sub

Thanks again!!!

You're very welcome!

 

[geo77]

Thanks, Domenic. I prefer the one before. All the best!