Bild einfügen
15.04.2005 12:39:51
Brit
Ich möchte mit dem nachfolgenden Code mehere Bilder innerhalb einer Schleife einfügen!
Das klappt auch schon ganz gut!
Nun soll jeweils das eingefügte Bild in die Mitte der Zelle ausgerichtet werden.
Da genau hackt es : Es passiert nichts!
Das Bild ist immer noch an der linken Seite der Zelle!
Kann mir vielleicht jemand helfen?
Danke
Brit
Sub Bild_einfügen()
Application.ScreenUpdating = False
Dim code
Range("A:A").Activate
On Error Resume Next
Dim Zelle
For Each Zelle In Range("A:A")
code = ActiveCell.Value
code = code & ".eps"
code = LCase(code)
ActiveCell.Offset(0, 2).Activate
pfad = ThisWorkbook.Path & "\" & code
ActiveSheet.Pictures.Insert (pfad)
dHeight = ActiveSheet.Pictures.Height
ActiveCell.Rows.RowHeight = dHeight
ActiveSheet.Pictures.Left = ActiveSheet.Pictures.Left + (ActiveCell.Width / 2) - (ActiveSheet.Pictures.Width / 2)
If ActiveCell.Offset(1, -2) = "" Then Exit For
ActiveCell.Offset(1, -2).Activate
Next Zelle
Application.ScreenUpdating = True
End Sub