Excel-Bilder: Mehrere Bilder oder Fotos in Excel einfügen, skalieren, speichern oder löschen

Für die meisten von uns ist es ganz einfach, Bilder, die auf dem Computer gespeichert sind, in das Arbeitsblatt einzufügen. Gehen Sie dazu wie folgt vor:

1. Klicken Sie im Arbeitsblatt auf die Stelle, an der Sie ein Bild einfügen möchten.

2. Klicken Sie anschließend auf Einfügen > Bilder > Dieses Gerät, siehe Screenshot:

3. Wählen Sie im erscheinenden Fenster Bild einfügen den Ordner mit den Bildern aus, und halten Sie die Taste Strg gedrückt, um die gewünschten Bilder auszuwählen – siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche Einfügen. Die ausgewählten Bilder wurden nun in das Arbeitsblatt eingefügt. Passen Sie die Bilder ganz einfach an Ihre Bedürfnisse an oder positionieren Sie sie passgenau in den gewünschten Zellen – siehe Screenshot:

Wenn Sie Excel 2013 oder eine neuere Version verwenden, können Sie ganz einfach Bilder direkt aus dem Web oder von OneDrive einfügen. So geht’s:

1. Klicken Sie im Arbeitsblatt auf die Stelle, an der Sie das Bild einfügen möchten.

2. Klicken Sie anschließend auf Einfügen > Bilder > Onlinebilder, siehe Screenshot:

3. Es öffnet sich ein neues Fenster. Geben Sie im Abschnitt Onlinebilder Ihren Suchbegriff in das Textfeld ein und drücken Sie die Enter-Taste. Alle passenden Bilder werden sofort angezeigt – siehe Screenshot:

4. Wählen Sie anschließend die gewünschten Bilder aus und klicken Sie auf die Schaltfläche Einfügen. Passen Sie die Bilder nach dem Einfügen an die gewünschte Position an.

Der folgende VBA-Code ermöglicht es Ihnen, mehrere Bilder passend zur Zellgröße einzufügen. Gehen Sie dazu wie folgt vor:

1. Passen Sie die Größe der Zelle an, in die das Bild eingefügt werden soll, und markieren Sie die entsprechenden Zellen.

2. Halten Sie anschließend die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modul-Fenster ein.

VBA-Code: Mehrere Bilder basierend auf der Zellgröße einfügen

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Wählen Sie im Fenster Öffnen den Ordner mit den Bildern aus, markieren Sie die gewünschten Bilder und klicken Sie auf die Schaltfläche Öffnen. Alle ausgewählten Bilder wurden nun entsprechend der Zellgröße in Ihre Auswahl eingefügt. Siehe Screenshot:

Wenn Sie mit VBA-Code nicht vertraut sind, nutzen Sie stattdessen die leistungsstarke Funktion Bilder importieren von Kutools für Excel. Mit dieser praktischen Funktion importieren Sie mehrere Bilder schnell und mühelos direkt in Ihre Zellen.

1. Klicken Sie auf KUTOOLS PLUS > Import/Export > Bilder importieren, siehe Screenshot:

2. Führen Sie im erscheinenden Dialogfeld Bilder importieren die folgenden Schritte aus:

• Geben Sie die Bildreihenfolge über die Dropdown-Liste Importreihenfolge an; Sie können Spalte füllen, dann Zeile füllenoder Zeile füllen, dann Spalte füllenauswählen;
• Klicken Sie anschließend auf die Schaltfläche Hinzufügen, um die Bilddateien oder den Ordner auszuwählen, in den die Bilder eingefügt werden sollen, im Bildliste;
• Klicken Sie auf die Schaltfläche Importgröße und wählen Sie im Dialogfeld Bildgröße importieren die Option Zellengröße anpassen.
• 

3. Klicken Sie nach Abschluss der Einstellungen auf die Schaltfläche Importieren. Daraufhin öffnet sich ein weiteres Fenster mit dem Titel Bilder importieren; geben Sie hier die Zielzellen an, in die das Bild importiert werden soll – siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK. Alle ausgewählten Bilder wurden nun entsprechend der Größe der jeweiligen Zellen eingefügt, wie im folgenden Screenshot gezeigt:

Der folgende VBA-Code hilft Ihnen, mehrere Bilder schnell und gezielt anhand ihrer Dateinamen einzufügen. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modul-Fenster ein.

