Office: (Office 365) Pictures.Delete

Helfe beim Thema Pictures.Delete in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Zusammen, möchte gerne in der Tabelle1 alle Bilder in dem Bereich A2:M40 löschen. Steigt aber hier immer aus: ActiveSheet.Pictures.Delete... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von merkurmedium, 3. März 2021.

  1. Pictures.Delete


    Hallo Zusammen,

    möchte gerne in der Tabelle1 alle Bilder in dem Bereich A2:M40 löschen.
    Steigt aber hier immer aus:

    ActiveSheet.Pictures.Delete ("A2:M40")

    Wo liegt der Fehler?

    Danke Merkur
     
    merkurmedium, 3. März 2021
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    du musst in einer Schleife prüfen, ob das Bild im Bereich liegt:

    Code:
    Sub LoeschenImBereich()
        Dim picBild As Picture
        For Each picBild In ActiveSheet.Pictures
          If Not Intersect(picBild.TopLeftCell, Range("A2:M40")) Is Nothing Then
             If Not Intersect(picBild.BottomRightCell, Range("A2:M40")) Is Nothing Then
                picBild.Delete
             End If
          End If
        Next picBild
    End Sub
    


    Pictures.Delete GrußformelPictures.Delete Beverly's Excel - Inn
     
    Beverly, 3. März 2021
    #2
    1 Person gefällt das.
  3. Hallo Karin und danke für die Hilfe,

    allerdings ist auf dem Blatt ein CommandButton.
    Nun tritt ein Fehler auf. Siehe Bild.
    Ohne den Button läuft es ohne Probleme.

    Gruß Merkur
    Pictures.Delete upload_2021-3-3_11-52-20.png
     
    merkurmedium, 3. März 2021
    #3
  4. Beverly
    Beverly Erfahrener User

    Pictures.Delete

    Hi,

    was für ein CommandButton - Formular- oder AxtiveX-Steuerelement?


    Pictures.Delete GrußformelPictures.Delete Beverly's Excel - Inn
     
    Beverly, 3. März 2021
    #4
  5. ........ActiveX-Steuerelement ist es.
     
    merkurmedium, 3. März 2021
    #5
  6. Beverly
    Beverly Erfahrener User
    Hi,

    dann muss man den Objekttyp Shape verwenden und prüfen ob es ein Bild ist:

    Code:
    Sub LoeschenImBereich()
        Dim shaBild As Shape
        For Each shaBild In ActiveSheet.Shapes
          If Not Intersect(shaBild.TopLeftCell, Range("A2:M40")) Is Nothing Then
             If Not Intersect(shaBild.BottomRightCell, Range("A2:M40")) Is Nothing Then
                If shaBild.Type = msoPicture Then shaBild.Delete
             End If
          End If
        Next shaBild
    End Sub
    

    Pictures.Delete GrußformelPictures.Delete Beverly's Excel - Inn
     
    Beverly, 3. März 2021
    #6
    1 Person gefällt das.
  7. Danke schön.

    Funktioniert klasse
     
    merkurmedium, 4. März 2021
    #7
Thema:

Pictures.Delete

Die Seite wird geladen...
  1. Pictures.Delete - Similar Threads - Pictures Delete

  2. Wo finde ich Picture Manager?

    in Microsoft PowerPoint Tutorials
    Wo finde ich Picture Manager?: Wo finde ich Picture Manager? Picture Manager ist nicht in Office 2013 und höheren Versionen enthalten, Sie können es aber als eigenständige App installieren. Installieren von Picture Manager...
  3. Bearbeiten von Fotos ohne Picture Manager

    in Microsoft Word Tutorials
    Bearbeiten von Fotos ohne Picture Manager: Bearbeiten von Fotos ohne Picture Manager Word für Microsoft 365 Word 2019 Word 2016 Word 2013 Mehr... Weniger...
  4. Picture-Eigenschaft (Bild)

    in Microsoft Access Tutorials
    Picture-Eigenschaft (Bild): Picture-Eigenschaft (Bild) Access für Microsoft 365 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Mehr... Weniger...
  5. Profile pictures in teams (desktop version) won't update

    in Microsoft Teams Hilfe
    Profile pictures in teams (desktop version) won't update: Hi! I am currently working with Teams and I saw on my smartphone, that some of my Teams contacts updated their profile picture. But I couldn't see that on the desktop version. Where's my problem?...
  6. Herunterladen von Dateien

    in Sonstiges
    Herunterladen von Dateien: Hallo, ich habe eine Seite gefunden http://www.netanimations.net/chickens-chick-and-rooster-animated-gifs.htm Nun möchte ich gerne ein Bild und die Musik herunterladen. Leider bekomme ich das...
  7. Picture

    in Microsoft PowerPoint Hilfe
    Picture: ich möchte gerne eine ppt in zip umwandeln wie es bei pptx geht. Leider wird dort die Datei Picture angezeigt. Wie kann man nun diese Datei öffnen.
  8. VBA Bilder Einfügen ändern von 2003 auf 2010

    in Microsoft Excel Hilfe
    VBA Bilder Einfügen ändern von 2003 auf 2010: Hallo, nachdem sich ja einige Befehle geändert haben, hab ich mal versuch einen Code an die neue Version anzupassen, funktioniert aber leider nicht. Dieser Code funktioniert in beiden...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden