Pasting Shape

[Kevanova]

Hi

I've got the following code to paste a shape into a Range.

ActiveSheet.Shapes("Picture").Copy
Application.Goto Concerns.Range("Z6")
ActiveSheet.Paste

The problem is the cell is a a merge of Z6:AA11 and I can't change this. Is there any way to paste it into the centre of this range?

Thanks

Kevin

 

[Domenic]

Try...

ActiveSheet.Shapes("Picture").Copy
Application.Goto Concerns.Range("Z6")
ActiveSheet.Paste
[COLOR=darkblue]With[/COLOR] Selection.ShapeRange
    .Left = Range("Z6:AA11").Left + (Range("Z6:AA11").Width - .Width) / 2
    .Top = Range("Z6:AA11").Top + (Range("Z6:AA11").Height - .Height) / 2
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]

Hope this helps!

 

[Kevanova]

 

[Domenic]

You're very welcome!

Nice picture, by the way.