Projects/PositioningSystem Commit

- No smoothing for diagrams

LabVIEW -

r18:19

parent child

support/ReportTemplates/Macro.bas +4 0

              Sub AktualisiereXYDiagrammWiderstand()
                  Dim datenWs As Worksheet
                  Dim diagrammWs As Worksheet
                  Dim chartObj As ChartObject
                  Dim diagramm As Chart
                  Dim xRange As Range
                  Dim yRange As Range
                  Dim letzteSpalte As Long
                  Dim letzteZeile As Long
                  Dim i As Long
                  ' Arbeitsblätter definieren
                  Set datenWs = ThisWorkbook.Worksheets(1) ' Blatt mit den Daten
                  Set diagrammWs = ThisWorkbook.Worksheets(3) ' Blatt mit dem Diagramm
                  ' Diagramm definieren
                  Set chartObj = diagrammWs.ChartObjects(1) ' Diagrammname anpassen
                  Set diagramm = chartObj.Chart
                  ' Letzte Zeile und Spalte der Daten finden
                  letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row ' X-Werte in Spalte A
                  letzteSpalte = datenWs.Cells(3, datenWs.Columns.Count).End(xlToLeft).Column ' Y-Werte ab Spalte B
                  ' MsgBox letzteZeile, vbInformation
                  ' MsgBox letzteSpalte, vbInformation
                  ' X-Werte-Bereich definieren (fix in Spalte A, ab Zeile 3)
                  Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1)) ' Daten beginnen ab Zeile 3
                  ' Bestehende Datenreihen im Diagramm entfernen
                  Do While diagramm.SeriesCollection.Count > 0
                      diagramm.SeriesCollection(1).Delete
                  Loop
                  ' Neue Datenreihen hinzufügen
                  For i = 2 To letzteSpalte ' Y-Werte beginnen in Spalte B
                      Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i))
                      ' Neue Datenreihe hinzufügen
                      With diagramm.SeriesCollection.NewSeries
                          .Name = datenWs.Cells(2, i).Value ' Name der Reihe aus der Kopfzeile (Zeile 1)
                          .XValues = xRange
                          .Values = yRange
+             			.Smooth = False  ' Glätten ausschalten
                      End With
                  Next i
              End Sub
              Sub AktualisiereXYDiagrammKraft()
                  Dim datenWs As Worksheet
                  Dim diagrammWs As Worksheet
                  Dim chartObj As ChartObject
                  Dim diagramm As Chart
                  Dim xRange As Range
                  Dim yRange As Range
                  Dim letzteSpalte As Long
                  Dim letzteZeile As Long
                  Dim i As Long
                  ' Arbeitsblätter definieren
                  Set datenWs = ThisWorkbook.Worksheets(2) ' Blatt mit den Daten
                  Set diagrammWs = ThisWorkbook.Worksheets(4) ' Blatt mit dem Diagramm
                  ' Diagramm definieren
                  Set chartObj = diagrammWs.ChartObjects(1) ' Diagrammname anpassen
                  Set diagramm = chartObj.Chart
                  ' Letzte Zeile und Spalte der Daten finden
                  letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row ' X-Werte in Spalte A
                  letzteSpalte = datenWs.Cells(3, datenWs.Columns.Count).End(xlToLeft).Column ' Y-Werte ab Spalte B
                  'MsgBox letzteZeile, vbInformation
                  'MsgBox letzteSpalte, vbInformation
                  ' X-Werte-Bereich definieren (fix in Spalte A, ab Zeile 3)
                  Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1)) ' Daten beginnen ab Zeile 3
                  ' Bestehende Datenreihen im Diagramm entfernen
                  Do While diagramm.SeriesCollection.Count > 0
                      diagramm.SeriesCollection(1).Delete
                  Loop
                  ' Neue Datenreihen hinzufügen
                  For i = 2 To letzteSpalte ' Y-Werte beginnen in Spalte B
                      Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i))
                      ' Neue Datenreihe hinzufügen
                      With diagramm.SeriesCollection.NewSeries
                          .Name = datenWs.Cells(2, i).Value ' Name der Reihe aus der Kopfzeile (Zeile 1)
                          .XValues = xRange
                          .Values = yRange
