Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder einbinden, Dateiname aus Zelle? | Herbers Excel-Forum

Forumthread: Bilder einbinden, Dateiname aus Zelle?

Bilder einbinden, Dateiname aus Zelle?
05.02.2010 20:29:32
joerg

Hallo,
Ich würde gern eine Reihe von Grafiken (ca. 6000, genaugenommen, aber alle sehr winzig) in meine Tabelle einbinden, und bei der menge natürlich nicht per Hand. Die Grafiken liegen alle im selben Verzeichnis, die Dateinamen habe ich in meiner Tabelle, immer in derselben Zeile, in der auch das jeweilige Bild platziert werden soll.
Was ich bräuchte wäre eine Formel wie 'LadeBild(Pfad, Dateiname)' - gibt es sowas?
Ich fürchte ja schon dass es das so nicht gibt - wie würde man das denn ansonsten mit VBA machen?
Gruss,
Jo

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder einbinden, Dateiname aus Zelle?
05.02.2010 20:42:32
Josef Ehrensberger
Hallo Joerg,

das geht z.B. so.

Sub insertPicture()
  Dim strPath As String
  Dim rng As Range
  Dim objPic As Object
  
  strPath = "E:\Temp" 'Verzeichnis - Anpassen!
  
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  
  With Sheets("Tabelle1") 'Tabellenname anpassen!
    For Each rng In .Range("A1:A100") 'Bereich anpassen!
      If rng <> "" Then
        If Dir(strPath & rng, vbNormal) <> "" Then
          Set objPic = .Pictures.Insert(strPath & rng)
          objPic.Top = rng.Top
          objPic.Left = rng.Left + rng.Width - objPic.Width
        End If
      End If
    Next
  End With
  
End Sub


Gruß Sepp
Anzeige
AW: Sepp, Dein Blog??
05.02.2010 21:04:06
Josef Ehrensberger
Hallo Jochen,
ja, ich habe die Seite mal erstellt, aber dann wieder aufgegeben.
Gruß Sepp
AW: Sepp, Dein Blog??
05.02.2010 21:30:06
JOWE
Sepp,
schade, da könnte man schön 'crazy' plauschen...
Gruß
Jochen
Anzeige
AW: Bilder einbinden, Dateiname aus Zelle?
06.02.2010 10:26:01
joerg
Super, Danke Dir! Funktioniert super! :)))
AW: Bilder einbinden, Dateiname aus Zelle?
05.02.2010 20:44:54
JOWE
Hallo Jo,
so mal aufgezeichnet für ein einzelnes Bild.
Die Bilder liegen nie in einer Zelle sondern schweben immer 'über dem Blatt'.
Bei kleinen Grafiken kann es aber so aussehen als ob.
Sub Makro1()
' Makro1 Makro
' Makro am 05.02.2010 von JoWE aufgezeichnet
ActiveSheet.Pictures.Insert("C:\temp\test.jpg").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 255#
Selection.ShapeRange.Width = 340.5
Selection.ShapeRange.Rotation = 0#
End Sub

JoWE
Anzeige
;
Anzeige

Infobox / Tutorial

Bilder aus Zellen einbinden und den Dateinamen im Bild anzeigen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle im Menü Einfügen die Option Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub insertPicture()
   Dim strPath As String
   Dim rng As Range
   Dim objPic As Object

   strPath = "E:\Temp\" ' Verzeichnis - Anpassen!

   If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

   With Sheets("Tabelle1") ' Tabellenname anpassen!
       For Each rng In .Range("A1:A100") ' Bereich anpassen!
           If rng <> "" Then
               If Dir(strPath & rng, vbNormal) <> "" Then
                   Set objPic = .Pictures.Insert(strPath & rng)
                   objPic.Top = rng.Top
                   objPic.Left = rng.Left + rng.Width - objPic.Width
               End If
           End If
       Next
   End With
End Sub

  4. Passe die Variablen strPath und den Bereich .Range("A1:A100") an deine Bedürfnisse an.

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

  6. Führe das Makro aus, um die Bilder aus dem angegebenen Verzeichnis basierend auf den Dateinamen in der angegebenen Zelle einzufügen.

Häufige Fehler und Lösungen

  • Fehler: „Das Bild kann nicht gefunden werden.“

    • Lösung: Überprüfe den Pfad und die Dateinamen in der Zelle. Stelle sicher, dass die Bilder im angegebenen Verzeichnis existieren und dass die Dateinamen korrekt angegeben sind.

  • Fehler: Bilder werden nicht an der richtigen Stelle eingefügt.

    • Lösung: Stelle sicher, dass du die richtige Zelle und den richtigen Bereich im Code angegeben hast.

Alternative Methoden

Wenn du keine VBA verwenden möchtest, kannst du auch die folgende Methode ausprobieren:

  1. Bilder manuell einfügen: Gehe zu Einfügen > Bilder und wähle die Bilder aus, die du einfügen möchtest.
  2. Verwende Hand Bilder: Wenn du nur einige Bilder hast, kannst du sie auch direkt in die Zellen ziehen.

Diese Methoden sind allerdings weniger effizient, wenn du mit vielen Bildern arbeitest.

Praktische Beispiele

  • Beispiel 1: Du hast eine Liste von Bildern in den Zellen A1 bis A10 und möchtest sie in die entsprechenden Zellen einfügen. Verwende den obigen VBA-Code und passe den Bereich an.

  • Beispiel 2: Um den Dateinamen im Bild anzeigen zu lassen, kannst du zusätzlich Textfelder hinzufügen, die den Dateinamen darstellen.

objPic.Name = rng.Value ' Setze den Namen des Bildes auf den Dateinamen

Tipps für Profis

  • Verwende Push-Zellen, um sicherzustellen, dass die Bilder nicht die Zellen überdecken.
  • Du kannst die Größe der Bilder anpassen, um sicherzustellen, dass sie in die Zelle passen. Füge dazu nach dem Einfügen des Bildes eine Größenanpassung im Code ein.
  • Nutze ActiveSheet.Pictures um die Bilder gezielt nach weiteren Kriterien zu filtern.

FAQ: Häufige Fragen

1. Kann ich die Bilder automatisch skalieren?
Ja, das kannst du tun, indem du die Height und Width Eigenschaften im VBA-Code anpasst.

2. Was sind Push-Zellen?
Push-Zellen sind Zellen, die sich anpassen, wenn ein Bild oder ein Objekt über ihnen eingefügt wird. Sie helfen, die Layout-Integrität in deinem Arbeitsblatt zu wahren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige