Anzeige
Archiv - Navigation
1900to1904
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
Inhaltsverzeichnis

Bild/Grafik in versch. Blättern löschen

Bild/Grafik in versch. Blättern löschen
11.10.2022 09:26:53
Michael
Guten Morgen Zusammen,
ich möchte aus allen Blättern (ca. 150 Stk.) in Zelle H44 den kompletten Inhalt (Grafik 53/Gerader Verbinder 54) löschen.
Danke für Eure Unterstützung vorab.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild/Grafik in versch. Blättern löschen
11.10.2022 10:23:29
volti
Hallo Michael,
hier ein möglicher Ansatz...
Code:


Sub Test() Dim oObj As Object, WSh As Worksheet For Each WSh In ThisWorkbook.Worksheets For Each oObj In WSh.Shapes With WSh.Range("H44") If oObj.Top >= .Top And oObj.Top < (.Top + .Height) And _ oObj.Left >= .Left And oObj.Left < (.Left + .Width) Then oObj.Delete End If End With Next oObj Next WSh End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Bild/Grafik in versch. Blättern löschen
11.10.2022 10:52:41
Michael
Super, vielen Dank für Eure Unterstützung, hat beides super funktioniert.
Wünsche Euch noch einen schönen Tag.
VG Michael
AW: Bitte sehr & danke für die Rückmeldung! owt
11.10.2022 11:03:58
Herbert_Grom
,,,
AW: Bild/Grafik in versch. Blättern löschen
11.10.2022 10:36:08
Herbert_Grom
Hallo Michael,
probiers mal damit:

Option Explicit
Sub GrafikenLoeschen()
Dim lWksCount&
For lWksCount = 1 To Sheets.Count
With Sheets(lWksCount)
.Shapes.Range(Array("Grafik 53")).Delete
.Shapes.Range(Array("Gerader Verbinder 54")).Delete
End With
Next lWksCount
End Sub
Servus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige