Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bilder in Excel als Thumbnail einfügen

Forumthread: Bilder in Excel als Thumbnail einfügen

Bilder in Excel als Thumbnail einfügen
15.03.2017 17:34:02
Marcel
Hallo zusammen,
ich bin auf der Suche nach einem Makro, das Folgendes macht:
Anhand der Artikelnummer die in Spalte B steht soll geprüft werden, ob ein Bild in einem definierten Verzeichnis vorliegt und wenn ja ein Thumbnail in Spalte A eingefügt werden.
Voraussetzungen:
1. Spaltenhöhe: 130 / Spaltenbreite: 24
2. Thumbnails sollen zentriert in der Größe eingefügt werden
3. Artikelnummer in Spalte B ist 10-stellig (xxxxxxxxxx)
4. Dateinamen des Bilds in Pfad sind in folgendem Format abgelegt: xx_xxxx_xxxx_100.jpg
Kann mir bitte jemand dabei helfen diese Makro zu erstellen?
Danke und Grüße
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag zum 1. Post
15.03.2017 17:37:21
Marcel
Nachtrag:
Das Makro soll über die sichtbaren/gefilterten Zellen laufen.
AW: Nachtrag zum 1. Post
21.03.2017 10:20:50
Michael
Hallo Marcel!
Hier eine Starthilfe für Dich, als kleines Beispiel: https://www.herber.de/bbs/user/112322.zip
Entpacke die o.a. ZIP-Datei an einen Ort, Du findest dann im Ordner "Thumbnails" einen Unterordner "Bilder" sowie die Excel-Arbeitsmappe "Thumbs.xlsm". In dieser Mappe ist bereits der Bsp-Code integriert, die Thumbnails aus dem "Bilder"-Ordner werden Dir entsprechend eingefügt (über Schaltfläche "Thumbnails holen" - Du kannst auch die Filterfunktion testen, der Code wirkt nur auf die sichtbaren Zellen im Bereich B2:B7.
Zusätzliche Infos: Mit dem Einfügen von Bildern in Excel ist es so eine Sache - die Dateigröße jedes Bildes wird quasi 1:1 zur Dateigröße der Mappe aufgeschlagen; d.h. wenn es hier um sehr viele Bilder geht, wird die Mappe schnell riesengroß und entsprechend viele Probleme machen. Die Bilder nachträglich in Excel zu skalieren bringt hier auch keine Abhilfe - und "Thumbnails" kann Excel nicht erstellen (Excel ist eine Tabellenkalkulation, weißt Du ;-)). D.h. Du solltest für alle erforderlichen Bilder bereits vorab kleine Thumbnail-Dateien erstellen (mit Drittsoftware, zB IrfanView) und diese einfügen (so macht es hier auch mein Bsp-Code).
Weiterführende Info zur Thumbnail-Erstellung: http://graphicdesign.stackexchange.com/questions/18863/generate-thumbnails-from-a-folder-of-images
Gib Bescheid!
LG
Michael
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Bilder in Excel als Thumbnail einfügen


Schritt-für-Schritt-Anleitung

Um Bilder in Excel als Thumbnail einzufügen, kannst du ein Makro verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und erstelle eine neue Arbeitsmappe oder öffne eine bestehende.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (deineDatei.xlsx)“ > Einfügen > Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub ThumbnailsEinfügen()
        Dim ws As Worksheet
        Dim rng As Range
        Dim cell As Range
        Dim BildPfad As String
        Dim Bild As Picture
    
        Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ändere den Tabellennamen entsprechend
        Set rng = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    
        For Each cell In rng
            If cell.Value <> "" Then
                BildPfad = "C:\Bilder\" & cell.Value & "_100.jpg" ' Pfad anpassen
                If Dir(BildPfad) <> "" Then
                    Set Bild = ws.Pictures.Insert(BildPfad)
                    With Bild
                        .ShapeRange.LockAspectRatio = msoFalse
                        .Width = 24
                        .Height = 130
                        .Top = cell.Top
                        .Left = cell.Offset(0, -1).Left
                    End With
                End If
            End If
        Next cell
    End Sub
  5. Passe den Bildpfad an, damit er zu deinem Verzeichnis passt.

  6. Schließe den VBA-Editor und gehe zurück zu Excel.

  7. Führe das Makro aus: Gehe zu „Entwicklertools“ > „Makros“ > wähle ThumbnailsEinfügen und klicke auf „Ausführen“.

Jetzt solltest du die Thumbnails in Excel eingebunden haben!


Häufige Fehler und Lösungen

  • Fehler: Bild wird nicht angezeigt
    Lösung: Überprüfe den Bildpfad und sicherstellen, dass die Datei tatsächlich existiert.

  • Fehler: Makro funktioniert nicht
    Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu „Datei“ > „Optionen“ > „Sicherheitscenter“ > „Einstellungen für das Sicherheitscenter“ und aktiviere die Makros.

  • Problem: Thumbnails sind nicht zentriert
    Lösung: Überprüfe die .Top und .Left Eigenschaften im Code und passe sie an.


Alternative Methoden

Falls du kein Makro nutzen möchtest, kannst du auch manuell Bilder in Excel einfügen:

  1. Gehe zu „Einfügen“ > „Bilder“.
  2. Wähle die Bilder aus, die du einfügen möchtest.
  3. Skaliere die Bilder manuell auf die gewünschte Thumbnail-Größe (24x130 Pixel).
  4. Positioniere die Bilder in den entsprechenden Zellen.

Diese Methode ist zeitintensiver, besonders wenn du viele Bilder hast.


Praktische Beispiele

  • Beispiel 1: Wenn deine Artikelnummer in Zelle B2 „1234567890“ ist, sollte das Bild „1234567890_100.jpg“ im definierten Verzeichnis vorhanden sein.
  • Beispiel 2: Du kannst die Spaltenhöhe und -breite anpassen, um sicherzustellen, dass die Thumbnails korrekt angezeigt werden.

Tipps für Profis

  • Thumbnail erstellen: Erstelle deine Thumbnails extern mit Software wie IrfanView, um die Dateigröße der Excel-Datei gering zu halten.
  • Batch-Verarbeitung: Nutze Batch-Prozesse in Bildbearbeitungssoftware, um viele Thumbnails gleichzeitig zu erstellen.
  • Verlinkungen: Du kannst auch Hyperlinks zu den Originalbildern hinzufügen, falls du die Bilder in Excel nicht einbetten möchtest.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass die Thumbnails in Excel nicht die Dateigröße sprengen?
Verwende bereits in der Größe optimierte Bilder, um die Dateigröße der Excel-Datei zu reduzieren.

2. Was mache ich, wenn ich keine Programmiererfahrung habe?
Du kannst die manuelle Methode verwenden, um Bilder in Excel einzufügen, oder einen Kollegen um Hilfe bitten, der sich mit VBA auskennt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige