Dim Pfad As String, Wiederholungen As Long
Dim objShape As Object
On Error Resume Next
Pfad = ""
For Wiederholungen = 3 To Range("B600").End(xlUp).Row
Cells(Wiederholungen, 2).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 2)).Select
If TypeName(Selection) = "Picture" Then
Selection.Top = Range("B" & Wiederholungen).Top + 2
Selection.Left = Range("B" & Wiederholungen).Left + 2
Selection.Width = 55
Selection.Height = 52
End If
Next
End Sub
Funktioniert so weit wunderbar. Problem bei dem ganzen ist nur, dass ab Office 2007/2010 das Problem auftritt, dass die Bilder nicht mehr vollständig geladen werden, bzw. Excel komplett abstürzt. Die bilder kommen vom Server und die Verbidnung der Client zu diesem ist auch gewährleistet. Auch sind die Bilder nicht in einem sonderlich großem Format gespeichert. Durchscnittloich 50kb pro Bild. Vielleicht hat jemand eine ähnliche Erfahrung oder eine Ahnung an was dieses Problem liegen könnte.
Vielen Dank schonmal. ;-)