Thema Datum  Von Nutzer Rating
Antwort
Rot [VBA] Edit and Move my diagram
08.09.2021 14:16:28 Max
Solved
08.09.2021 14:28:24 Gast45688
*****
Solved
08.09.2021 17:58:06 Max
Solved

Ansicht des Beitrags:
Von:
Max		 Datum:
08.09.2021 14:16:28		 Views:
680		 Rating:
     
Antwort:
 Nein
Thema:
[VBA] Edit and Move my diagram 
Hallo,

weißt jemand wie ich die von mir erstellten Diagramme verschieben und das Aussehen ändern kann? Ich habe versucht das verschieben und editieren in dem Sub MoveAndEdit abzurufen, aber leider klappt das nicht. 

Wo ist mein Fehler?


Sub DiagrammErstellen()

Dim DL As Integer '#Zeilen
Dim i As Integer ' Zeilen Laufindex

Dim sheet As Worksheet

Set MyWorksheet = ThisWorkbook.Sheets("KPI")
Application.CutCopyMode = False

DL = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To DL

With MyWorksheet.Shapes.AddChart2(216, xlBarClustered).Chart

.ChartArea.ClearContents
.SeriesCollection.NewSeries

    With .FullSeriesCollection(1)

        .Name = "=Pivot! " & Cells(i, 1).Address
        .Values = "=Pivot!" & Range(Cells(i, 2), Cells(i, 3)).Address
        End With

Call MoveAndEdit
        
    '.HasLegend = False
    End With
Next i

End Sub

Sub MoveAndEdit()

With ActiveChart

.Width = 10
.Height = 10
.Top = Cells(i, 2).Top
.Left = Cells(i, 2).Top

End With

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot [VBA] Edit and Move my diagram
08.09.2021 14:16:28 Max
Solved
08.09.2021 14:28:24 Gast45688
*****
Solved
08.09.2021 17:58:06 Max
Solved