Diagramm in Excel aus WinCC mit VB

[Deyn]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hi

Ich benutze WinCC 6.2 SP2.

Ich möchte Messwerte aus Variablen nach Excel übertragen dort in eine Tabelle schreiben und auch ein Diagramm erstellen.
Wie man die Daten überträgt habe ich schon herausgefunden.
(WinCC Hilfe > Arbeiten mit WinCC > VBS zum Erstellen von Prozeduren... > Beispiele zu VBScript > Beispiele Allgemein > MS Automation Schnittstelle)
Die Tabelle wird erstellt und nun möchte ich aber nicht über ein Excel-Makro das Diagramm erstellen sondern auch über das VBScript aus WinCC.

Mit dem Befehl

objExcelApp.Charts.Add

wird auch ein Diagramm erstellt aber mehr auch nicht. Gibt es irgendwo eine Hilfe in der alle "Zusatzbefehle" (wie ".Charts" und ".Add") erklärt werden?
Brauche ja eigentlich nur noch die Bereichsangaben für die Werte für x- und y-Achse anzugeben.

Vielleicht hat das ja schon jemand so oder so ähnlich gemacht.

Gruß Deyn

 

[Deyn]

Hab mir gerade mal mit Excel ein Makro zum erstellen eines Diagramms aufgezeichnet aber wenn ich die Befehle in den VBS-Editor übertrage werden diese nicht ausgeführt.

ActiveChart.ChartType = xlXYScatterLinesNoMarkers
 
ActiveChart.SetSourceData Source =Sheets("Sheet1").Range("A2:A25,C2:C25")_
,PlotBy = xlColumns
 
ActiveChart.Location Where = xlLocationAsNewSheet
 
With  ActiveChart
 .HasTitle = False
 .Axes(xlCategory, xlPrimary).HasTitle = False
 .Axes(xlValue, xlPrimary).HasTitle = False
End With

Gruß Deyn

 

[Deyn]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ok habs nun soweit hinbekommen, dass die Daten ins Diagramm übernommen werden. Aber leider ist dass Diagramm noch vom falschen Typ und der lässt sich nicht ändern.

Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWB = objExcelApp.Workbooks.Open (datei)
Set objExcelCH = objExcelWB.Charts.Add()
objExcelCH.SeriesCollection(1).XValues = "=Daten!R2C1:R25C1"
objExcelCH.SeriesCollection(1).Values = "=Daten!R2C3:R25C3"
objExcelCH.Name = "Diagramm"
[COLOR=red]objExcelCH.ChartType = xlXYScatterLinesNoMarkers[/COLOR]

Der rote Code funktioniert komischerweise nicht obwohl ich nur Beispiele gefunden habe die genau diesen Code verwenden!?

Würde gern ein xy-Linien Diagramm haben. So ist es ein Balkendiagramm.

Vielleicht hat noch jemand eine Idee.

Gruß Deyn

 

[volker]

der code wird ausgeführt, wenn du den z.b. hinter einen command-button legst
automatisch ausführen bei start von excel kannst du im vba-editor unter diesearbeitsmappe mit

Private Sub Workbook_Open()
\'code
End Sub