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
