Achsen Beschriftung
28.12.2013 11:03:46
Steve
Ich habe das Problem das ich gerne die x Achsenbeschriftung in der mitte haben möchte. Da sie von 2 TextBoxen per VBA gemacht wird kann sich die Länge ändern und daher wollte ich versuchen das Feld zu zentrieren.
Ich habe, um das Textfeld zu generieren, die Aufzeichnungsfunktion gebraucht und dan den Code ein wenig Abgeändert.
Das ist das Resultat:
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = TextBox2.Text & " _
" & TextBox3.Value
Selection.Format.TextFrame2.TextRange.Characters.Text = TextBox2.Text & " _
" & TextBox3.Value
With Selection.Format.TextFrame2.TextRange.Characters(1, 7).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 7).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 = 14
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
ActiveChart.Axes(xlCategory).AxisTitle.Select
Selection.Top = 975
Selection.Alignment = AlignCenter
ActiveChart.ChartArea.Select
Ich hatte mir gedacht das mit:
ActiveChart.Axes(xlCategory).AxisTitle.Select
Selection.Top = 975
Selection.Alignment = AlignCenter
Die Höhe und das Zentrieren machen kann, aber das Zentrieren geht nicht so.
Hatt jemand eine Idee?
Besten Dank und guten Rutsch ins neue Jahr an alle.
Steve