Thema Datum  Von Nutzer Rating
Antwort
12.03.2017 13:34:19 VBAnfaenger
NotSolved
12.03.2017 14:27:53 Gast87174
NotSolved
12.03.2017 15:11:06 VBAnfaenger
NotSolved
12.03.2017 15:37:46 BigBen
NotSolved
12.03.2017 18:15:08 VBAnfaenger
NotSolved
13.03.2017 16:35:47 BigBen
*****
NotSolved
Rot ...von wegen "union"...
 13.03.2017 16:49:14 BigBen
*****
NotSolved
13.03.2017 17:15:43 VBAnfaenger
Solved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
13.03.2017 16:49:14		 Views:
668		 Rating:
     
Antwort:
  Ja
Thema:
...von wegen "union"...

Hallo,

im nachfolgenden Code entfältlt das Löschen eines bereits vorhandenen Chart-Objekts komplett. Bei Bedarf wird lediglich die Source angepasst:

Sub RunningCMD_Alternate()
    Dim sh As Worksheet
    Dim oSh As Shape
    Dim rng As Range
    Set sh = ActiveWorkbook.Worksheets(1)
    
    If sh.ChartObjects.Count = 0 Then
        Set oSh = sh.Shapes.AddChart(XlChartType.xl3DColumnClustered, 200, 130, 400, 300)
    Else
        Set oSh = sh.Shapes(1)
    End If
    
    Set rng = Union(sh.Range("g2", sh.Range("g2").End(xlDown)), sh.Range("i2", sh.Range("i2").End(xlDown)))
    oSh.Chart.SetSourceData Source:=rng
    
End Sub

Das Ergebnis ist identisch mit der Variante, in der das Chart-Objkt zuerst gelöscht und anschließend neu erstellt wird.

Voraussetzung für einen fehlerfreien Abluf ist allerdings, dass der Typ nicht vom Benutzer vereändert wird.

LG, BigBen

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
12.03.2017 13:34:19 VBAnfaenger
NotSolved
12.03.2017 14:27:53 Gast87174
NotSolved
12.03.2017 15:11:06 VBAnfaenger
NotSolved
12.03.2017 15:37:46 BigBen
NotSolved
12.03.2017 18:15:08 VBAnfaenger
NotSolved
13.03.2017 16:35:47 BigBen
*****
NotSolved
Rot ...von wegen "union"...
 13.03.2017 16:49:14 BigBen
*****
NotSolved
13.03.2017 17:15:43 VBAnfaenger
Solved