Interesting code,

but its facing syntax issues with Wincc runtime advanced in TIA portal

so do anyone knows the alternative commands in the TIA portal

for example:

sub onopen() --> not working

screen items --> not working 

Komi

Himichstein,

I've copied your code & done some modification and tested and found your needs okay.

Please refer to the attachment to see how it looks like.

The code after being partially modified is:
'===========================================================

Sub OnOpen()

'Info: Namen der Grafikobjekte im Bild

'Spreadsheet, ChartSpace

'Office WebKomponent Konstanten erzeugen

'Wird benötigt, da Namenskonstanten in VBS nicht vorhanden sind

'Quelle: http://msdn.microsoft.com/en-us/library/office/aa204193(v=office.11).aspx

Dim chConstants

'Objektreferenzen der Objekte im Bild

Dim oSheet 'Spreadsheet in die Werte zum Zeichnen des Diagramms zwischengespeichert werden

Dim ChartSpace1 'ChartSpace zur Ausgabe des Diagramms

'Objektreferenzen erzeugen

Set oSheet = ScreenItems("Spreadsheet")

Set ChartSpace1 = ScreenItems("ChartSpace")

'Konstanten des ChartSpace erzeugen

Set chConstants = ChartSpace1.Constants

ChartSpace1.Visible = 0 'Sichtbarkeit wird FALSE -> wird am Ende des Scripts TRUE

' Das Spreadsheet mit Daten befüllen

With oSheet

.Range("A1").Formula = "Laden aktiv"

.Range("A2").Formula = "Laden fertig"

.Range("A3").Formula = "Fehler"

.Range("A4").Formula = "Laden fertig und abgekühlt"

.Range("A5").Formula = "Betriebsbereit"

.Range("B1").Formula = HMIRuntime.Tags("Ladegeraet[0]_Zaehler_Minuten_DI_1_Laden_aktiv").Read

.Range("B2").Formula = HMIRuntime.Tags("Ladegeraet[0]_Zaehler_Minuten_DI_2_Laden_fertig").Read

.Range("B3").Formula = HMIRuntime.Tags("Ladegeraet[0]_Zaehler_Minuten_DI_3_Fehler").Read

.Range("B4").Formula = HMIRuntime.Tags("Ladegeraet[0]_Zaehler_Minuten_DI_4_Laden_fertig_und_abgekuehlt").Read

.Range("B5").Formula = HMIRuntime.Tags("Ladegeraet[0]_Zaehler_Minuten_DI_5_Betriebsbereit").Read

End With

' Erstelle ein Kreisdiagramm mit den Daten aus dem Spreadsheet

Dim oChart

With ChartSpace1

.Clear

.Refresh

.Interior.Color = RGB(211, 211, 211) 'Hintergrundfarbe auf Grau stellen

.DataSource = oSheet.Object

' Legende ein/aus schalten

.HasChartSpaceLegend = False

' Positioniere die Legende

'.ChartSpaceLegend.Position = chConstants.chLegendPositionTop

' Überschrift ein/aus schalten

.HasChartSpaceTitle = True

'.ChartSpaceTitle.Position = chConstants.chTitlePositionTop

' Überschrift festlegen

.ChartSpaceTitle.Caption = "Geräteauslastung"

'Werte des Spreadsheets an CharSpace übergeben

Set oChart = .Charts.Add

'******--Modification: (1)-- How to create a 3D pie chart.

oChart.Type = chConstants.chChartTypePie3D

oChart.SetData 1, 0, "A1:A5" 'Spalte der Tabelle, Startzeile, Länge

oChart.SetData 2, 0, "B1:B5" 'Spalte der Tabelle, Startzeile, Länge

'******--Modification: (2)-- How to insert the values, maybe also in % ?

oChart.SeriesCollection(0).DataLabelsCollection.Add

oChart.SeriesCollection(0).DataLabelsCollection(0).HasPercentage = True

oChart.SeriesCollection(0).DataLabelsCollection(0).HasValue = False 'True for display Value as well.

oChart.SeriesCollection(0).DataLabelsCollection(0).HasCategoryName= True

'******--Modification: (3)-- How to format the color of the values ?

oChart.SeriesCollection(0).DataLabelsCollection(0).Font.Color = "#00FF00"

oChart.SeriesCollection(0).DataLabelsCollection(0).Font.Name = "Arial"

oChart.SeriesCollection(0).DataLabelsCollection(0).Font.Size = 10

'******--Modification: (4)-- For formatting a particular label for a certain slice.

'For example:

oChart.SeriesCollection(0).DataLabelsCollection(0).Item(2).Font.Bold = True

oChart.SeriesCollection(0).DataLabelsCollection(0).Item(2).Font.Color = vbRed

oChart.SeriesCollection(0).DataLabelsCollection(0).Item(3).Font.Bold = True

oChart.SeriesCollection(0).DataLabelsCollection(0).Item(3).Font.Color = RGB(0,0,255)

'P.S.: Refer to http://msdn.microsoft.com/en-us/library/aa205371(v=office.11).aspx

End With

ChartSpace1.Visible = 1 'Sichtbarkeit auf TRUE

Dim i, c

Set c = ScreenItems("ChartSpace").Constants

With oChart.SeriesCollection(0)

For i = 0 To .points.count -1

.Points(i).interior.Color = Array( RGB(100,100,100), RGB(200,200,200), RGB(0,255,255), RGB(255,0,0), vbBlue) (i)

Next

End With

Set c = Nothing

End Sub

'===========================================================

My refered source is:
http://msdn.microsoft.com/en-us/library/aa205371(v=office.11).aspx

Before I tried so hard to find out something useful, too!

Best regard

------------------------------------------------------------------------------------------
Split from PIE Chart - change the colors of the single pieces.

Hi adham.nagy,

this is a VBA-Code (Visual Basic for Application) . This code is not executable in WinCC but in Microsoft Excel.

For WinCC you need VBS (Visual Basic Script) Code.