Creating Excel Charts

[taurus905]

Hello,

I sent a few PMs to people who have graciously helped me in the past, and then decided it would be better to post my question here in order to share the answers with the entire forum.

I did search on excel charts and only ran across a few links that were pretty old. So if anyone has any updated information to share, I would greatly appreciate it.

As the title states, I am trying to create an excel chart using AutoIt.

Thank you.

taurus905

[James]

_ExcelCOM maybe?

[xroot]

Hi,

I was playing around with excel charts and here is what I

came up with.

Hope you can get some ideas from it.

Good Luck.

$EA=ObjCreate("Excel.Application")

$EA.Workbooks.Add

$EA.Worksheets(3).Delete

$EA.Worksheets(2).Delete

For $I=1 To 20

For $J=1 To 20

$EA.Cells($I,$J).Value=Random(1,20,1)

Next

Next

$EA.Range("A1:T20").Select

$EA.Charts.Add()

$EA.ActiveChart.HasTitle=TRUE

$EA.ActiveChart.ChartTitle.Characters.Text="20 by 20 Random Numbers 1 to 20"

$EA.ActiveChart.ChartType=62

$EA.Visible = True

msgbox(4096,"Excel Chart","Click OK When Done...")

$EA.Quit

$Tit="Microsoft Excel"

Opt("WinTitleMatchMode",3)

WinWait($Tit)

ControlClick($Tit,"","[iD:7]")

[Locodarwin]

Charts are a little involved and I haven't gotten around to wrapping them into a UDF. I'll get to it at some point.

In the meantime, you can use Randallc's _ExcelCOM, which facilitates charting.

As well, if you record a macro of you making a chart, and paste the resulting VBA code here, I can pretty quickly convert it into AutoIt code. If nothing else, you can use it as starting point for programming your own charts.

-S

[Mesarim]

Charts are a little involved and I haven't gotten around to wrapping them into a UDF. I'll get to it at some point.

In the meantime, you can use Randallc's _ExcelCOM, which facilitates charting.

As well, if you record a macro of you making a chart, and paste the resulting VBA code here, I can pretty quickly convert it into AutoIt code. If nothing else, you can use it as starting point for programming your own charts.

-S

Hi Locodarwin,

I'm currently working on exactly that, I'm trying to figure out the whole charts in excel, and I'll paste the code in here, if you can be so kind to convert it, it would be great.

Sub Macro2()

'

' Macro2 Macro

' Macro recorded 03/02/2009 by Michael Roll

'

'

Charts.Add

ActiveChart.ChartType = xlLineMarkers

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B2:P17"), PlotBy _

:=xlRows

ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

With ActiveChart

.HasTitle = False

.Axes(xlCategory, xlPrimary).HasTitle = False

.Axes(xlValue, xlPrimary).HasTitle = False

End With

ActiveSheet.Shapes("Chart 2").IncrementLeft -261.75

ActiveSheet.Shapes("Chart 2").IncrementTop 62.25

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B2:B17,D2:P17"), _

PlotBy:=xlRows

End Sub