VBA-Code: Mehrere Bilder entsprechend ihren Namen einfügen

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Hinweis: Im obigen Code können Sie Höhe und Breite der Bilder entsprechend Ihren Anforderungen anpassen – und zwar direkt in den Skriptzeilen „.ShapeRange.Height = 60“ und „.ShapeRange.Width = 60“.

3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Wählen Sie im geöffneten Fenster den Ordner mit den einzufügenden Bildern aus. Siehe Screenshot:

4. Klicken Sie dann auf die OK-Schaltfläche. Es erscheint ein Eingabefeld. Markieren Sie die Zellen, die die Bildnamen enthalten. Siehe Screenshot:

5. Klicken Sie anschließend auf die OK-Schaltfläche. Daraufhin erscheint ein weiteres Eingabefeld. Markieren Sie die Zellen, in denen die Bilder ausgegeben werden sollen. Siehe Screenshot:

6. Klicken Sie abschließend auf OK, und die Bilder werden sofort basierend auf ihren Namen in die entsprechenden Zellen eingefügt. Siehe Screenshot:

Wenn Sie Kutools für Excel besitzen, können Sie mithilfe der Übereinstimmende importierte Bilder-Funktion die Bilder basierend auf den Bildnamen schnell und einfach einfügen.

1. Klicken Sie auf KUTOOLS PLUS > Import/Export > Übereinstimmende importierte Bilder. Siehe Screenshot:

2. Führen Sie im erscheinenden Bilder importieren – Übereinstimmung-Dialogfeld die folgenden Schritte aus:

• Geben Sie die Bildreihenfolge über die Dropdown-Liste Importreihenfolge an; Sie können zwischen Spalte füllen, dann Zeile füllenoder Zeile füllen, dann Spalte füllenwählen;
• Wählen Sie anschließend im Textfeld Übereinstimmungsbereichdie Bildnamen aus, nach denen Sie Bild einfügen möchten;
• Klicken Sie danach auf die Schaltfläche Hinzufügen, um die Bilddateien oder den Ordner auszuwählen, in den die Bilder eingefügt werden sollen, im Bildliste;
• Geben Sie als Nächstes die Bildgröße an. Klicken Sie dazu auf die Schaltfläche Importgröße und wählen Sie im Dialogfeld Bildgröße importieren eine passende Bildgröße aus.
• 

3. Nach Abschluss der Einstellungen klicken Sie auf die Importieren-Schaltfläche und wählen Sie eine Zelle oder einen Zellbereich aus, um den Speicherort der Bilder im erscheinenden Übereinstimmende importierte Bilder-Dialogfeld festzulegen. Siehe Screenshot:

4. Klicken Sie anschließend auf OK, und alle Bilder, deren Namen mit den Zellwerten übereinstimmen, werden eingefügt. Siehe Screenshot:

Verwenden Sie den folgenden VBA-Code, um Bilder anhand einer Liste von URLs einzufügen.

1. Passen Sie zunächst die Größe der benachbarten Zellen an, in denen die Bilder platziert werden sollen.

2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro im Modul-Fenster ein.

VBA-Code: Bilder aus einer Liste von URLs einfügen

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Hinweise: Im obigen Code ist A2:A5 der Zellbereich, der die URL-Adressen enthält, aus denen Sie die Bilder extrahieren möchten. Passen Sie die Zellbezüge entsprechend Ihren Anforderungen an.

4. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Die passenden Bilder werden aus den URLs in die benachbarte Spalte extrahiert und zentriert in die Zellen eingefügt. Siehe Screenshot:

Kutools für Excel bietet eine beeindruckende Funktion: Bilder aus Pfad (URL) einfügen. Mit diesem Werkzeug lassen sich die entsprechenden Bilder schnell und einfach aus den URLs einfügen.

1. Klicken Sie auf Kutools > Einfügen > Bilder aus Pfad einfügen. Siehe Screenshot:

2. Nehmen Sie im erscheinenden Bilder aus Pfad einfügen-Dialogfeld die folgenden Einstellungen vor:

• Wählen Sie die Liste der URL-Zellen sowie einen Zellbereich aus, in den Sie die Bilder einfügen möchten;
• Legen Sie die gewünschte Bildgröße im Abschnitt Bildgröße fest.
• 

3. Klicken Sie anschließend auf die OK-Schaltfläche, und alle Bilder werden aus den URLs extrahiert. Siehe Screenshot:

Nutzen Sie den folgenden VBA-Code, um Bilder anhand ihres Dateipfads einzufügen.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den folgenden Code in das Modul-Fenster ein.

