Copy Image from Closed Book & Paste in open

[MarkOW]

Hi,

I have two workbooks.

I am looking to copy an Image from the closed book (Image Source) and paste it into the open book (Source Portfolio.xlsm).

The Images are signatures and have been named to correspond with the staff names stored in ComboBox1

ie. J Bloggs would have a signature image named J Bloggs.

Coming up with error '438 - Object does not support this property or method.'

any help would be greatly appreciated.

Thanks

Mark

Office 365 - Windows 10

    Workbooks.Open Filename:="C:\Users\\Documents\Image Source .xlsx"



    ActiveSheet.Shapes.ComboBox1.Value.Select
    Selection.Copy
    ActiveWindow.Close
    Range("P8").Select
    Windows("QPEO2 Source Portfolio .xlsm").Activate
    ActiveSheet.Pictures.Paste Range("P8")

 

[Domenic]

Try replacing...

    ActiveSheet.Shapes.ComboBox1.Value.Select
    Selection.Copy

with

    ActiveSheet.Shapes(ComboBox1.Value).Copy

 

[MarkOW]

Star Man!!!

thanks for the quick reply.

Work great.

Thanks
mark

 

[Domenic]

Assuming that you want the image pasted into the active sheet, your code can be re-written as follows...

    Dim wksDest As Worksheet
    Dim wkbSource As Workbook
    Dim shpSource As Shape
    Dim strImageName As String
    
    strImageName = ComboBox1.Value

    Set wksDest = ActiveSheet
    
    Set wkbSource = Workbooks.Open(Filename:="C:\Users\Documents\Image Source.xlsx")

    Set shpSource = wkbSource.Worksheets(1).Shapes(strImageName)

    shpSource.Copy
    With wksDest
        .Paste .Range("P8")
    End With
    
    wkbSource.Close SaveChanges:=False

 

[MarkOW]

Thanks again Domenic.

Much neater than my macro recorder effort.

Thanks

 

[Domenic]

You're very welcome!

Cheers!