obj excel charts

[silvanr]

I would like to write a Script that this diagram creates automatically.

This is a VBA Macro:

Sub char()

Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("B1:B5"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=Tabelle2!R1C1:R5C1"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveChart.HasLegend = False
    ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False
End Sub

I have already this in AutoIt:

;Create obj
    $MyObject = ObjCreate("Excel.Application"); Create an Excel Object  
    if @error then 
        Msgbox (0,"Excel Error:","Error creating Excel object!")
        exit(1)
    endif   
    if Not IsObj($MyObject) then 
        Msgbox (16,"Excel Error:","Excel obj wurde nicht richtig erstellt")
        exit
    endif
    
    $MyObject.Visible = 1
    $MyObject.workbooks.add

    $MyObject.Sheets("Tabelle2").Select
    $myObject.Charts.add
    WITH $MyObject.ActiveChart
        .ChartType = 51;xlColumnClustered
        
    ENDWITH


$MyObject = 0

How can I translate this:

ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("B1:B5"), PlotBy :=xlColumns

I don't know, what I with ",:" can make.

Can someone help me? thx

[silvanr]

is it not possible?

[DaleHohm]

All of the things that starrt with xl are Enum constansts and are not automatically available to AutoIt.

Check out this post for a method of extracting Enums and using them in AutoIt.

Dale

[silvanr]

I know that all of the things that starrt with xl are Enum constansts.

thx

I successfully made it :-)

...
    $MyObject.Sheets("Tabelle1").Select
    $myObject.Charts.add
    WITH $MyObject.ActiveChart
        .ChartType = 51;xlColumnClustered
        .SetSourceData($MyObject.Sheets("Tabelle2").Range("B1:B5"))
        .SeriesCollection(1).XValues = "=Tabelle2!Z1S1:Z5S1"
        .ApplyDataLabels(2, False);Wert oben anzeigen
        .HasLegend = False
        .Location (2, "Tabelle1"); Wo soll die Charts eingefügt werden

    ENDWITH
    $myObject.ActiveSheet.Shapes("Diagramm 1").Left = 0
    $myObject.ActiveSheet.Shapes("Diagramm 1").Top = 0
...

[randallc]

Hey, I like to see the Excel COM functions implemented.

How did you get the syntax for AutoIT to do this? [Help file only?]

cf my ExcelCom UDF in my link in signature; can you improve on it?

Best, Randall