Office: (Office 2010) ActiveSheet.Pictures.Insert in Excel2010 nur Verknüpfung

Hallo,

Ich füge über ein Makro jede Menge Bilder in eine Excel-Liste ein.
Ich nutze dazu ActiveSheet.Pictures.Insert ().
Seit dem ich Excel 2010 nutze, sind die Bilder nur noch als Verknüpfung eingefügt. Aber diese Mappen werden zu Messen benötigt.
Sobald der Netzwerkpfad zu den Bilder nicht mehr da ist, werden Fehlermeldungen angezeigt.
In Excel 2007 funktioniert es, ohne Probleme.

Hat jemand von Euch das schon mal erlebt? und event. einen Lösungsansatz.

Ich danke für jeden Tipp.

LG Frank

:)

 

Hallo Frank,

von dem Problem habe ich bereits mehrfach gehört. Meist waren in diesem Zusammenhang die Bilder auf Netzlaufwerken.
Bringt es ggf. Abhilfe, wenn die Dateien lokal auf der Festplatte liegen?

Eine mögliche Lösung scheint dies zu sein (ungetestet von mir!):
http://answers.microsoft.com/en-us/o...3-d18a7a33beae

Grüße
EarlFred

 

Hallo EarlFred,

Ja die Bilder liegen bei uns in der Firma im Netzwerk. Local geht leider nicht, da es sich um ca. 12000 Bilder handelt, auf die jeder zugreifen muss.

Werd wohl morgen mal auf die schnelle auf Office 2003 zurückgreifen, damit die Chef's das mit auf die Messe nehemn können.

Danke, für den Link -- ich schau es mir morgen einmal an -- und gebe dann Feedback.

Grüße Frank

 

Hallo an alle,

Habe nun nach einigen basteln, die Lösung gefunden. Die Bilder werden nun in der Mappe in Excel 2010 mitgespeichert.

Haben den alten Befehl:

Code:

durch diesen ausgetauscht:

Code:

poss gibt die Position links, und posz oben an.
99,74 ist die Bildgröße --> welche sich dann aber noch bearbeiten lässt.
False -- nicht als Link speichern
True -- in Mappe speichern

Ich danke EarlFred für den Denkanstoss.

Grüße Frank

 

Hallo gonzo1970,

dein Code ist klasse, allerdings habe ich ein Problem mit "poss gibt die Position links, und posz oben an".

Excel packt mir alle Bilder oben links übereinander - das ist jedoch nicht so hilfreich.

Ich möchte in Spalte C das Bild mit dem Code aus Spalte A je Zeile einfügen. (Spalte A ist der Dateiname, der aus einem Pfad gezogen und in der Spalte C eingefügt wird)
Hast du eine Idee wie ich das abbilden kann?

Vielen Dank
Moni

 

Hallo,

ob Gonzo nach 7 Jahren noch antwortet...?...*rolleyes.gif* ...Mach in Zukunft besser einen neuen Thread auf...*cool.gif*

Probiers mal mit einer Schleife:

Gruß, Muller

 

Huhu Muller,

danke für die Hilfe. Leider funzt es aber noch nicht.

Mein aktueller Code ist der hier:

Sub Bilderimport()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "L:Bilder"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Next
End Sub


Der funktioniert soweit einwandfrei nur, dass halt die Bilder über Links erscheinen und nicht für dauerhaft übernommen werden.

Ich habe mittlerweile unzählige Varianten und Codes getestet und keiner passt so recht. Hast du vielleicht noch eine Idee?

Viele Grüße *grinangel
Moni

 

Hallo,

nee der is nix, das Select-Gewürge muß raus und mit Insert geht's nicht, wurde ja oben geschr.*cool.gif* , nimm meinen und bau einfach den Pfad ein, eingefügt wird jetzt wie Du wolltest in Sp. C, sonst muß das Offset raus:

....und nich erst in 8 Jahren Rückmeldung geben...*grins

Gruß, Muller

 

Hey ho *grins

mega cool. Ich habe noch eine Zeile in deinem Code ergänzt:

On Error Resume Next

und schon hat es perfekt funktioniert *biggrinlove

... da die Berechnung zum Glück keine 8 Jahre gedauert hat kommt das Feedback schon heute.

Vielen Dank
Groß Moni

 

Hallo Moni,

das ist ja schonmal prima, das müsste aber auch ohne On Error Resume Next hinhauen, da ist noch irgendwo bei Dir der Wurm drin, aber ok...*cool.gif*

...Welche Fehlermeldung kommt denn da sonst bei Dir...*confused.gif* ??

Gruß, Muller

 

Huhu Muller,

als Fehlermeldung bekomme ich:

Laufzeitfehler '1004':
Die angegebene Datei wurde nicht gefunden.

Ist ein Bild in der Quelle nicht verfügbar macht er nicht weiter und schreibt diesen Fehler.
Mit dem anderen Befehl geht er weiter bis ans Ende der Liste, auch wenn mal keine Bilder vorhanden sind.

Gruß Moni

 

Hallo Moni,

ja hab mir schon sowas gedacht ist aber mit On Error immer ein bißchen unsauber, besser mit der Dir-Funktion den Fehler gar nicht erst entstehenlassen*cool.gif* :

Gruß, Muller

 

Huhu,

ah ja - das ist ja mega und funktioniert sogar *winner

Vielen lieben Dank *happy

Gruß Moni