VBA-Code: Bild einfügen aus einem Bereich von Dateipfad

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie nach dem Einfügen des obigen Codes die F5-Taste, um den Code auszuführen. Anschließend erscheint ein Eingabefeld. Markieren Sie die Zellen mit dem Dateipfad. Siehe Screenshot:

4. Klicken Sie anschließend auf die OK-Schaltfläche. Alle Bilder basierend auf dem Dateipfad werden in der nächsten Spalte angezeigt, wie im folgenden Screenshot dargestellt:

Mit der Funktion Bilder aus Pfad einfügen von Kutools für Excel können Sie die zugehörigen Bilder direkt aus dem Dateipfad anzeigen lassen.

1. Klicken Sie auf Kutools > Einfügen > Bilder aus Pfad einfügen. Geben Sie im erscheinenden Dialogfeld den Dateipfad, den Bereich für die Ausgabe der Bilder sowie die gewünschte Bildgröße entsprechend Ihren Anforderungen an. Siehe Screenshots:

2. Nachdem Sie die Optionen festgelegt haben, klicken Sie auf die OK-Schaltfläche. Die Bilder werden sofort in die ausgewählten Zellen eingefügt. Siehe Screenshot:

Tipps: Gelegentlich kann es vorkommen, dass das Bild mit dem Datenbereich des Arbeitsblatts überlappt – wie im folgenden Screenshot zu sehen. Der Grund: Das Bild ist zu groß und passt sich nicht automatisch an die Größe des Kopf- oder Fußzeilenfelds an.

Um dieses Problem zu beheben, müssen Sie das Bild lediglich in der Kopf- oder Fußzeile anpassen. Gehen Sie dazu wie folgt vor:

1. Klicken Sie in den Kopf- oder Fußzeilenbereich, in dem sich das Bild befindet, und wechseln Sie anschließend unter der Registerkarte Entwurf zur Gruppe Bild formatieren. Siehe Screenshot:

2. Passen Sie im Dialogfeld Bild formatieren unter der Registerkarte Größe die Bildgröße so an, dass sie in das Kopf- oder Fußzeilenfeld passt. Siehe Screenshot:

3. Klicken Sie anschließend auf OK, und Sie erhalten das gewünschte Ergebnis.

1. Öffnen Sie das Arbeitsblatt, in das Sie ein Hintergrundbild einfügen möchten.

2. Klicken Sie anschließend auf Seitenlayout > Hintergrund, siehe Screenshot:

3. Wählen Sie im eingeblendeten Bilder einfügen-Fenster ein Bild von Ihrem Computer, einer Website oder aus OneDrive aus – ganz nach Bedarf. Siehe Screenshot:

4. Das Bild wurde nun wie im folgenden Screenshot gezeigt als Hintergrund in das Arbeitsblatt eingefügt:

Mit der oben genannten Methode können Sie die Transparenz des eingefügten Hintergrundbildes nicht ändern. Ist die Farbe des Hintergrundbildes daher stark, erschwert dies das Lesen der Daten im Arbeitsblatt. In diesem Abschnitt erläutere ich, wie Sie ein transparentes Bild hinter die Zellen einfügen.

1. Klicken Sie auf Einfügen > Formen, und wählen Sie eine Rechteckform aus (siehe Screenshot):

2. Zeichnen Sie anschließend im aktiven Arbeitsblatt eine Form in der gewünschten Größe.

3. Nachdem Sie die Form gezeichnet haben, wird im Menüband die Registerkarte Zeichentools angezeigt. Klicken Sie dann auf Format > Formkontur > Keine Kontur, siehe Screenshot:

4. Klicken Sie anschließend mit der rechten Maustaste auf die Form und wählen Sie im Kontextmenü Form formatieren – siehe Screenshot:

5. Führen Sie im eingeblendeten Form formatieren-Bereich unter der Registerkarte Füllung & Linie die folgenden Schritte aus:

• Wählen Sie im Abschnitt Füllungdie Option Bild- oder Texturfüllung;
• Klicken Sie auf die Schaltfläche Einfügenim Bereich Bildquelle, und wählen Sie das gewünschte Bild aus;
• Passen Sie anschließend die Transparenz des Bildes im Abschnitt Transparenz entsprechend Ihren Anforderungen an.
• 

6. Anschließend sehen Sie, dass die mit dem Bild gefüllte Form wie ein Hintergrundbild wirkt – wie im obigen Screenshot gezeigt.

Hinweis: Sobald Sie diesen Hintergrundbildtyp eingefügt haben, können Sie innerhalb des Bildbereichs keinen Text mehr eingeben.

Beide oben genannten Methoden haben ihre eigenen Einschränkungen: Bei der ersten Methode lässt sich die Transparenz des Bildes nicht anpassen, und bei der zweiten Methode kann kein Text in die Zellen innerhalb des Bildbereichs eingegeben werden. Um diese Probleme zu lösen, hilft Ihnen die Kutools für Excel-Funktion Wasserzeichen einfügen weiter.

1. Klicken Sie auf Kutools > Einfügen > Wasserzeichen einfügen, siehe Screenshot:

2. Wählen Sie im eingeblendeten Wasserzeichen einfügen-Dialogfeld Bildwasserzeichen aus und klicken Sie anschließend auf die Schaltfläche Bild auswählen, um das gewünschte Bild hochzuladen. Legen Sie dann den Bildmaßstab fest und aktivieren Sie die Option „Auswaschen“ – siehe Screenshot:

3. Klicken Sie anschließend auf die Schaltfläche OK. Das Bild wurde nun als Hintergrundbild in das Arbeitsblatt eingefügt.

In Excel können Sie die Funktion Als Bild kopieren verwenden, um einen Zellbereich als Bild zu kopieren und einzufügen.

1. Wählen Sie den Zellbereich aus, den Sie als Bild kopieren und einfügen möchten.

2. Klicken Sie anschließend auf Start > Kopieren > Als Bild kopieren, siehe Screenshot:

3. Wählen Sie im eingeblendeten Bild kopieren-Dialog im Abschnitt Format die Option Bild aus – siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK. Drücken Sie nun Strg + V, um das Bild an einer beliebigen Stelle der Arbeitsmappe einzufügen.

In Excel gibt es ein Kamera-Tool, mit dem Sie einen Ausschnitt Ihrer Daten als Foto erfassen und als Bild einfügen können. Sobald sich die Originaldaten ändern, wird das eingefügte Bild automatisch aktualisiert.

Zunächst müssen Sie die Kamera im Menüband anzeigen und können sie anschließend verwenden.

1. Klicken Sie auf das Symbol Symbolleiste für den Schnellzugriff anpassen und anschließend auf die Option Weitere Befehle, siehe Screenshot:

2. Führen Sie im geöffneten Excel-Optionen-Dialogfeld die folgenden Schritte aus:

• Wählen Sie Alle Befehleaus der Dropdown-Liste Befehle auswählen aus;
• Scrollen Sie dann nach unten, und wählen Sie Kameraaus dem Listenfeld aus;
• Klicken Sie danach auf die Schaltfläche Hinzufügen, um dieses Werkzeug zur Symbolleiste für den Schnellzugriff anpassenhinzuzufügen;
• Klicken Sie abschließend auf OK, um dieses Dialogfeld zu schließen.
• 

3. Das Kamera-Tool wird nun im Menüband angezeigt – siehe Screenshot:

4. Wählen Sie anschließend den Zellbereich aus, von dem Sie ein Bild erstellen möchten.

5. Klicken Sie anschließend auf das Kamera-Tool, wechseln Sie zum Arbeitsblatt und klicken Sie an eine beliebige Stelle. Der Datenbereich wird nun wie in der folgenden Demo gezeigt als Bild eingefügt:

Wenn Sie Kutools für Excel besitzen, können Sie mithilfe der Funktion Ressourcenbibliothek Daten auswählen, in der Ressourcenbibliothek speichern und diese später nach Belieben als Bild oder Text verwenden.

1. Wählen Sie den Datenbereich aus, den Sie als Bild einfügen möchten.

2. Klicken Sie anschließend auf Kutools > Navigation, siehe Screenshot:

3. Klicken Sie im eingeblendeten Navigations-Bereich auf das Symbol Ressourcenbibliothek und anschließend auf das Symbol Ausgewählten Inhalt zu AutoText hinzufügen, siehe Screenshot:

4. Geben Sie im Zu AutoText hinzufügen-Dialogfeld einen Namen für diesen Eintrag ein, und wählen Sie eine Gruppe aus, der Sie ihn hinzufügen möchten. Siehe Screenshot:

