Excel 365 VBA: Befindet sich ein Bild IN einer Zelle?

{Boris} · 2024-03-16T14:48:14+00:00

Hallo zusammen, ich möchte per VBA herausfinden, ob sich in einer bestimmten Zelle ein Bild befindet (das geht ja seit Excel 365 - Bild in Zelle einfügen). ChatGPT hat aber mal wieder das Inder-Syndrom und erklärt mir wie selbstverständlich, dass ich die Eigenschaft HasPicture verwenden soll. Aber natürlich gibt es die nicht ;-) Wie prüfe ich also, ob sich z.B. in Zelle A1 ein Bild befindet? Die Antwort True / False reicht mir völlig aus. Danke vorab für Euren Input! Viele Grüße Boris

der copilot im Egde meint dazu Folgendes.

Sub BildInZellePrüfen()

    Dim ZielZelle As Range

    Dim Bild As Picture

    Dim BildBereich As Range

    Dim BildGefunden As Boolean

    

    ' Setzen Sie die Zielzelle, in der Sie das Bild überprüfen möchten

    Set ZielZelle = ActiveSheet.Range("A1")

    

    ' Durchsuchen Sie alle Bilder auf dem aktiven Blatt

    For Each Bild In ActiveSheet.Pictures

        ' Erstellen Sie einen Bereich, der das Bild umfasst

        Set BildBereich = Range(Bild.TopLeftCell, Bild.BottomRightCell)

        ' Überprüfen Sie, ob die Zielzelle Teil des Bildbereichs ist

        If Not Intersect(BildBereich, ZielZelle) Is Nothing Then

            BildGefunden = True

            Exit For

        End If

    Next Bild

    

    ' Zeigen Sie eine Meldung basierend auf dem Ergebnis an

    If BildGefunden Then

        MsgBox "In der Zelle " & ZielZelle.Address & " wurde ein Bild gefunden."

    Else

        MsgBox "In der Zelle " & ZielZelle.Address & " wurde kein Bild gefunden."

    End If

End Sub

DAS war eine schwere Geburt.
Die PlacePictureInCell-Funktionen sind weder ausgereift noch irgendwo dokumentiert.
Nach hundert Versuchen, wobei meistens Excel komplett abgestürzt ist (das tut es sehr gerne bei diesen Funktionen), hat es geklappt.
Der Makrorecorder war zwar etwas nützlich (da man selbst über Microsoft nicht herauskriegt, welche Befehle man benutzen muss), aber man kann das Makro nicht wirklich ein zweites mal zum Laufen bringen, da bei jedem Durchlauf die Bilder wieder einen anderen Namen bekommen (Wie wenn man ein Blatt löscht und sofort wieder ein Blatt hinzufügt - der neue Name ist nicht der gelöschte Name).
Das Bild (die Bilder) werden aus der Zelle (den Zellen) rausgelöst und wieder eingebunden. Zuvor wurden alle Bilder des Bereiches in eine Dictionary aufgelistet.
Nach dem Auslösen der Bilder wird geschaut, ob und welche Bilder NICHT auf der Liste stehen. Diese müssen die ausgelösten Bilder sein.
Bitte nicht über die vermeintlich überflüssigen Select wundern, Nach hunderten von Versuchen musste ich festsstellen, dass ich an bestimmten Stellen entweder einen Stop oder ein Select einbauen musste, da sonst Excel abstürzt (!). Seltsam, dass der Code mit Haltepunkt oder Stop-Befehl läuft (nach Klick auf "WEITER"), aber ohne das abstürzt.

https://www.herber.de/bbs/user/168063.xlsm

Excel 365 VBA: Befindet sich ein Bild IN einer Zelle?

Forumthread: Excel 365 VBA: Befindet sich ein Bild IN einer Zelle?

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Excel 365 VBA: Befindet sich ein Bild IN einer Zelle?

Forumthread: Excel 365 VBA: Befindet sich ein Bild IN einer Zelle?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread