Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

OLE and Excel Animation Example

Keywords: 	   ole excel

zobjXL=ObjectOpen("Excel.Application")
zWorkbooks=zobjXL.Workbooks
zWorkbooks.add 

zCells1=zobjXL.Cells(1,1)
zCells1.Value=5

zCells2=zobjXL.Cells(1,2)
zCells2.Value=10
zCells3=zobjXL.Cells(1,3)
zCells3.Value=15

zRange=zobjXL.Range("A1:C1")
zRange.Select

zCharts = zobjXL.Charts
zobjXLchart = zCharts.Add()
zobjXL.Visible = @true
zobjXLchart.Type = -4100     

For intRotate = 5 To 180 by 5
    zobjXLchart.Rotation = intRotate
Next

For intRotate = 175 To 0 by -5
    zobjXLchart.Rotation = intRotate
Next

Article ID:   W13668

Filename:   OLE and Excel Animation Example.txt