Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige