Hallo an alle,
Windows 7, Excel2013
Ich möchte von einem Ordner, in welchem sich immer nur ein Bild befindet, dieses in ein Excelblatt einfügen.
Im laufe der Arbeit wird das Bild immer wieder erneuert, und somit hat das Bild immer wieder eine andere Nummer.
Ich möchte daher beim einfügen in das Excelblatt für die Bildnummer einen Platzhalter wie *.*.jpg verwenden, da ich die momentane Nummer des Bildes nicht weiß.
Das mit dem *.* funktioniert aber nicht.
Kann mir jemand helfen?
Vielen Dank schon im Vorraus,
Freind
Sub bild_einfuegen()
Dim strPfad As String
Dim strDatnam As String
'Pfad ggf. anpassen
strPfad = "C:\test\"
'prüfen, ob überhaupt ein Bild vorhanden ist - Endung ggf. anpassen
If Len(Dir(strPfad & "*.jpg")) = 0 Then
MsgBox "Kein Bild im Verzeichnis vorhanden!", 16, "Fehler"
Exit Sub
End If
'Name des 1. Bildes wird eingelesen und mit Pfad in Variable eingelesen
strDatnam = strPfad & Dir(strPfad & "*.jpg")
'Bild in Zelle B10 einfügen
With ActiveSheet
.Pictures.Insert (strDatnam)
With .Pictures(.Pictures.Count)
.Top = Range("B10").Top
.Left = Range("B10").Left
'Bild wird skaliert
.ShapeRange.ScaleWidth 0.51, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.51, msoFalse, msoScaleFromTopLeft
End With
End With
End Sub
Der Code funktioniert einwandfrei, aber wenn das Bild im dazugehörigen Ordner gelöscht ist, gibt es bei dem eingefügten Platz des Bildes die Meldung:
Das verknüpfte Bild kann nicht angezeigt werden.
Möglicherweise wurde das bild verschoben oder gelöscht.
Stellen Sie sicher ,dass die verknüpfung auf die korrekte Datei und den korrekten
Speicherort zeigt.
Ich brauche also keinen Pfad zum speicherort des Bildes, sondern eine beständige Kopie in meinem Excelblatt.
Freind
[*]
[sup]
Admininfo: Führ bitte einen Thread nicht fort indem du einen Zweiten eröffnest, und vermeide Mehrfachanfragen. Die Datenbank wird es dir danken. Siehe FAQ 2 für deine nächste Anfrage.[/sup]
