Makro rückgängig

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Julia,
Änderungen, die durch ein Makro durchgeführt wurden, können nicht automatisch "rückgängig" gemacht werden ! Diese einzelnen Bearbeitungsschritte "merkt" sich Excel nicht (anders als bei manuellen Änderungen) ! Daher funktioniert auch die Anweisung Application.Undo in diesem Fall nicht !
D.h. das musst Du entsprechend Deines Makros "Beschriftung" selbst programmieren !
Am einfachsten wäre es wohl, das vorhandene Chart VOR der Änderung zu kopieren und ggf. das geänderte Chart NACH der Änderung wieder zu löschen. Die notwendige Codezeile dafür lautet :
Für ein Diagrammobjekt auf einem Tabellenblatt :
ActiveSheet.Shapes("Diagramm 1").Duplicate
ODER : Für ein eigenes Diagrammblatt :
ActiveSheet.Copy after:=Sheets(ActiveSheet.Index)
Gruß, NoNet

Sub WriteLabels() Dim ws As Worksheet, wsC As Worksheet Dim cht As Chart, sc As SeriesCollection, pt As Point, ipt As Integer Dim rng As Range Set ws = Worksheets("Data") Set wsC = Worksheets("Chart") Set cht = wsC.ChartObjects(1).Chart Set sc = cht.SeriesCollection Application.ScreenUpdating = False Set rng = ws.Range("C5:C" & ws.Cells(ws.Rows.Count, 3).End(xlUp).Row) With sc(1) For ipt = 1 To .Points.Count With .Points(ipt) .HasDataLabel = True .DataLabel.Text = rng(ipt).Value2 'ws.Cells(ipt + 1, "C") End With Next ipt .DataLabels.Orientation = xlUpward End With wsC.Activate Application.ScreenUpdating = False End Sub

Hallo Julia,
evtl. hast Du es falsch verstanden : Aber man kann das nicht "rückgängig" machen, ansonsten müsste man sich den "VORHER-Zustand" des Diagramms irgendwie "merken" ! Du kannst allenfalls ein Makro erstellen, das die Beschriftungen grundsätzlich löscht (unabhängig davon, ob das Beschriften des Diagramms die letzte Makro-Aktion war oder nicht). Ist es DAS was Du möchtest ?
Dann sollte folgender Code helfen :


Sub EraseLabels()
Dim wsC As Worksheet
Dim cht As Chart, sc As SeriesCollection, pt As Point, ipt As Integer
Set wsC = Worksheets("Chart")
Set cht = wsC.ChartObjects(1).Chart
Set sc = cht.SeriesCollection
Application.ScreenUpdating = False
With sc(1)
For ipt = 1 To .Points.Count
With .Points(ipt)
.HasDataLabel = FALSE
End With
Next ipt
End With
wsC.Activate
Application.ScreenUpdating = False
End Sub

Habe das Makro mangels Daten und Diagramm jedoch NICHT getestet !
Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro rückgängig

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

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread