Excel: picture

[Gintaras]

I think pictures don't belong to cells.

When you don't know how to automate Excel using QM, try to record in Excel what you want to do. Then either run the Excel macro from QM (es.ws.Application.Run("Macro1")), or paste the VB code in QM and make some changes.

Code:

Copy      Help

ExcelSheet es.Init
IDispatch ws=es.ws ;;use IDispatch because then is easier to make Excel macro work in QM

ws.Range("B2").Select
Excel.Picture p=ws.Pictures.Insert("c:\windows\soap bubbles.bmp")
ws.Rows("2:2").RowHeight = p.Height
ws.Columns("B:B").ColumnWidth = p.Width/5.3 ;;p.Width is in pixels whereas ColumnWidth is characters...


is it possible to create .xls

Code:

Copy      Help

Excel.Application a._create
Excel.Workbook b=a.Workbooks.Add()
ExcelSheet es.ws=b.Worksheets.Item(1)
es.SetCell("test value" 4 2)
str f.expandpath("$personal$\test45.xls")
del f; err
b.SaveAs(f @ @ @ @ @ 1)