Export images in excel

[#1]

Dear All,

I am trying to export a table data into excel, it is working fine but i want to export images in one column which is my dimension and remaining table data in same format. anyone can help out. i am using macro

sub export_actions

set v = ActiveDocument.Variables("QvWorkPath")

set XLApp = CreateObject("Excel.Application")

XLApp.Visible =true' false

set ExcelDoc = XLApp.Workbooks.Add

set obj1 = ActiveDocument.getsheetobject("CH02")

set chart=ActiveDocument.GetSheetObject("CH02")

set p = chart.GetProperties

ExcelDoc.Sheets(1).cells(1,1).Value = p.GraphLayout.WindowTitle.v

obj1.CopyTableToClipboard true

ExcelDoc.Sheets(1).cells(2,1).select

ExcelDoc.Sheets(1).paste

ExcelDoc.Sheets(1).Rows("2:2").Font.Bold = True

set obj1 = nothing

ExcelDoc.Sheets(1).cells.select

ExcelDoc.Sheets(1).Cells.EntireRow.RowHeight = 12.75

ExcelDoc.Sheets(1).Cells.EntireColumn.AutoFit

ExcelDoc.Sheets(1).cells(2,1).select

XLApp.Visible = true

end sub

this is working fine but in my table first column is carrying images for each row data. i want to export that image against row data.

Thanking You

Gauri Shanker

[ecolomer]

See this post

Re: Exporting Images To Excel