Bilder löschen

Forumthread: Bilder löschen

Bilder löschen

28.10.2002 09:14:18

Steffen

Ich habe ein Problem!
Ich Füge mit dieser Formel Bilder ein:
Range("C11").Select
ActiveSheet.Pictures.Insert( Phat\" & Cells(11, 3) & ".bmp"). _
Select
Bevor ich aber erneut ein Bild einfüge, muß ich die zuvor eingefügten Bilder wieder löschen.
Wie kann ich das machen?
mfg
Steffen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Bilder löschen

28.10.2002 10:47:05

jinx
Re: Bilder löschen

28.10.2002 13:31:40

Steffen
Re: Bilder löschen

28.10.2002 13:54:38

jinx
Re: Bilder löschen

28.10.2002 14:02:02

Steffen
Re: Bilder löschen

28.10.2002 17:41:29

jinx
Re: Bilder löschen

29.10.2002 07:48:35

Steffen

Re: Bilder löschen

28.10.2002 10:47:05

jinx

Moin, Steffen,

wenn es alle Bilder der Seite sind, etwa so:

Sub Löschen()
' Tabelle anpassen, löscht ALLE Bilder
For i = Sheets(1).Pictures.Count To 1 Step -1
Sheets(1).Pictures(i).Delete
Next
End Sub

Code eingefügt mit Syntaxhighlighter 1.15

cu
jinx

Re: Bilder löschen

28.10.2002 13:31:40

Steffen

Hallo jinx
Danke das Du dir so schnell über eine Lösung meines Problemes gedanken gemacht hast.
Ja es sind alle Bilder des Sheet's die gelöscht werden sollen.
Habe es mit dem Code von Dir Probiert, hatt aber nicht Funktioniert.
mfg
Steffen

Re: Bilder löschen

28.10.2002 13:54:38

jinx

Moin, Stffen,

ich habe es noch mehrfach (auch mit der Ersetzung durch ActiveSheet) überprüft - bei mir werden auf der betreffenden Seite alle Bilder gelöscht. Ich habe sowohl Bilder im *.jpg als auch im *.bmp-Format, Cliparts im *.wmf-Format auf der Seite gehabt: alle wurden durch den angegebenen Code entfernt.

cu
jinx

Re: Bilder löschen

28.10.2002 14:02:02

Steffen

Jetzt hatt es Funktioniert, habe wohl beim ersten mall einen kleinen Fehler gemacht.
Aber jetzt habe ich das Problem, daß auch eingefügte Command Button gelöscht werden.
kann mann das noch verhindern?
mfg
Steffen

Re: Bilder löschen

28.10.2002 17:41:29

jinx

Moin, Steffen,

sorry für die späte Antwort.

Entweder legst Du als Auslöser Rechtecke aus der Symbolleiste Zeichnen in das Blatt und weist diesen die Makros zu, oder Du verwendest den modifizierten Code:

Sub Löschen()
' Tabelle anpassen, löscht ALLE Bilder
' Nitte für die Schaltclächen den Code anpassen
For i = ActiveSheet.Pictures.Count To 1 Step -1
    If Left(ActiveSheet.Pictures(i).Name, 3) <> "Com" Then
        ActiveSheet.Pictures(i).Delete
    End If
Next
End Sub

Code eingefügt mit Syntaxhighlighter 1.15

cu
jinx

Re: Bilder löschen

29.10.2002 07:48:35

Steffen

Mit dem modifiziertem Code hatt es funktioniert.
Danke für die Hilfe
Steffen

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

Forumthread: Bilder löschen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread