in einem Beitrag aus 2005 habe ich dieses Makro gefunden:
Sub BilderEinfuegen()
'by J.Ehrensberger
Dim fSearch As FileSearch
Dim strPath As String
Dim iCnt As Integer
Dim pic As Picture
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
' "alte" Bilder löschen
ActiveSheet.Pictures.Delete
'Pfad anpassen
strPath = "C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Eigene Bilder\" ' 0 Then
'gefundene Dateien durchlaufen
For iCnt = 1 To .FoundFiles.Count
'Bild einfügen
Set pic = ActiveSheet.Pictures.Insert(.FoundFiles(iCnt))
'Größe anpassen und ausrichten
With pic.ShapeRange
.LockAspectRatio = msoTrue
.Left = Cells(iCnt, 1).Left
.Height = Cells(iCnt, 1).Height
.Top = Cells(iCnt, 1).Top
End With
Cells(iCnt, 2) = .FoundFiles(iCnt)
Set pic = Nothing
Next
End If
End With
Set fSearch = Nothing
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub
Unter Office 2003 funktionierte es einwandfrei, unter 2013 - Office 365 kriege ich es nicht zum laufen.
Hat jemand eine Idee, woran das liegen kann und was ich evtl. anpassen muss? Bitte gebt mir ganz genaue Anweisungen, da ich wirklich kaum Kenntnisse habe.
Vielen Dank im Voraus für Eure Hilfe.
Gruß
Bobby2105