Thumbnail when export parts List

[Anonymous]

Hello All,

I have these ilogic code to export parts list to a excel file with some configuration, but i like export also a part thumbnail. what I need change in that code?

Thanks in advance!

Code:

'get the path and name of the drawing file
path_and_name = ThisDoc.PathAndFileName(False) ' without extension

'get PDF target folder path
ooFolder = ThisDoc.PathAndFileName

'Check for the PDF folder and create it if it does not exist
If Not System.IO.Directory.Exists(ooFolder) Then
System.IO.Directory.CreateDirectory(ooFolder)
End If

'define oDoc
oDoc = ThisDoc.Document

'specify the drawing sheet
'oSheet = oDoc.Sheets("Sheet:1") ' sheet by name
oSheet = oDoc.Sheets(1) ' first sheet

'say there is a Partslist on the sheet.
oPartslist = oSheet.PartsLists(1)

'create a new NameValueMap object
oOptions = ThisApplication.TransientObjects.CreateNameValueMap

'specify an existing template file
'to use For formatting colors, fonts, etc
oOptions.Value("Template") = "C:\Users\LF\Desktop\Configuracoes Inventor LF\Templates\Lista_Pecas.xlsm"

'specify the columns to export
oOptions.Value("ExportedColumns") = "PART NUMBER;DESCRIPTION;MATERIAL;COMPANY;QTY;WEBLINK;VENDOR"

'specify the start cell
oOptions.Value("StartingCell") = "A3"

'specify the XLS tab name
'here the file name is used
oOptions.Value("PARTS LIST") = ThisDoc.FileName(False) 'without extension

'choose to include the parts list title row
oOptions.Value("IncludeTitle") = False

'choose to autofit the column width in the xls file
oOptions.Value("AutoFitColumnWidth") = False

If Dir(ooFolder & ".xlsm") <> "" Then
Kill (ooFolder & ".xlsm")
End If

'get drawing name
oName = ThisDoc.FileName

' export the Partslist to Excel with options
oPartslist.Export(ooFolder & "\" & oName & ".xlsm",PartsListFileFormatEnum.kMicrosoftExcel, oOptions)