Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

DrawingObjects löschen

DrawingObjects löschen
19.07.2005 08:57:27
Heinz
Hallo Excelfreunde,
mit
DrawingObjects.Delete
kann ich alle Elemente auf einer Tabelle löschen.
Wie lösche ich z.B. nur jene, die sich im Bereich "A1:X10" befinden?
Range("A1:X10").DrawingObjects.Delete funktioniert nicht
Danke
Heinz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: DrawingObjects löschen
19.07.2005 09:47:27
Nepumuk
Servus Heinz,
so geht's:
Public Sub desd()
    Dim myShape As Shape
    For Each myShape In ActiveSheet.Shapes
        If Not Application.Intersect(myShape.OLEFormat.Object.TopLeftCell, _
            Range("A1:X10")) Is Nothing Then myShape.Delete
    Next
End Sub

Von den DrawingObjects solltest du dich langsam verabschieden. Die gibt's nur noch, um abwärtskompatibel zu sein.
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: DrawingObjects löschen
19.07.2005 11:28:36
Heinz
Hallo Nepumuk,
vielen Dank.
Also keine DrawingObjects mehr.
Gruß vom leider verregneten Wörthersee
Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige