Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Rückgabewert von VBA-Funktionen

Forumthread: Rückgabewert von VBA-Funktionen

Rückgabewert von VBA-Funktionen
20.12.2004 18:13:03
VBA-Funktionen
Hallo,
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rückgabewert von VBA-Funktionen
VBA-Funktionen
Hallo
damit kannst du jederzeit auf dein Diagramm zugreifen

Sub test2()
Dim myC As ChartObject
Set myC = ActiveSheet.ChartObjects("Diagramm 1")
With myC.Chart
.ChartTitle.Text = "Neuer Titel"
End With
End Sub

Gruss Rainer
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige