AW: Excel und Bilder
03.04.2008 11:46:29
Renee
Hi Nico,
Hier ist noch ein Code.
Sub inLaden()
Dim sFileToOpen As Variant
Dim lx As Long
lx = 6
On Error GoTo load_error
Do
sFileToOpen = ActiveSheet.Cells(lx, 3) & "\" & ActiveSheet.Cells(lx, 1)
With ActiveSheet.Pictures.Insert(sFileToOpen)
If .Height > ActiveSheet.Cells(lx, 2).Height Or _
.Width > ActiveSheet.Cells(lx, 2).Width Then
.Width = ActiveSheet.Cells(lx, 2).Width
.Height = ActiveSheet.Cells(lx, 2).Height
.Top = ActiveSheet.Cells(lx, 2).Top
.Left = ActiveSheet.Cells(lx, 2).Left
Else
.Top = ActiveSheet.Cells(lx, 2).Top + _
((ActiveSheet.Cells(lx, 2).Height - .Height) / 2)
.Left = ActiveSheet.Cells(lx, 2).Left + _
((ActiveSheet.Cells(lx, 2).Width - .Width) / 2)
End If
End With
lx = lx + 1
Loop While ActiveSheet.Cells(lx, 1) ""
Exit Sub
load_error:
MsgBox "Korrigieren Sie Datei und/oder Pfad!", vbCritical + vbOKOnly, _
"Fehler in Zeile " & lx
End Sub
Was machen:
1. Im Excelfile Alt-F11 (öffnet den VBA-Edtor)
2. Deine Datei im Projektexplorer-Fenster anklicken
3. Menu Einfügen Modul
4. Den Code von hier mit Copy - Paste ins leere Fenster
5. VBE schliessen
6. Im Excelfile Extras - Makros - Makro auswählen und laufen lassen!
GreetZ Renée
P.S. Des Kuhhirten Code hat einen Fehler: Dateiname und Pfad sind beim öffnen vertauscht!
Muuuh