Copy an image from Word to Excel using an Excel Macro

[HankJ]

I have a single image saved in a word document that I would like to lift and insert into an excel cell using an excel macro.

I have one which will do copying Tables but I am struggling how to identify an image.

oWordApp.Visible = True

    Set oWordDoc = oWordApp.Documents.Open(FlName)

    Set tbl = oWordDoc.Tables(1)

    '~~> Excel Objects
    Dim wb As Workbook, ws As Worksheet

    Set wb = Workbooks.Open("G:\Common\companydata\Order acknowledgment examples\Order1.xlsx")

    Set ws = wb.Sheets(1)
    
        tbl.Range.Copy

    ws.Range("A1").Activate

What would my alternative be for Set tbl?

Many thanks

Hj