Diagramm ändern durch UserForm
14.06.2005 17:04:54
Marc
Ich habe ein Diagramm, bei dem die Überschrift und die Achsenbeschriftungen mittels Eingabe in ein UserForm eingetragen werden sollen.
Geht das überhaubt?
Das einzige, und wahrscheinlich komplett falsche, was mir bisher eingefallen ist, ist folgendes Makro:
Sub Diagramm_ändern()
' Diagramm_ändern Makro
Sheets("Diagramm Actuals").Select
ActiveChart.ChartArea.Select
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = TextBox1
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = TextBox2_Change
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = TextBox3_Change
End With
End Sub
Die Textboxen sind meine Eingabewerte.
Vielen Dank im voraus...