Wer hilft mir?
mit diesem Code will ich eine Inventurnummer aus Zelle H5 auslesen,
und je nach Nummer soll die entsprechende Bilddatei Beisp. IV100.bmp, IV200.bmp usw... in die Tabelle2 an einen bestimmten Platz, einfügen.
Das einfügen an den festen Platz usw. klappt.
Problem: Die Bilder sind unterschiedlich gross.
Wie könnte ich die Bilder immer gleich gross anzeigen. In ein Bildfeld einfügen....aber wie?
Wenn ich von "Hand" über Eigenschaften Picture ein Bild einfüge klappts.
Sollte aber automatisch gehen.
Private Sub Image1_GotFocus()
Dim objshape As Object
Dim name As String
Dim Bildoben As Integer
Dim Bildunten As Integer
Bildoben = 6
Bildunten = 7
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
Sh.Delete
Next Sh
name = Worksheets("Tabelle2").Range("Ivnr").Value & ".jpg"
Set objshape = ActiveSheet.Pictures.Insert("D:\Daten\Harald\Prüfblätter\" & name)
With objshape
.Top = Cells(Bildoben, Bildunten).Top
.Left = Cells(Bildoben, Bildunten).Left
End With
End Sub
Vielen Dank im Voraus
Egon