Rückgabewert von VBA-Funktionen
20.12.2004 18:13:03
VBA-Funktionen
ich habe eine Frage bezüglich VBA-Funktionen und Rückgabewerten.
Ich lasse von meiner selbstgeschriebenen Funktion
Public Function createChart(ByVal xlRange As Range, xlTitle As String) As Chart
jeweils ein Chart erstellen (insgesamt werden 5 Charts erzeugt). Wie kann ich eine Referenz auf die Objekte in der aufrufenden Sub-Methode speichern?
Mein Ansatz war der folgende:
Dim chart1 As Chart
Set chart1 = createChart(xlRange, "TriTraTrullala")
/* analog chart2-chart5, halt mir anderen Parametern */
Leider funktioniert ein Modifizieren des Objekts à la
chart1.ChartTitle.Characters.Text = "Hotzenplotz"
im Anschluss nicht. Ich kann es nur direkt nach dem Erstellen per
ActiveChart.ChartTitle.Select
Selection.Characters.Text = "Hotzenplotz"
verändern, ich möchte aber auch ganz am Ende noch direkten Zugriff auf alle erstellten Charts haben. Wie kann ich einen dauerhaften Zugriff über eigene Objekte chart1-chart5 bekommen bzw. was mache ich falsch?
Herzlichen Dank für eure Mithilfe,
Heinz