Supportnet / Forum / Tabellenkalkulation
Makro Bilder einfügern Excel 2007
Frage
Hallo,
vielleicht kann mir jemand bei meinem Makro Problem helfen!
Folgendes Makro funktionierte unter Excel 2003 super und funktiert unter 2007 nur noch eingeschränkt.
In 2003 hat es mir pro Zeile das Bild wiedergegeben von dem in Spalte A der Name stand. In Excel 2007 gibt das Makro alle Bilder in der ersten Zeile wieder ! Was muss ich ändern damit es wieder funktioniert ?
Hier das Makro:
Option Explicit
Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
' Hier wird der Pfad angegeben in dem die Bilder liegen
Pfad = "H:\Bilder_auf_Server\grafik1\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
' Die Zahl in der folgenden Zeile steht für die Spalte in der das Bild wiedergegeben wird
Cells(Wiederholungen, 3).Activate
' Die Angabe in Anführungszeichen steht für die Dateiendung der Bilder
' Wenn in Spalte A nur die Artikelnr steht, steht in der Dateiendung der Rest des Dateinamens
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & "G1.jpg").Select
Next
End Sub