Halo Reth,
nur damit das abgeklärt ist:
Hatte deine Datei in irgendeiner Art und Weise mal Kontakt mit Excel gehabt?
Au weia - dachte, ich hätte alle Bilder aus früheren Versuchen entfernt.
Und wie kommt es das 4 Bilder IN DER DATEI eingebunden sind?
Mach mal folgendes.
- Schließe deine Datei, falls sie in deinem Office geladen ist.
- Rufe deinen Dateimanager auf.
- Suche deine Datei.
- Klicke sie an.
-Entzippe sie "nach .....". Nicht einfach entzippen sondern entzippen zu einem Ordner mit dem Dateinamen (hoffe Du verstehst was ich meine).
Wenn Du jetzt in den eben erstellten Ordner mit den Dateinamen wechselst, siehst Du dort diverse andere Ordner und einige Dateien mit der Endung ".xml".
Dich interessiert jetzt aber nur der Ordner "Pictures". Wechsle zu ihm, und Du wirst dort 4 Bilder sehen. Also die sind IN DER DATEI.
Was ich aber in meiner Antwort von Freitagmittag vergessen hatte zu erwähnen war, das bei der Löschaktion der Bilder auch Bilder dabei waren die nicht in der Datei gespeichert waren, sondern "frisch" aus dem Internet geladen wurden. Und diese Aktion, das Laden eines Bildes aus dem Intrnet, steht ja auch in deinem Makro. Schau selber mal danach.
Und nur zur Info.
Ich hatte in der Datei, die ich hier angehängt hatte, nix am Makro geändert.
Achtung!
Ich fange jetzt an zu määäckkern
Das hier, als ein Beispiel
hast Du nicht nur einmal drin.
Okay, es gibt Situationen wo man mit EXIT eie Sub oder Function
zwangsweise verlassen kann. Aber das ist nicht immer Ratsam, besonders dann, wenn man es auch einfacher gestalten kann um eine bestimmte Zeile nicht auszuführen.
In meiner eingebauten Online-Hilfe (F1) steht unter anderem zu EXIT folgendes.
Online-Hilfe (F1) hat geschrieben:
Eine Exit-Anweisung definiert nicht das Ende einer Struktur und ist nicht mit der End-Anweisung zu verwechseln.
Also EXIT ist
nicht das gleiche wie END. Ich wäre also extrem Vorsichtig mit dem Einsatz von EXIT um eine SUB oder FUNCTION zu beenden. Bei einer Schleife des Typs Do...Loop oder For...Next mag das noch etwas anderes sein, und dort habe ich auch schon so einige male EXIT angewendet (besonders bei FOR...), aber nicht um eine SUB zu verlassen.
Wenn ich mir so den gesamten Code anschaue, zweifle ich doch daran das Du ihn selbst erstellt hast. Kann mich aber auch täuschen, und Du hast das Recht es mir zu sagen wenn ich falsch liege.
Um jetzt aber auf dein anderes Problem zu kommen, das mit der "4 fachen Ausführung" (wofür Du auch einen neuen Thread eröffnet hast:
viewtopic.php?f=12&t=23286) zu tun hat, kann ich persönlich dir erstmal nur folgendes empfehlen.
- Bende deine SUBs ordentlich mit END SUB und erzwinge keinen unnötigen Notausgang mit EXIT.
- Hilft das nicht, oder kaum weiter, dann gehts mit dem folgendem weiter.
- Nimm eine neue und leere Datei.
- Konzentriere dich nur auf dies Problem.
- Nimm nur ein Tabellenblatt.
- Überleg dir was Du an Makro-Code alles brauchst um dein Problem nachzustellen.
- Welche von den beiden folgenden SUBs brauchst Du wirklich?
Sub OnSheetContentChange(e)
Sub OnSheetContentChangeOld(e)
- Lade keine Bilder ausm Internet, sondern nimm irgend etwas kleines von der Platte oder von deinem Office.
- Schmeiß alles raus was mit Größenbrechnung und Positionierung des Bildes zu tun hat einfach raus. Mit anderen Worten, stampfe den Code auf das wirklich nötige zu recht.
- Berichte wie weit Du gekommen bist, mit Beispieldatei.
Das wars dann erstmal.
Gruß
balu