Bild aus Datei an bestimmten Platz einfügen
09.12.2005 07:23:53
Egon
Habe ein Problem, wer kann bitte helfen?
Ich bekomme immer: Anwendungs oder Objectdefinierter Fehler
Public
Sub test()
' mit diesem Code will ich eine Inventurnummer aus Zelle B3 auslesen,
' und je nach Nummer soll die Bilddatei IV100.bmp, IV200.bmp je nach text in B3
' usw... in die Tabelle1 an einen bestimmten Platz, Cells(5,5) eingefügt werden
Dim objshape As Object
Dim name As String
name = Tabelle1.Range("B3").Value & ".bmp"
Set objshape = ActiveSheet.Pictures.Insert("Z:\Personal\Eigene\Egon\ ") & name
With objshape
.Top = Cells(5, 5).Top
.Left = Cells(5, 5).Left
End With
End Sub
Schönen Gruß
Egon