Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganze Bilderordner importieren

Ganze Bilderordner importieren
27.02.2006 11:42:32
clonch
Hallo zusammen!
Ich möchte aus einem Ordner der gefüllt ist mit Bildern pict0001, pict0002 bis pict 0132 die Bilder in eine Exceltabelle importieren. Dabei fehlen ab und zu eine oder mehrere Nummern. bis jetzt habe ich einfach nur mit den Bildern gearbeitet, die zweistellige Zahlen haben. Jetzt möchte ich generell den gnazen Ordner importieren können.
Mein code für einige Bilder, die eine zweistellige Nummer haben:
'Erstes Bild: Nummer
a = 28
' Bild einfügen und formatieren
i = 2
For i = 2 To 90
On Error Resume Next
ActiveSheet.Pictures.Insert (strPfad & "\pict00" & a + i - 2 & ".jpg")
On Error GoTo 0
Next i
Liebe Grüsse
clonch

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ganze Bilderordner importieren
27.02.2006 12:18:01
Franz
Hallo clonch,
passe folgende Zeile an:

ActiveSheet.Pictures.Insert (strPfad & "\pict" & Format(a + i - 2;"0000") & ".jpg")

dann werden alle Zahlen von 1 bis 999 mit führenden Nullen an das Wort "pict" angehängt.
Gruß
Franz
AW: Ganze Bilderordner importieren
27.02.2006 14:16:35
clonch
Danke Franz!
Das mit diesen Format(,0000) war mir neu
Besten Dank!
clonch
AW: Ganze Bilderordner importieren
27.02.2006 13:01:27
Heiko
Hallo clonch,
z.B. so, damit werden alle .jpg Bilder im angebenen Ordner ins Sheet eingefügt.
Ordner natürlich anpassen !!!

Sub BilderRein()
Dim lngI As Long
With Application.FileSearch
.NewSearch
.LookIn = "C:\Copy"
.SearchSubFolders = False
.Filename = "*.jpg"
.Execute
For lngI = 1 To .FoundFiles.Count
' Damit kann man gleich noch die Bildposition vertical festlegen.
ActiveSheet.Pictures.Insert(.FoundFiles(lngI)).Top = lngI * 100
' oder ohne position so.
' ActiveSheet.Pictures.Insert .FoundFiles(lngI)
Next lngI
End With
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Ganze Bilderordner importieren
27.02.2006 14:14:46
clonch
Danke Heiko!
Deine Version ist sehr flexibel, passt für jeglichen Ordnerinhalt. Super!
Mit bestem Dank!
clonch
AW: Ganze Bilderordner importieren
02.03.2006 09:51:46
clonch
Hallo Heiko
deinen Code habe ich bei mir eingebaut. Seither krieg ich die Arbeitsmappe nicht ohne Passwort auf. atpvbaen.xls und funcres.xla in der Projektübersicht geht nur mit Passwort auf. Das grosse Übel ist, dass mein eigens erarbeiteter Code nun auch nicht mehr hervorgeholt, geschweige denn gebraucht werden kann. Ich blick ja nicht wirklich durch als VBA-Anfänger. Aber vielleicht kannst Du mir wieder aus der Patsche helfen.
Besten dank!
clonch

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige