VBA X-Y Punktediagramm X-Y Achsen beschriften
22.02.2016 14:47:12
Alex
per VBA wird ein X-Y Punktediagramm einfügt.
Die Manipulation der Grafik klappt auch alles, nur ich kann die X-Y Achsen nicht beschriften.
Das hier aufgeführte Makro habe ich genau so aufgezeichnet, aber wenn ich es abspielen will, kommt der Fehler in der Zeile:
ActiveChart.Axes(xlValue).AxisTitle.Select
Warum?
Wie kann ich X-Y Achsen beschriften?
Sub Makro7()
' Makro7 Makro
ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select
ActiveChart.SetSourceData Source:=Range("PM!$D$2:$D$5")
ActiveChart.ApplyLayout (2)
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.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 = 10
.Italic = msoFalse
.Kerning = 12
.name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
End Sub
Gruß Alex
Anzeige