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

Forumthread: Diagramm Namen zuweisen

Diagramm Namen zuweisen
07.03.2006 14:10:22
niko
Hallo
brauche eure Hilfe für dieses Problem. Ich erstelle mit folgendem Code ein Diagramm und verändere die Größe.
Wie kann ich dem Diagramm einen eindeutigen Namen zuweisen? So das ich es danach direkt ansprechen und ausdrucken kann.
mit dem Befehl .name = "Name des Diagramms" in der with Anweisung geht das nicht.
Danke für eure Hilfe
Niko
Set objChart = Application.Charts.Add
With objChart
'Diagramm-Typ und -Quelldatenbereich festlegen
.ChartType = xlLineMarkers
.SetSourceData Source:=rngData, PlotBy:=xlColumns
'Titel zuweisen
.HasTitle = True
.ChartTitle.Text = "On Stock Level plotted on Date from" & _
vbLf & "Site ID: " & sitenr1
'Diagramm auf Tabellenblatt einbetten
.Location Where:=xlLocationAsObject, name:=wksData.name
End With
'Objektverweis auf das eingebettete Diagramm setzen
Set objChartObj = wksData.ChartObjects(wksData.ChartObjects.Count)
'Position und Größe zuweisen
With objChartObj
.Left = 10
.Top = 50
.Width = 600
.Height = 400
End With
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm Namen zuweisen
07.03.2006 14:15:45
Bertram
Hallo Niko,
mit activesheet.chartobjects(Index deines Diagramms).name kannst du einen Namen zuweisen.
Gruß
Bertram
AW: Diagramm Namen zuweisen
07.03.2006 14:39:54
niko
Hi danke für die schelle antwort
aber es geht leider nicht.
Fehler 13
ist die meldung
was verstehst du genau unter Index deines Diagramms? den Namen den ich zuweisen will?
Sorry bin nicht so mit dem VBA Wortschatz vertraut.
ich stelle das diagramm nämlich nicht so da sondern in einem frame und dort in einer img box. aber das klappt auch trotz des fehlers. ich glaube dieser bezieht sich auf den eingefügten code : Worksheets(wksData).ChartObjects("Diagramm").name
oder hab ich in dem code einen fehler gemacht?
aber auf dem tabellenblatt ist das diagramm auch.
niko
Anzeige
AW: Diagramm Namen zuweisen
07.03.2006 14:54:07
Bertram
Wenn du schreibst ...ChartObjects("Diagramm").name, dann heißt dein Diagramm in dem Fall "Diagramm" und du sprichst es ja auch so an.
Mit Index meine ich die Nummer deines Diagramms. Wenn du noch keinen Namen hättest (hier: Diagramm), wäre es z.B. ChartObjects(3).
Mit Diagrammen hab ich aber derzeit auc Stress (siehe Thread weiter unten:-))
Hoffe geholfen zu haben, aber ich lass die Frage mal noch offen.
Gruß
Bertram
Anzeige
AW: Diagramm Namen zuweisen
07.03.2006 23:21:05
Rudi
Hi,
hab nicht getestet, ob der Code ok ist:
Set objChart = Application.Charts.Add
With objChart
'Diagramm-Typ und -Quelldatenbereich festlegen
.ChartType = xlLineMarkers
.SetSourceData Source:=rngData, PlotBy:=xlColumns
'Titel zuweisen
.HasTitle = True
.ChartTitle.Text = "On Stock Level plotted on Date from" & _
vbLf & "Site ID: " & sitenr1
'Diagramm auf Tabellenblatt einbetten
.Location Where:=xlLocationAsObject, name:=wksData.name
End With
'Objektverweis auf das eingebettete Diagramm setzen
Set objChartObj = wksData.ChartObjects(wksData.ChartObjects.Count)
'Position und Größe zuweisen
With objChartObj
.parent.name = "DeinDiagramm"
.Left = 10
.Top = 50
.Width = 600
.Height = 400
End With
mfg Rudi
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Diagramm Namen in Excel zuweisen


Schritt-für-Schritt-Anleitung

