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

Linien und Pfeile löschen, Buttons nicht

Forumthread: Linien und Pfeile löschen, Buttons nicht

Linien und Pfeile löschen, Buttons nicht
02.04.2006 19:54:34
Emil
Hallo,
wie kann ich alle Linien und Pfeile auf meinem Arbeitsblatt löschen. Habe in der Recherche folgendes gefunden:
activesheet.shapes.selectall
selection.delete
das löscht aber auch meine command-buttons und das will ich nicht.
Viele Grüße
Emil
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Linien und Pfeile löschen, Buttons nicht
02.04.2006 20:04:37
K.Rola
Hallo,
eh wir lange rätseln, welcher Shapetype das ist, lad mal ein knappes Beispiel hoch.
Gruß K.Rola
AW: Linien und Pfeile löschen, Buttons nicht
02.04.2006 20:58:29
Emil
Hallo K.Rola,
vielen Dank für deine Antwort. Hier ist das Beispiel
Gruß Emil
https://www.herber.de/bbs/user/32550.xls
Anzeige
AW: Linien und Pfeile löschen, Buttons nicht
02.04.2006 21:37:17
K.Rola
Hallo,
Option Explicit

Sub Linien_wech()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.Type = 9 And Sh.AutoShapeType = -2 Then Sh.Delete
Next
End Sub

Gruß K.Rola
AW: Linien und Pfeile löschen, Buttons nicht
02.04.2006 21:34:12
chris
Hallo Emil,
das geht in deinem Beispiel so.

Sub neu()
For Each cb In ActiveSheet.Shapes
If cb.Type = 9 Then
cb.Delete
End If
Next
End Sub

Hoffe ich konnte helfen.
gruß Chris
Anzeige
AW: Linien und Pfeile löschen, Buttons nicht
03.04.2006 08:09:38
Emil
Hallo K.Rola, hallo Chris,
vielen Dank für Eure Antworten. Das hat sehr gut geklappt.
Gruß Emil
;

Beliebteste Forumthreads (12 Monate)

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