Export Image to insert in ppt

[#1]

Good Mornig,

i need your help to export a table not in excel format but as an image.

My table identificative name is "Table_1"

Until today I Use this macro to export in excel Table1:

sub ExportToExcel()

set Table_1 = ActiveDocument.GetSheetObject("Table_1")

Table_1.ExportEx "G:\document\Table_1.xls", 5

end sub

How can i write a macro to export Table_1 as image (.png, or btm or jpeg...  high quality is preferred)

(I need an image to insert in ppt. I think that is the better solution to connect qlik to ppt...)

Thank you

Marco

[angelaecheverri]

Hi...

There are a way to export all charts in excel in the same book?

or at least export all the charts to excel in the same rutine?

Thanks in advantage.

AE

[#3]

How can I use ur code in my code.

I want dynamically allocate aSheetObj array(highlighted line in yellow color) all object ids

sub launchXL

set oXL=CreateObject("Excel.Application")

oXL.visible=True 

oXL.Workbooks.Add

aSheetObj=Array("TB01","CH01")

for i=0 to UBound(aSheetObj)

  oXL.Sheets.Add  

  Set oSH = oXL.ActiveSheet

oSH.Range("A1").Select   

Set obj = ActiveDocument.GetSheetObject(aSheetObj(i))

  obj.CopyTableToClipboard True

  oSH.Paste

  sCaption=obj.GetCaption.Name.v

  set obj=Nothing  

  oSH.Rows("1:1").Select

  oXL.Selection.Font.Bold = True  

  oSH.Cells.Select

  oXL.Selection.Columns.AutoFit 

  oSH.Range("A1").Select    

  oSH.Name=left(sCaption,30)   

  set oSH=Nothing 

next

set oXL=Nothing

end sub

i want to use your code in my array here i use manually insertion of objects id into aSheetobj array
but need array should contains all objects id dynamically like your code reading all objects of different sheets.

plz rply ASAP

thanks in advance.........