Um einem Diagramm in Excel einen Namen zuzuweisen, kannst Du die folgenden Schritte befolgen:

  1. Diagramm erstellen: Zuerst erstellst Du ein Diagramm mit VBA. Hier ist ein Beispielcode:

    Set objChart = Application.Charts.Add
    With objChart
       .ChartType = xlLineMarkers
       .SetSourceData Source:=rngData, PlotBy:=xlColumns
       .HasTitle = True
       .ChartTitle.Text = "On Stock Level plotted on Date from" & vbLf & "Site ID: " & sitenr1
       .Location Where:=xlLocationAsObject, Name:=wksData.Name
    End With
  2. Objektverweis setzen: Setze einen Objektverweis auf das neu erstellte Diagramm:

    Set objChartObj = wksData.ChartObjects(wksData.ChartObjects.Count)
  3. Diagramm umbenennen: Nun kannst Du das Diagramm benennen. Benutze dazu die .Name-Eigenschaft:

    objChartObj.Name = "DeinDiagramm"
  4. Position und Größe anpassen: Stelle die Position und Größe des Diagramms ein:

    With objChartObj
       .Left = 10
       .Top = 50
       .Width = 600
       .Height = 400
    End With

Mit diesen Schritten hast Du erfolgreich dem Diagramm einen Namen zugewiesen und es in Excel angepasst.


Häufige Fehler und Lösungen

  • Fehler 13: Dieser Fehler tritt auf, wenn ein Typkonflikt besteht. Stelle sicher, dass Du den richtigen Index oder Namen für das Diagramm verwendest. Wenn Du ChartObjects("Diagramm") benutzt, achte darauf, dass das Diagramm auch tatsächlich so benannt ist.

  • Diagramm wird nicht gefunden: Wenn Du ein Diagramm mit einem spezifischen Namen ansprechen möchtest, stelle sicher, dass das Diagramm auch auf dem Arbeitsblatt vorhanden ist. Überprüfe den Namen und die Schreibweise.


Alternative Methoden

Wenn Du das Diagramm nicht über VBA umbenennen möchtest, kannst Du dies auch manuell tun:

  1. Klicke mit der rechten Maustaste auf das Diagramm.
  2. Wähle „Diagramm umbenennen“ aus dem Kontextmenü.
  3. Gib den gewünschten Namen ein und bestätige.

Diese Methode ist besonders nützlich, wenn Du die Diagramme nicht über VBA verwalten möchtest.


Praktische Beispiele

Hier sind einige Beispiele, wie Du verschiedene Diagramme in Excel benennen kannst:

  • Linien-Diagramm:

    Set objChart = Application.Charts.Add
    objChart.Name = "Umsatz_2023"
  • Säulen-Diagramm:

    Set objChart = Application.Charts.Add
    objChart.Name = "Verkäufe_Q1"
  • Kreis-Diagramm:

    Set objChart = Application.Charts.Add
    objChart.Name = "Marktanteil"

Denke daran, dass die Namen der Diagramme eindeutig sein sollten, um Verwechslungen zu vermeiden.


Tipps für Profis

  • Verwende beschreibende Namen für Deine Diagramme, um sie später leicht identifizieren zu können. Zum Beispiel: Umsatz_2023_Q1 statt nur Diagramm1.

  • Nutze VBA-Funktionen wie Worksheet.ChartObjects und Chart.Name, um effizient mit mehreren Diagrammen zu arbeiten und diese zu benennen.

  • Wenn Du regelmäßig Diagramme erstellst, überlege, Vorlagen zu verwenden, um die Effizienz zu steigern.


FAQ: Häufige Fragen

1. Wie kann ich den Namen eines bereits bestehenden Diagramms ändern?
Du kannst den Namen eines bestehenden Diagramms mit folgendem VBA-Code ändern:

Worksheets("DeinBlatt").ChartObjects("AltesDiagramm").Name = "NeuesDiagramm"

2. Ist das Benennen von Diagrammen in allen Excel-Versionen gleich?
Ja, die Vorgehensweise zum Benennen von Diagrammen ist in den meisten Excel-Versionen ähnlich, solange Du mit VBA arbeitest. Die Benutzeroberfläche kann jedoch leicht variieren.

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