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

Ansicht des Beitrags:
Von:
Gast45688		 Datum:
08.09.2021 14:28:24		 Views:
436		 Rating:
     
Antwort:
 Nein
Thema:
[VBA] Edit and Move my diagram

Ich sehe keinen Sinn das in eine Prozedur auszulagern.

Option Explicit

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)
      
      With .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
        '.HasLegend = False
      End With
      
      .Width = 10
      .Height = 10
      .Top = Cells(i, 2).Top
      .Left = Cells(i, 2).Top
      
    End With
    
  Next

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
08.09.2021 14:16:28 Max
Solved
Blau [VBA] Edit and Move my diagram
08.09.2021 14:28:24 Gast45688
*****
Solved
08.09.2021 17:58:06 Max
Solved