ich habe folgendes Problem:
ich hole mir mit dem nachfolgenden Code aus einem Verzeichnis Bilder zu verschiedenen Artikeln. Diese Bilder sind von der Höhe her machmal identisch, meistens allerdings nicht. Das Makro holt die Bilder und fügt sie als Objekt im Tabellenblatt ein. Ich möchte erreichen, dass Excel die Zeilenhöhe auf der Basis der Objekthöhe setzt und nicht auf der Basis der Zeilenhöhe.
Vielen Dank für die Hilfe.
Jörg
Sub Bilder()
Dim objShp As Object
On Error Resume Next
enda = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To enda
Range("A" & i).Select
Bildname = ActiveCell.Value
Range("B" & i).Activate
ActiveSheet.Pictures.Insert("V:\Bilder\" & Bildname & ".jpg").Select
Selection.ShapeRange.Width = 55
With Selection
.Top = ActiveCell.Top
.Left = ActiveCell.Left
End With
Next i
End Sub