ScriptTask - VB.Net Excel automate Camera Tool take picture of Pivot Table

Good day,  Goal is to take a picture of pivottable data area into picture saves as html then use image in mail body

I am having difficulty converting the vbscript generated in Excel macro to copy the dataarea of pivottable to a picture using camera - I cant really get a vb.net forum to assist thought I might have help - tried a few things but no luck
Range("A10").Select
   Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ActiveSheet.Shapes.AddShape(, 379.5, 97.5, 72#, 72#).Select
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Application.CutCopyMode = False
    Range("G8").Select
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select

This is what I have so far but struggling for days & tried so many options
 oBook.ActiveSheet.Range("A10").Select()
        oBook.ActiveSheet.Range(oBooks.Application.Selection, oBooks.Application.Selection.End(-4161)).Select()       
        oBook.ActiveSheet.Range(oBooks.Application.Selection, oBooks.Application.Selection.End(-4121)).Select()       

        oBook.Application.ActiveSheet.Shapes().Range(1).Item(1).Copy()
        'oBook.Application.ActiveSheet.Shapes().Range(oBooks.Application.Selection.End(-4161) & oBooks.Application.Selection.End(-4121)).Item(1).Copy()
        'oBook.ActiveSheet.Shapes.AddShape(, 473.25, 112.5, 72.0#, 72.0#).Select()

        ' oWsS.Shapes().Range(1).Item(1).Copy() 'oWsD.Select()'oWsD.Paste()

            ''oBook.Sheets("Sheet1").Shapes.SelectAll()
            ''oBook.ActiveSheet.Shapes.Range(Array("Picture 1")).Select()
        oBook.Application.CutCopyMode = False  
Please Help