+             			.Smooth = False  ' Glätten ausschalten
                      End With
                  Next i
              End Sub
              Sub AktualisiereXYDiagrammInkrementWiderstand()
                  Dim wsAktuell As Worksheet
                  Dim ws As Worksheet
                  Dim chartObj As ChartObject
                  Dim diagramm As Chart
                  Dim letzteZeile As Long
                  Dim letzteSpalte As Long
                  Dim datenBereichX As Range
                  Dim datenBereichY1 As Range
                  Dim datenReihe As Series
                  Dim diagrammTitel As String
                  Dim startZeile As Long
                  Dim blockAnzahl As Long
                  Dim blockStartSpalte As Long
                  Dim blockEndSpalte As Long
                  Dim blockIndex As Integer
                  ' Arbeitsblatt "Widerstandsdiagramm" festlegen
                  Set wsAktuell = ThisWorkbook.Worksheets("Widerstandsdiagramm")
                  ' Diagramm auf "Widerstandsdiagramm" suchen
                  If wsAktuell.ChartObjects.Count = 0 Then
                      MsgBox "Kein Diagramm auf 'Widerstandsdiagramm' gefunden.", vbExclamation
                      Exit Sub
                  End If
                  Set chartObj = wsAktuell.ChartObjects(1)
                  Set diagramm = chartObj.Chart
                  ' Vorhandene Datenreihen löschen
                  Do While diagramm.SeriesCollection.Count > 0
                      diagramm.SeriesCollection(1).Delete
                  Loop
                  ' Alle Blätter vor "Widerstandsdiagramm" durchlaufen
                  For Each ws In ThisWorkbook.Worksheets
                      If ws.Index < wsAktuell.Index Then
                          ' Letzte Zeile im Blatt ermitteln
                          letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
                          ' Prüfen, ob relevante Daten vorhanden sind
                          If letzteZeile >= 3 Then
                              ' Startzeile und Anzahl der Datenblöcke definieren
                              startZeile = 3
                              blockStartSpalte = 1 ' Erste Spalte für x
                              blockEndSpalte = 3   ' Spalten x, y1, y2
                              blockAnzahl = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column / 3 ' Anzahl Blöcke
                              ' Datenblöcke durchlaufen
                              For blockIndex = 0 To blockAnzahl - 1
                                  ' X-Werte und Y1-Werte für den aktuellen Block definieren
                                  With ws
                                      Set datenBereichX = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3), _
                                                                 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3)) ' Spalte X
                                      Set datenBereichY1 = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3 + 1), _
                                                                  .Cells(letzteZeile, blockStartSpalte + blockIndex * 3 + 1)) ' Spalte Y1
                                      ' Neue Datenreihe hinzufügen
                                      Set datenReihe = diagramm.SeriesCollection.NewSeries
                                      datenReihe.Values = datenBereichY1
                                      datenReihe.XValues = datenBereichX
                                      datenReihe.Name = ws.Name & " - Position " & (blockIndex + 1)
+             						datenReihe.Smooth = False
                                  End With
                              Next blockIndex
                          End If
                      End If
                  Next ws
              End Sub
              Sub AktualisiereXYDiagrammInkrementKraft()
                  Dim wsWiderstand As Worksheet
                  Dim wsKraft As Worksheet
                  Dim ws As Worksheet
                  Dim chartObj As ChartObject
                  Dim diagramm As Chart
                  Dim letzteZeile As Long
                  Dim datenBereichX As Range
                  Dim datenBereichY2 As Range
                  Dim datenReihe As Series
                  Dim diagrammTitel As String
                  Dim startZeile As Long
                  Dim blockAnzahl As Long
                  Dim blockStartSpalte As Long
                  Dim blockEndSpalte As Long
                  Dim blockIndex As Integer
                  ' Arbeitsblätter "Widerstandsdiagramm" und "Kraftdiagramm" festlegen
                  Set wsWiderstand = ThisWorkbook.Worksheets("Widerstandsdiagramm")
                  Set wsKraft = ThisWorkbook.Worksheets("Kraftdiagramm")
                  ' Diagramm auf "Kraftdiagramm" suchen
                  If wsKraft.ChartObjects.Count = 0 Then
                      MsgBox "Kein Diagramm auf 'Kraftdiagramm' gefunden.", vbExclamation
                      Exit Sub
                  End If
                  Set chartObj = wsKraft.ChartObjects(1)
                  Set diagramm = chartObj.Chart
                  ' Vorhandene Datenreihen löschen
                  Do While diagramm.SeriesCollection.Count > 0
                      diagramm.SeriesCollection(1).Delete
                  Loop
                  ' Alle Blätter vor "Widerstandsdiagramm" durchlaufen
                  For Each ws In ThisWorkbook.Worksheets
                      If ws.Index < wsWiderstand.Index Then
                          ' Letzte Zeile im Blatt ermitteln
                          letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
                          ' Prüfen, ob relevante Daten vorhanden sind
                          If letzteZeile >= 3 Then
                              ' Startzeile und Anzahl der Datenblöcke definieren
                              startZeile = 3
                              blockStartSpalte = 1 ' Erste Spalte für x
                              blockEndSpalte = 3   ' Spalten x, y1, y2
                              blockAnzahl = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column / 3 ' Anzahl Blöcke
                              ' Datenblöcke durchlaufen
                              For blockIndex = 0 To blockAnzahl - 1
                                  ' X-Werte und Y2-Werte für den aktuellen Block definieren
                                  With ws
                                      Set datenBereichX = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3), _
                                                                 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3)) ' Spalte X
                                      Set datenBereichY2 = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3 + 2), _
                                                                  .Cells(letzteZeile, blockStartSpalte + blockIndex * 3 + 2)) ' Spalte Y2
                                      ' Neue Datenreihe hinzufügen
                                      Set datenReihe = diagramm.SeriesCollection.NewSeries
                                      datenReihe.Values = datenBereichY2
                                      datenReihe.XValues = datenBereichX
                                      datenReihe.Name = ws.Name & " - Position " & (blockIndex + 1)
+             						datenReihe.Smooth = False
                                  End With
                              Next blockIndex
                          End If
                      End If
                  Next ws
              End Sub

support/ReportTemplates/StandardTemplate_Common.xlsx 0 0

NO CONTENT: modified file

General Comments 0

Write
Preview

You need to be logged in to leave comments. Login now

No TODOs yet

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages