Office: Bild Einfügen --> Fehler bei der Veralgemeinerung

Hallo,

ich möchte gerne ein Bildverzeichnis aus einem Datenblatt auslesen und das Bild in dem anderen Datenblatt ausgeben.

An sich klappt das auch schon, aber nur, wenn man den Pfad direkt angibt.
wie im Beispiel:

Sheets("Tabelle4").Select
ActiveSheet.Pictures.Insert("C:\Dokumente und Einstellungen\FriedrM1\Desktop\Papiere.jpg").Select

Selection.ShapeRange.ScaleWidth 0.51, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.51, msoFalse, msoScaleFromTopLeft

Sobald ich aber den Pfad allgemein mache wie z. B. hier:

Pfad = Tabelle1.Range("H8")

Sheets("Tabelle4").Select
ActiveSheet.Pictures.Insert(Pfad).Select

Selection.ShapeRange.ScaleWidth 0.51, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.51, msoFalse, msoScaleFromTopLeft

gibt er mir die Fehlermeldung

"Laufzeitfehler '1004'

Die Insert-Eigenschaft des Pictures-Objektes kann nicht zugeordnet werden
" aus.

Kann mir jemand helfen?

:)

 

hiho

Code:

p.s und ich würde die Bilder nicht vom Desktop nehmen!

hier noch die demo

 

Danke erst mal, das klappt jetzt soweit, hatte auch gerade einen anderen elementaren Fehler gefunden, das Bild auf das ich zugreifen wollte, lag in einem Pfad, auf den ich keine Zugriffsrechte hatte.

Aber noch zwei Fragen dazu:

1. Wie kann ich verhindern, dass ein Fehler ausgegeben wird, wenn das Bild trotz Tabelleneintrag nicht existiert?
Gibts irgendwie die möglichkeit mit VB rauszufinden ob eine Datei existiert oder ob der Zugriff erlaubt wird?

2. Kann ich die Position irgendwie unabhängig setzen, also anhand von x und y koordinaten festlegen.

irgendwie habe ich das Gefühl, das dieses
ShapeRange.ScaleWidth 0.51, msoFalse, msoScaleFromTopLeft
Abhängig von irgendeiner Zeigerposition ist.

Gruß

Martin

 

hiho

so z.B

Code:

 

Dankeschön,

Das mit der Position klappt.

Für die Fehlerüberprüfung habe ich eine bessere Funktion gefunden:

Private Function FileExists(ByVal FileName As String) As Boolean
On Error Resume Next
FileExists = Not CBool(GetAttr(FileName) And (vbDirectory Or vbVolume))
On Error GoTo 0
End Function

Deine funktionierte leider nicht bei dem Verzeichnis, auf das ich keinen Zugriff hatte.

Trotzdem danke