Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige