Excel Question

[EC1]

How can i change the rowheight off all cells?
(VFP7 SP1)

ExcelObject = CREATEOBJECT'Excel.Application')
*
WITH oExcelObject
.Application.Workbooks.Add
.APPLICATION.DisplayAlerts = 0
.Worksheets(3).DELETE
.Worksheets(2).DELETE
.APPLICATION.DisplayAlerts = 1
.Application.Worksheets(1).Activate
ENDWITH
oExcelSheet1 = oExcelObject.Worksheets(1)
oExcelSheet1.name='TITEL'
*
select table
go top
scan
...
endscan
*
oExcelObject.Application.Worksheets(1).Activate
oExcelSheet1.Range("A5&quot.Select
*
oExcelObject.Visible=.T.

Thanks

 

[Mike Gagnon]

EC1

This works for me:

o= CREATEOBJECT("excel.application")
ow = o.workbooks.add()
o.Cells.RowHeight = 52
o.visible = .t.

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[EC1]

Thanks a lot Mike, it's like you are sitting next to me!

 

[Mike Gagnon]

EC1

Thanks a lot Mike, it's like you are sitting next to me!

You're welcome.

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.