VBA Code for Copy/Paste

[katk]

All right, my last attempt to get help on this topic:

I have a code for copy/pasting a picture from one sheet to another:

Sub Picsy()
Sheets("Rough Draft").Shapes.Range(Array("Picture 2")).Select
    Selection.Copy
    Sheets("Final Copy").Select
    Range("D1").Select
    ActiveSheet.Paste
End Sub

If I select the picture (which is in fact named Picture 2) MANUALLY and then run the macro, it works. However, if anything else is selected when it starts to run, it copy/pastes that instead. This is bad A) because it should be selecting the picture per the first line of code and B) it's part of a much longer macro and it will take a lot more time if I have to break the macro up and manually select the picture in the middle. Can anyone help me figure out how to make it so it's *actually* selecting the picture before doing everything else?

Thanks!

 

[VoG]

Does this work?

Sub Picsy()
Sheets("Rough Draft").Shapes("Picture 2").Copy
Sheets("Final Copy").Range("D1").Paste
End Sub

 

[Scott Huish]

Paste is not a method for a Range object. Try this:

Sub Picsy()
Sheets("Rough Draft").Shapes("Picture 2").Copy
Sheets("Final Copy").Range("D1").PasteSpecial
End Sub

 

[katk]

Thanks for responding!

I tried the new coding in its own module and it worked fine. However, when I tried to insert it into my larger macro (at the very end, just to see if it would work), it said "PasteSpecial for this range class failed" (or something similar to that...). Any ideas on why?

For reference, the larger macro is mostly formatting and copy/pasting, with no complex statements:

Sub Finish2()
'(There's a lot more at the beginning, but it's just changing fonts, etc.)
' Final copy/paste
    Cells.Select
    Selection.Copy
    Sheets("Rough Draft").Select
    Sheets.Add
    ActiveSheet.Name = "Final Copy"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    'Row height
    Sheets("Final Copy").Range("A13:L900").Select
    With Selection
    Selection.RowHeight = 23
    End With
    'Picture transfer
    Sheets("Rough Draft").Shapes("Picture 2").Copy
    Sheets("Final Copy").Range("D1").PasteSpecial
End Sub

 

[VoG]

Working here

Sub Picsy()
Sheets("Rough Draft").Shapes("Picture 2").Copy
Sheets("Final Copy").PasteSpecial Format:="Microsoft Office Drawing Object"
With Sheets("Final Copy").Pictures(Sheets("Final Copy").Pictures.Count)
    .Top = Sheets("Final Copy").Range("D1").Top
    .Left = Sheets("Final Copy").Range("D1").Left
End With
End Sub

 

[katk]

Hmm, I'm still able to get the code running on its own, but not able to fit it into the larger code (now it's saying "PasteSpecial method of worksheet class failed." I tried a few modifications to no avail...

Would it be possible for me to keep the code you wrote in its own module and then "call" it from my larger code? I'm not sure how calling works, exactly...

Thanks again -- Katherine

 

[katk]

Update: I messed around with it a bit and was able to call your macro successfully into my larger one. Hooray! Thanks for all your help.