collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 39
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 1
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14662
  • stats Beiträge insgesamt: 74468
  • stats Themen insgesamt: 10020
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 933

Autor Thema: Bilder in excel einlesen  (Gelesen 5569 mal)

Offline lenky

  • Access-User
  • *
  • Beiträge: 63
Bilder in excel einlesen
« am: August 23, 2010, 01:18:41 »
Hallo , hallo!

Möchte gern Bilder eines Ordners in eine Excel Tabelle einlesen lassen. Die Bilder sind bereits alle gleich groß (verkleinert-außer wenn sich Höhe und Breite aufgrund der Aufnahme vertauschen gibt es unterschiede)
Habe versucht eine Lösung im Netz zu finden, ist jedoch nach mehrfachen Versuchen nicht geglückt bzw. war für mich alles nicht umsetzbar!

Für Hilfe wäre ich Euch sehr sehr dankbar!

lg lenky
 

database

  • Gast
Re: Bilder in excel einlesen
« Antwort #1 am: August 23, 2010, 09:00:35 »
Hallo, guten Morgen Lenky,

es ist nicht möglich Bilder in Zellen zu stellen.

mit folgenden Codeschnippsel kannst du (hier eines der Beispielbilder) nach Excel holen:
ActiveSheet.Pictures.Insert("C:\Users\Public\Pictures\Sample Pictures\koala.jpg").Select

Ich habe ein wenig recherchiert und folgendes gefunden:
http://www.herber.de/forum/archiv/152to156/t154523.htm

Vielleicht hilft dir das weiter
 

Offline lenky

  • Access-User
  • *
  • Beiträge: 63
Re: Bilder in excel einlesen
« Antwort #2 am: August 23, 2010, 11:28:40 »
Tag an ALLE!

Mit dem Link konnte ich leider nichts anfangen. Gibt es vielleicht eine Möglichkeit dies mit dem Makrorecorder zu erledigen?
Ich weiß, dass ich das Einfügen aufnehmen kann, kann dieser Code nicht irgendwie verändert werden, dass alle weiteren Bilder in den darunterliegenden Zellen eingefügt werden ?

Sub Makro4()
'
' Makro4 Makro
' Foto einlesen
'

'
End Sub ?????

Na gut, ich fang halt mal per "Hand" an.

lg have a nice day
 lenky
« Letzte Änderung: August 23, 2010, 11:33:27 von lenky »
 

database

  • Gast
Re: Bilder in excel einlesen
« Antwort #3 am: August 23, 2010, 16:05:18 »
Hallo Lenky

nochmal....
Zitat
es ist nicht möglich Bilder in Zellen zu stellen

Wenn ich's richtig interpretiere, dann leistet der Code am Ende der verlinkten Seite in meiner vorigen Antwort folgendces:

Es werden alle Bilder aus einem bestimmten Verzeichnis in ein Excelsheet eingefügt.
Leicht abgeändert, holt das Makro alle Bilder aus deinem Verzeichnis ins Excelsheet - die Bilder liegen danach alle übereinander!

Rufe Makro aufzeichnen auf, beende das gleich wieder, rufe Makro bearbeiten auf und kopiere dann den untenstehenden Code an die Stelle der abgebrochenen Aufzeichnung, dann ausführen....

Sub BilderEinfuegen()
    Dim Höhe As Integer
    Dim SHöhe As Single
    Dim Breite As Integer
    Dim SBreite As Integer
    Dim Wert1
    Dim J As Integer
    Höhe = 17
    Breite = 5
    SBreite = 1
    SHöhe = 2
    Dim strVerzeichnis$, strDatei$
    Dim pct As Picture
    strVerzeichnis = "E:\DeinBilderVerzeichnis\"
    strDatei = Dir(strVerzeichnis & "\*.jpg")    'liest alle *.jpg - Dateien aus
    Cells(SHöhe, SBreite).Select
    Cells(SHöhe - 1, SBreite) = strDatei    ' schreibe Dateinamen
    Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)  ' einfügen Bild
    MsgBox  strDatei & " eingefügt!!", , "Bilder"
    J = 2
    Do While strDatei <> ""
        strDatei = Dir()
        If strDatei = "" Then Exit Do
        Cells(SHöhe, SBreite).Select
        Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)
        Cells(SHöhe - 1, SBreite) = strDatei
        MsgBox  strDatei & " eingefügt!!", , "Bilder"
        J = J + 1
    Loop
End Sub
 

Offline lenky

  • Access-User
  • *
  • Beiträge: 63
Re: Bilder in excel einlesen
« Antwort #4 am: August 23, 2010, 23:13:53 »
hallo Peter!

Der Code klappt schon, aber dann muss ich aus einer Zelle alle Bilder per Hand verschieben! - natürlich eine Alternative, aber unübersichtlich.

Hab nochmal gesucht und Codes auf http://www.wintotal-forum.de/index.php/topic,82847.0.html gefunden. Der erste jedoch zeigt bei mir leider nur wie dort schon beschrieben die Icons der Bilder an, welche sich per Klick öffnen lassen.

- besteht da die Möglickeit das zu verändern? Die dort vorgeschlagene Änderung bringt nichts.

Der zweite Code funktioniert nicht, da ich nicht mächtig bin ihn zu debuggen. Ein Fehler With Application.FileSearch tritt auf.

Danke für Deine Mühe, oder die von Anderen!!!

lg lenky
 

 

Bilder im Access Formular

Begonnen von melisyBoard Formular

Antworten: 3
Aufrufe: 4676
Letzter Beitrag Juni 08, 2010, 09:14:37
von DF6GL
Kann keine Bilder mehr einfügen

Begonnen von BreenBoard Formular

Antworten: 2
Aufrufe: 3436
Letzter Beitrag Mai 23, 2010, 12:59:40
von Breen
Bilder(.jpg)vom Formular in ein Word Dokument einfügne

Begonnen von SchakalBoard Access Programmierung

Antworten: 2
Aufrufe: 5561
Letzter Beitrag Juli 07, 2010, 14:39:35
von Schakal
Bilder mit Quelle einer URL darstellen

Begonnen von thorstens1304Board Formular

Antworten: 6
Aufrufe: 5944
Letzter Beitrag Dezember 02, 2010, 21:26:29
von database
jpg-Bilder werden nicht angezeigt, wenn größer als 5 MB.

Begonnen von karensterBoard Formular

Antworten: 0
Aufrufe: 2336
Letzter Beitrag Juni 27, 2011, 20:57:38
von karenster