Microsoft Excel

Herbers Excel/VBA-Archiv

einzelnen Grafiken löschen

Betrifft: einzelnen Grafiken löschen von: Norbert
Geschrieben am: 26.08.2004 18:52:33

Hallo Leute,

in einer Tabelle sind viele Grafiken.
Ich möchte jedoch nur die Grafiken löschen, die vollständig
auf dem Bereich A1:E10 liegen.

Hat jemand eine Idee?

  


Betrifft: AW: einzelnen Grafiken löschen von: Norbert
Geschrieben am: 26.08.2004 20:17:33

HAT DENN NIEMAND EINE IDEE?


  


Betrifft: AW: einzelnen Grafiken löschen von: Udo
Geschrieben am: 26.08.2004 20:30:35

Was für'ne Grafik?

Udo


  


Betrifft: AW: einzelnen Grafiken löschen von: ransi
Geschrieben am: 26.08.2004 20:43:39

hallo norbert

so könnte das klappen:

Public
Sub Bild_weg()
Dim i As Integer
On Error Resume Next
For i = 1 To Worksheets("Tabelle1").Shapes.Count
If Shapes(i).Left + Shapes(i).Width < Range("a1:a10").Left + Range("a1").Width And _
    Shapes(i).Height - Shapes(i).Top < Range("a1:a10").Height _
Then Shapes(i).Delete
Next
End Sub


ransi


  


Betrifft: height+top von: ransi
Geschrieben am: 26.08.2004 20:50:50

hallo norbert

war ein fehler drin eben
so gehts:
Public
Sub weg()
Dim i As Integer
On Error Resume Next
For i = 1 To Worksheets("Tabelle1").Shapes.Count
If Shapes(i).Left + Shapes(i).Width < Range("a1:a10").Left + Range("a1").Width And _
    Shapes(i).Height + Shapes(i).Top < Range("a1:a10").Height _
Then Shapes(i).Delete
Next
End Sub

ransi


  


Betrifft: korrektur von: ransi
Geschrieben am: 26.08.2004 20:59:28


Public
Sub Bild_weg()
Dim i As Integer
On Error Resume Next
For i = 1 To Worksheets("Tabelle1").Shapes.Count
If Shapes(i).Left + Shapes(i).Width < Range("a1:e10").Left + Range("a1:e10").Width And _
    Shapes(i).Height + Shapes(i).Top < Range("a1:e10").Height _
Then Shapes(i).Delete
Next
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "einzelnen Grafiken löschen"