Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: word art suchen und ggfs. löschen

word art suchen und ggfs. löschen
01.01.2016 10:52:38
Aston
Guten morgen zusammen...
ein gutes Neues wünsche ich Euch allen!
eine Frage: Kann ich auf einem Sheet via VBA prüfen, ob sich auf dem Sheet Wordarts befinden und wenn ja, diese löschen?
Ich habe das Problem, dass ich nur die löschen kann, von denen ich weiss, wie sie heissen.
Merci für die Tips.
LG aston

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: word art suchen und ggfs. löschen
01.01.2016 11:21:16
Hajo_Zi
Hallo Aston,
ich vermute mal das sind auch Bilder?
Alle Bilder löschen.
Option Explicit
Sub Loeschen()
Dim InI As Integer
With Worksheets("Tabelle1")
For InI = .Shapes.Count To 1 Step -1
.Shapes(InI).Delete
Next
End With
End Sub


Anzeige
AW: word art suchen und ggfs. löschen
01.01.2016 11:31:22
Aston
perfect! Merci

Alle löschen...
01.01.2016 11:44:00
Case
Hallo, :-)
wenn Du alle wegputzen willst, kannst Du auch mal folgendes probieren:
ActiveSheet.DrawingObjects.Delete
Oder eben mit Angabe des Tabellenblattes:
ThisWorkbook.Worksheets("Tabelle1").DrawingObjects.Delete
Servus
Case

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige