Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Diagramm platzieren

    Betrifft: Diagramm platzieren von: MarkoHM
    Geschrieben am: 03.10.2003 13:36:46

    Hallo,
    ich habe ein Makro aufgezeichnet, das beim Anklicken einer Schaltfläche ein Diagramm erstellt. Der letzte Schritt bei der Aufzeichnung sollte das Diagramm an einer anderen Stelle platzieren. Und genau da kam die Fehlermeldung:
    Laufzeitfehler '-2147024809 (80070057)':
    Das Element mit dem angegebenen Namen wurde nicht gefunden.
    Hier mal das komplette Makro:
    (Der Debugger verwies auf die beiden Zeilen mit ActiveSheet.Shapes("Diagramm 1") u.s.w.)

    Sub Zeichnen()
        Range("A2:B10").Select
        Charts.Add
        ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
        ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A2:B10"), PlotBy _
            :=xlColumns
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
        With ActiveChart
            .HasTitle = True
            .ChartTitle.Characters.Text = "Schaubild"
            .Axes(xlCategory, xlPrimary).HasTitle = True
            .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x"
            .Axes(xlValue, xlPrimary).HasTitle = True
            .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y"
        End With
        ActiveChart.HasLegend = False
        ActiveSheet.Shapes("Diagramm 1").IncrementLeft 35.25
        ActiveSheet.Shapes("Diagramm 1").IncrementTop -93#
        ActiveWindow.Visible = False
        Windows("Mappe1").Activate
        Range("J5").Select
    End Sub
    

    Leider verstehe ich nichts von VBA und würde mich freuen, wenn jemand mir weiter helfen könnte.
    Mit freundlichem Gruß
    Marko
      


    Betrifft: AW: Diagramm platzieren von: GerdW
    Geschrieben am: 03.10.2003 14:03:45

    Bei jedem Durchlauf des Makros wird der Index des erzeugten Diagramms
    erhöht, daher stimmt die Bezeichnung Diagramm 1 dann nicht mehr.

    Gerd


      


    Betrifft: Antwort von Gerd von: MarkoHM
    Geschrieben am: 03.10.2003 14:26:12

    Hallo Gerd,
    danke erst mal. Kann man da noch was machen oder muss das Diagramm doch von hand nachträglich verschieben?
    MfG Marko


      


    Betrifft: AW: Antwort von Gerd von: GerdW
    Geschrieben am: 03.10.2003 17:58:07

    Du erzeugst ja bei jedem Makrodurchlauf ein neues Diagramm, ist das
    denn so gewollt? Wenn ja, wann ist denn da mal Schluß?
    Du kannst die Diagramme über den Index ansprechen.
    ActiveSheet.ChartObjects(1).Chart

    Gerd


     

    Beiträge aus den Excel-Beispielen zum Thema " Diagramm platzieren"