Hallo Leute, ich möchte eine Datenbank von Pflanzen erstellen.
Kann man Bilder auch damit einbinden? Ich mein, wenn man auf „aus Datei“ klickt, öffnet sich zwar mein Bild, aber es setzt sich nicht automatisch in die Exceltabelle mit ein! Es liegt nur auf der Tabelle und dazu noch viel zu groß. Kann man das irgendwie automatisieren? Ich muss ca. 150 Bilder einfügen. Würde ja viel zu lange dauern alle von Hand aus da reinzupressen (anzupassen)
Wäre super wenn mir jemand einen Tipp geben könnte. gtx Jumper
Hallo Leute, ich möchte eine Datenbank von Pflanzen erstellen.
Es liegt
nur auf der Tabelle und dazu noch viel zu groß. Kann man das
irgendwie automatisieren? Ich muss ca. 150 Bilder einfügen.
Würde ja viel zu lange dauern alle von Hand aus da
reinzupressen (anzupassen)
Hi Jumper,
viele Bilder am Stück verkleinern geht mit Resize:
http://www.geocities.com/peter_bone_uk/software.html
Wie Du sie dann in Excel einbindest, kann ich auch nicht sagen.
Vielleicht nur auf ein Bild verlinken? Aber dann ist die Frage,
wie Du zurück nach Excel kommst…
Gruß
Rolf
Kann man Bilder auch damit einbinden? Ich mein, wenn man auf
„aus Datei“ klickt, öffnet sich zwar mein Bild, aber es setzt
sich nicht automatisch in die Exceltabelle mit ein! Es liegt
nur auf der Tabelle und dazu noch viel zu groß. Kann man das
irgendwie automatisieren? Ich muss ca. 150 Bilder einfügen.
Würde ja viel zu lange dauern alle von Hand aus da
reinzupressen (anzupassen)
Hi Jumper,
Option Explicit
Sub Bilder()
Dim fs, i As Integer
Set fs = Application.FileSearch
With fs
.LookIn = "C:\download"
.Filename = "\*.jpg"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
ActiveSheet.Pictures.Insert(.FoundFiles(i)).Select
With Selection
.Top = (i - 1) \* 50 + 1
.Left = 50
.Height = 45
.Width = 45
End With
Cells((i - 1) \* 4 + 2, 3) = .FoundFiles(i)
Next i
Application.CommandBars("Picture").Visible = False
End With
End Sub
Gruß
Reinhard