5. Klicken Sie anschließend auf die Schaltfläche Hinzufügen, um ihn dem Ressourcenbibliothek-Bereich hinzuzufügen. Wenn Sie diesen Bereich als Bild einfügen möchten, klicken Sie einfach auf eine Zelle, um die Position des Bildes festzulegen, suchen Sie den gespeicherten Eintrag im Ressourcenbibliothek-Bereich und wählen Sie im Dropdown-Menü des Eintrags Einfügen als > Bild (EMF). Der Datenbereich wird dann in das Blatt eingefügt.

Normalerweise können Sie in Excel einen dynamischen benannten Bereich erstellen und anschließend das verknüpfte Bild verwenden, um diese Aufgabe in Excel zu lösen.

1. Legen Sie zunächst zwei Spalten mit den Produktnamen und den zugehörigen Bildern an – siehe Screenshot:

2. Erstellen Sie anschließend eine Dropdown-Liste für die Zellwerte. Klicken Sie auf eine Zelle, um die Dropdown-Liste einzufügen, und wählen Sie dann Daten > Datenüberprüfung > Datenüberprüfung. Siehe Screenshot:

3. Wählen Sie im eingeblendeten Datenüberprüfung-Dialogfeld unter der Registerkarte Einstellungen im Dropdown-Menü Liste bei Zulassen aus und geben Sie anschließend im Feld Quelle die Zellen an, aus denen Sie die Dropdown-Liste erstellen möchten (siehe Screenshot):

4. Klicken Sie auf OK, und die Dropdown-Liste mit den Zellwerten wird erstellt. Wählen Sie anschließend ein Element aus der Dropdown-Liste aus – siehe Screenshot:

5. Klicken Sie anschließend auf Formeln > Namen definieren, siehe Screenshot:

6. Führen Sie im Neuer Name-Dialogfeld die folgenden Schritte aus:

• Geben Sie den Namen „myimage“ in das Textfeld Nameein;
• Kopieren und fügen Sie anschließend diese Formel ein:=INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2)in das Feld „Bezieht sich auf“.

  

  Hinweis: In der obigen Formel:

  • Sheet11!$A$2:$B$6: ist das Arbeitsblatt und der Bereich, der die Werte und Bilder enthält, die Sie verwenden möchten;
  • Sheet11!$E$2: ist die Zelle innerhalb des Arbeitsblatts, in der Sie die Dropdown-Liste erstellt haben;
  • Sheet11!$A$2:$A$6: ist die Liste der Zellen, auf der Ihre Dropdown-Liste basiert;
  • Die Variablenzahl 2 ist die Spaltennummer, in der sich die Bilder befinden. Wenn Ihre Bilder in Spalte C stehen, geben Sie 3 ein.

7. Klicken Sie anschließend auf die Schaltfläche OK und kopieren Sie das entsprechende Bild – basierend auf dem Zellwert in E2 – aus dem ursprünglichen Bereich in die Zelle F2 (siehe Screenshot):

8. Markieren Sie als Nächstes das Bild in Zelle F2 und geben Sie anschließend in die Formelleiste die Formel =myimageein ()myimage ist der Zellenname, den Sie in Schritt 6 erstellt haben). Siehe Screenshot:

9. Drücken Sie nach der Eingabe der Formel die Enter-Taste. Sobald Sie nun ein Element aus der Dropdown-Liste auswählen, wird das zugehörige Bild sofort angezeigt. Siehe Screenshot:

Die oben beschriebene Methode mag für die meisten von uns kompliziert sein. Deshalb stelle ich hier eine praktische Funktion vor – Bild-Dropdown-Liste von Kutools für Excel. Mit diesem nützlichen Werkzeug erstellen Sie mehrere Dropdown-Listen samt zugehöriger Bilder mit nur wenigen Klicks.

1. Erstellen Sie zunächst zwei Spalten in Ihrem Arbeitsblatt – eine für die Produktnamen und eine für die zugehörigen Bilder.

2. Klicken Sie anschließend auf Kutools > Dropdown-Liste > Bild-Dropdown-Liste, siehe Screenshot:

3. Ignorieren Sie im Bild-Dropdown-Liste-Dialogfeld Schritt 1, falls Sie die Spalten mit Zellwerten und Bildern bereits erstellt haben. Wählen Sie anschließend den ursprünglichen Daten- und Bildbereich sowie den Platzierungsbereich der Liste aus – siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK. Die Dropdown-Listen mit Bildern wurden in die ausgewählten Zellen eingefügt. Sobald Sie ein Element aus der Dropdown-Zelle auswählen, wird das entsprechende Bild sofort angezeigt – siehe untenstehende Demo:

