Bild Aspect Ratio wird nicht beibehalten :(
09.12.2004 17:41:11
Robert
Meine kleine procedure funktioniert eigentlich ganz gut, zumindestens wird sie ausgefuert :)
Schade ist nur, dass die Groessenverhaeltnisse beim Bild nicht eingehalten werden :(
Wer kann helfen? Wo ist der Fehler?
Public
Sub PhotoImport()
Dim i As Integer
Dim pfad, rn, link
i = [b1].Value
'Photo
Sheets("Database").Select
pfad = Cells(i + 4, 248).Value
rn = Cells(i + 4, 249).Value
link = Cells(i + 4, 250).Value
Sheets("1").Select
[h5:k22].ClearContents
[h23].Value = (pfad & rn & "." & link)
[h5:k22].Select
ActiveSheet.Pictures.Insert(pfad & rn & "." & link).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
With ActiveSheet.Pictures
.Top = [h5].Top
.Left = [h5].Left
.Width = [h5:k5].Width
.Height = [h5:h22].Height
End With
End Sub
Gruss
Robert