Makro aus Excel 2003 geht in Excel 2007 nicht - Bi
Joe
hab folgendes Mkro:
-----------------------------------------------
Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "I:\Allgemein\Organisationshandbuch\6 Marketing\Bilddatenbank\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 2).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 90
Selection.ShapeRange.IncrementLeft 0.75
Selection.ShapeRange.IncrementLeft 0.75
Selection.ShapeRange.IncrementTop 1.75
Next
End
Sub
Problem:
Makro lief in Excel 2003 bestens - jedes Zeile hatte ihr entsprechendes Bild
In Excel 2007 werden alle Bilder übereinander gestapelt (in Zeile 4 = 1. Zeile der Unterlage) _
und nicht in die entsprechenden Zeilen eingefügt.
Bitte um Lösungsvorschläge und sag schon jetzt --> Besten Dank
Joe