Sub Diagrammm()
Range("AF2:AF25").Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range( _
"'Std HH_BH1_Prebond30ms'!$AF$2:$GA$25")
ActiveChart.Parent.Cut
ActiveSheet.Paste
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveSheet.Shapes("Diagramm 5").ScaleWidth 1.35625, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 5").ScaleHeight 1.6631944444, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveChart.ChartArea.Select
ActiveChart.Legend.Select
Selection.Top = 31.231
Selection.Height = 325.877
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "Hallo"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Hallo"
With Selection.Format.TextFrame2.TextRange.Characters(1, 5).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 5).Font
.BaselineOffset = 0
.Bold = msoFalse
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(89, 89, 89)
.Fill.Transparency = 0
.Fill.Solid
.Size = 14
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Spacing = 0
.Strike = msoNoStrike
End With
Range("AI28").Select
End Sub