AW: Diagramm erzeugen
29.02.2012 08:25:11
Benni
Hallo Beverly,
komme gerade an meinem Ansatz nicht weiter! Vielleicht findest Du meinen Fehler in meinem Makro.
Vielen Dank
Benni
Sub Diagramm_in_Sheet()
Dim x As Integer
For x = 0 To Worksheets("VA0850-10_Auswertung.xlsm").Items.Count - 1
Worksheets("VA0850-10_Auswertung.xlsm").Items(x).Select
Range("M6").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveSheet.Shapes("Diagramm 1").IncrementLeft 273
ActiveSheet.Shapes("Diagramm 1").IncrementTop -156
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""unbearbeitet"""
ActiveChart.SeriesCollection(1).XValues = Range("K6:K3005")
ActiveChart.SeriesCollection(1).Values = Range("J6:J3005")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""bearbeitet"""
ActiveChart.SeriesCollection(2).XValues = Range("S6:S3005")
ActiveChart.SeriesCollection(2).Values = Range("R6:R3005")
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Kraft [kN]"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Kraft [kN]"
With Selection.Format.TextFrame2.TextRange.Characters(1, 10).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 10).Font
.BaselineOffset = 0
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
.Size = 10
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Weg [mm]"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Weg [mm]"
With Selection.Format.TextFrame2.TextRange.Characters(1, 8).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 8).Font
.BaselineOffset = 0
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
.Size = 10
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
Range("N27").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SetElement (msoElementLegendBottom)
Next
End Sub