Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

grafiken löschen

Forumthread: grafiken löschen

grafiken löschen
26.09.2007 17:00:28
matthias
Hallo ihr da draußen,
wäre nett wenn ihr mir helfen könntet.
Ist es möglich alle Grafiken, wie zum Beispiel Autoformen, aus einem vorgegebenen Bereich zu löschen?
Dankeschön schon im Vorraus
Matthias

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: grafiken löschen
26.09.2007 17:02:00
matthias
zusatz: mit vba ändern

AW: grafiken löschen
26.09.2007 17:04:23
Beverly
Hi Matthias,

Sub all_shapes_loeschen()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub


________________________________________

Anzeige
AW: grafiken löschen
26.09.2007 17:07:50
matthias
Nein was ich meinte war nicht alle zu löschen sondern nur die in einem bestimmten bereich im worksheet.
Trotzdem danke

AW: grafiken löschen
26.09.2007 17:20:00
Beverly
Hi Mathias,
dann wäre das eine Möglichkeit

Sub loeschen()
Dim shShape As Shapes
Dim inShape As Integer
For inShape = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(inShape).Top > Range("B2").Top And ActiveSheet.Shapes(inShape). _
Top  Range("B2").Left _
And ActiveSheet.Shapes(inShape).Left


Bis später,
Karin

Anzeige
AW: grafiken löschen
26.09.2007 17:43:00
matthias
Vielen Dank Beverly aber das funktioniert irgendwie nicht.
Was sollte das programm denn tun?
ICH KAPIER DAS NICHT :(

AW: grafiken löschen
26.09.2007 17:52:00
Beverly
Hi Matthias,
der Code drchläuft alle Shapes der Tabelle und ermittelt, ob der odere Rand des Shapes im Bereich zwischen oberem Rand der 2. und der 26. Zeile sowie der linke Rand des Shapes im Bereich zwischen dem linken Rand der Spalte B und dem linken Rand der Spalte K liegen. Ist diese Bedingung erfüllt, wird das Shape gelöscht.
Bis später,
Karin

Anzeige
AW: grafiken löschen
26.09.2007 18:11:28
matthias
Danke jetzt funktsioniert es
;

Beliebteste Forumthreads (12 Monate)

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