VBA löschen von Bildern

[StefanB]

Hallo @all,

Ich habe 2 Herausforderungen...
Die Erste:
folgender Code in meiner Userform löscht Zelleninhalte:

Code:

Private Sub cmd_Formular_löschen_Click()
    Range("D7:G143").Select
    Range("G143").Activate
    Selection.ClearContents
    Range("D22").Select
End Sub

das klappt auch alles wunderbar, ABER ich möchte auch das eingefügte Bilder mit gelöscht werden. Folgender Code ist für das einfügen von Bildern zuständig:

Code:

Private Sub cmd_Bild_9_quer_Click()
    Dim dat
    ChDrive "C:\"
    ChDir "C:\Users\******\Pictures\Bilder_*****_A_Telefon"
    dat = Application.GetOpenFilename("Bilddateien (*.jpg), *.jpg")
    If dat <> False Then
        With ActiveSheet.Shapes.AddPicture(dat, True, True, Range("A211").Offset(0, 0).Left, _
                Range("A211").Offset(0, 0).Top, 213, 160)
            .Name = "PIC " & Range("A211").Address(False, False)
        End With
    End If
End Sub

ich weiß nicht ob der für mein Problem überhaupt relevant ist ;)

Ziel soll es sein, die Bilder nicht per Einzelklick in der Tabelle zu löschen, sondern per Einmalklick auf einem Button in meiner Userform. Benötige ich dafür einen separaten Code oder muss der erste Code entsprechend umgeschrieben werden??

Die zweite Herausforderung könnt Ihr Euch in einem anderen Thema anschauen. Verlinkung folgt...   https://www.clever-excel-forum.de/thread-31648.html

[Case]

Hallo,

für deinen Löschcode der Zellinhalte könntest du schreiben:

Code:

Private Sub cmd_Formular_löschen_Click()
    Range("D7:G143").ClearContents
End Sub

Für die Bilder:

Code:

ActiveSheet.Pictures.Delete

Das löscht aber alle Bilder auf dem gerade aktiven Tabellenblatt. Wenn du das nicht willst, mache es über eine Schleife.

Für beide Codes gilt - sie löschen auf dem aktiven Tabellenblatt. Willst du das nicht, gib es mit an, statt "ActiveSheet" bzw. Keines.

[StefanB]

Hallo Case,

das ging ja fix!! Besten Dank - ich probiere es heute Abend gleich mal aus und melde mich 

[StefanB]

Soo....das klappt einwandfrei!!
Danke