Normalerweise können Sie die Funktion Speichern unter verwenden, um alle Bilder aus der Arbeitsmappe zu speichern. Gehen Sie wie folgt vor:

1. Klicken Sie auf Datei > Speichern unter. Wählen Sie im Fenster Speichern unter einen Ordner für die exportierten Dateien aus und anschließend Webseite (*.htm; *.html) aus der Dropdown-Liste Speichern unter-Typ. Siehe Screenshot:

2. Klicken Sie anschließend auf die Schaltfläche Speichern. Öffnen Sie den entsprechenden Ordner – dort finden Sie zwei Dateien: eine HTML-Datei sowie einen Ordner mit allen Bildern, Diagrammen und anderen Objekten aus der Arbeitsmappe. Siehe Screenshot:

3. Anschließend können Sie die Bilder bei Bedarf einfach in einen anderen Ordner ziehen.

Hinweis: Wenn Sie die Funktion Speichern unter verwenden, erhalten Sie jedes Bild zweimal – einmal in kleinerer und einmal in größerer Größe. So können Sie die Bilder mit höherer Auflösung nach Bedarf speichern.

Um alle Bilder aus einer Excel-Datei zu speichern, können Sie auch die Dateierweiterung in RAR ändern. Gehen Sie wie folgt vor:

1. Ändern Sie die Dateierweiterung von xlsx in rar, wie im folgenden Screenshot gezeigt:

2. Entpacken Sie anschließend die Datei. Im Ordner finden Sie drei Ordner und eine Datei – siehe Screenshot:

3. Öffnen Sie anschließend den Ordner xl und darin den Ordner media. Hier finden Sie alle Bilder ohne Duplikate – siehe Screenshot:

Falls Sie Kutools für Excel besitzen, können Sie mit der Funktion Diagramm exportieren schnell bestimmte Objekte wie Bilder, Diagramme oder Formen im gewünschten Bildformat exportieren.

1. Klicken Sie auf KUTOOLS PLUS > Import/Export > Diagramm exportieren, siehe Screenshot:

2. Führen Sie im Diagramm exportieren-Dialogfeld die folgenden Schritte aus:

• Wählen Sie die Option Bilderaus der Dropdown-Liste Typen;
• Geben Sie einen Ordner an, in dem Ihre exportierten Bilder gespeichert werden sollen;
• Klicken Sie dann auf die Dropdown-Liste neben Exportformat, um ein Format für Ihre Bilder auszuwählen.
• 

3. Klicken Sie abschließend auf die Schaltfläche OK. Alle Bilder in der aktuellen Arbeitsmappe wurden in den von Ihnen angegebenen Ordner gespeichert – siehe Screenshot:

Um die Bilder aus Aktuelles Arbeitsblatt zu löschen, kann Ihnen der folgende VBA-Code helfen. Gehen Sie wie folgt vor:

1. Aktivieren Sie das Arbeitsblatt, das die zu löschenden Bilder enthält.

2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro im Modul-Fenster ein.

VBA-Code: Löscht alle Bilder aus Aktuelles Arbeitsblatt

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Alle Bilder im aktiven Arbeitsblatt werden sofort gelöscht.

Falls Sie die Bilder nur aus einem bestimmten Zellbereich löschen möchten, hilft Ihnen der folgende einfache Code weiter.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro im Modul-Fenster ein.

VBA-Code: Löscht die Bilder aus einem Zellbereich

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Hinweis: Im obigen Code ist B4:C6 der Bereich, aus dem Sie die Bilder löschen möchten.

3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Die Bilder im Auswahlbereich werden dann sofort gelöscht. Siehe Screenshots:

Wenn Sie Kutools für Excel besitzen, können Sie mit der Funktion Bilder und Objekte löschen schnell alle Bilder aus einem Arbeitsblatt, mehreren ausgewählten Arbeitsblättern oder der gesamten Arbeitsmappe entfernen.

1. Klicken Sie auf Kutools > Löschen > Bilder und Objekte löschen. Siehe Screenshot:

2. Aktivieren Sie im geöffneten Bilder und Objekte löschen-Dialogfeld das Kontrollkästchen Bilder im Abschnitt Löschen, und geben Sie anschließend im Abschnitt Suchen in den gewünschten Geltungsbereich an. Siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche OK, und alle Bilder werden wie angegeben aus dem Arbeitsblatt, den ausgewählten Arbeitsblättern oder der gesamten Arbeitsmappe gelöscht.