Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen von Diagrammen

Löschen von Diagrammen
13.10.2006 10:02:38
Diagrammen
Hallo,
ich würde gern in einem Tabellenblatt alle Diagramme löschen und zwar nur diese. Die restlichen Zellen sollen erhalten bleiben. Gibt es einen Befehl der alle Diagramme selektiert oder eine Möglichkeit den Objektnamen der Diagramme festzulegen?
Dank im Voraus
Gerd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von Diagrammen
13.10.2006 11:56:50
Diagrammen
Hallo Gerd,

Sub test()
Dim wks As Worksheet
Dim chobj As ChartObject
For Each wks In Worksheets
For Each chobj In wks.ChartObjects
chobj.delete
Next
Next
End Sub

Gruß
Harry
AW: Löschen von Diagrammen
13.10.2006 12:01:24
Diagrammen
Hallo Gerd,
Makro-Lösungen

Sub DiagrammeLoeschen()
'Löscht alle Diagramme im aktiven Blatt
If MsgBox("Alle Diagramme löschen?", vbYesNo + vbQuestion) = vbYes Then
ActiveSheet.ChartObjects.Delete
End If
End Sub
Sub DiagrammeBenamen()
'Benamen aller Diagramme im aktiven Blatt
Dim Diag As ChartObject, Eingabe As String
For Each Diag In ActiveSheet.ChartObjects
Diag.TopLeftCell.Select
Diag.Activate
Eingabe = InputBox("Diagrammname:", "Diagramme benennen", Diag.Name)
If Eingabe <> "" Then
Diag.Name = Eingabe
End If
Next
End Sub

Gruß
Franz
Anzeige
AW: Löschen von Diagrammen
13.10.2006 14:27:17
Diagrammen
Vielen Dank euch beiden!
Funkt super!
Gruß
Gerd

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige