Note: The other languages of the website are Google-translated. Back to English

Wie füge ich mehrere Bilder ein und ändere sie gleichzeitig in Excel?

Es ist für uns einfach, ein Bild in Excel einzufügen. Wenn Sie jedoch mehrere Bilder gleichzeitig einfügen müssen, um viel Zeit zu sparen, wie können Sie dies tun?


Fügen Sie mehrere Bilder ein und ändern Sie die Größe in großen Mengen mithilfe der Funktion "Bild einfügen"

Mit der Funktion (Bild einfügen) in Excel können wir mehrere Bilder in großen Mengen einfügen und dann gleichzeitig die Größe ändern. Bitte gehen Sie wie folgt vor:

1. Klicken Sie im Arbeitsblatt auf Insert > Bild.

2. Öffnen Sie im Dialogfeld "Bild einfügen" den Ordner mit den Bildern, die Sie einfügen möchten, wählen Sie nach Bedarf mehrere Bilder aus und klicken Sie auf Insert Taste. Siehe Screenshot:
Hinweis: Halten Ctrl Mit dieser Taste können Sie mehrere nicht benachbarte Bilder auswählen, indem Sie nacheinander darauf klicken. Halten Verschiebung Mit der Taste können Sie mehrere benachbarte Bilder auswählen, indem Sie auf das erste und das letzte Bild klicken.

Jetzt werden Bilder in großen Mengen eingefügt und im Arbeitsblatt gestapelt.

3. Lassen Sie diese Bilder ausgewählt und ändern Sie die Größe in großen Mengen, indem Sie in beide eine neue Nummer eingeben Breite und Höhe Boxen in der Reifengrößen Gruppe auf der Format Tab. Siehe Screenshot:

Jetzt werden alle eingefügten Bilder gleichzeitig auf die gleiche Größe geändert.

4. Derzeit müssen Sie jedes Bild manuell an einen geeigneten Ort verschieben.

Hinweis: Wenn Dutzende von Bildern gestapelt sind, ist es ziemlich zeitaufwändig, sie manuell an die richtigen Stellen zu verschieben.

Batch-Einfügen mehrerer Bilder, die mit dem Zelleninhalt in Excel übereinstimmen

Das Spiele importieren Die Funktion von Kutools für Excel ist ein fantastisches Tool, mit dem Sie mehrere Bilder basierend auf dem Zelleninhalt stapelweise importieren und einfügen und die Größe importierter Bilder in der Größe der Zelle oder auf die angegebene Größe problemlos ändern können.


Anzeigenübereinstimmung importierte Bilder 01

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! Hol es dir jetzt

Fügen Sie mehrere Bilder ein und ändern Sie die Größe mit OneNote

Um zu vermeiden, dass Stapelbilder nacheinander verschoben werden, führt diese Methode einen weiteren Trick ein, um mithilfe von OneNote mehrere Bilder einzufügen. Bitte gehen Sie wie folgt vor:

1. Starten Sie OneNote und erstellen Sie eine neue Seite. Und dann klicken Insert > Bild.

2. Öffnen Sie im Dialogfeld "Bild einfügen" den Ordner mit den Bildern, die Sie einfügen möchten, wählen Sie nach Bedarf mehrere Bilder aus und klicken Sie auf Insert Taste. Siehe Screenshot:
Hinweis: Halten Ctrl Mit dieser Taste können Sie mehrere nicht benachbarte Bilder auswählen, indem Sie nacheinander darauf klicken. Halten Verschiebung Mit der Taste können Sie mehrere benachbarte Bilder auswählen, indem Sie auf das erste und das letzte Bild klicken.

doc mehrere Bilder einfügen OneNote 032

3. Drücken Sie Ctrl + A Tasten, um alle in OneNote eingefügten Bilder auszuwählen, und drücken Sie dann Ctrl + C Schlüssel zum Kopieren.

4. Gehen Sie zum Arbeitsblatt in Excel und drücken Sie Ctrl + V Tasten zum Einfügen der Bilder in das Arbeitsblatt. Jetzt werden alle Bilder vertikal eingefügt, wie im linken Screenshot gezeigt.

5. Wählen Sie eines der Bilder aus und drücken Sie Ctrl + A Tasten, um alle auszuwählen. Ändern Sie dann die Größe der Bilder in großen Mengen, indem Sie in beide neue Zahlen eingeben Breite und Höhe Boxen in der Reifengrößen Gruppe auf der Format Tab. Siehe Screenshot:

Jetzt werden alle angegebenen Bilder in Excel eingefügt und in großen Mengen auf die gleiche Größe angepasst.


Fügen Sie mehrere Bilder mit VBA-Code in Excel ein

Mit dem folgenden VBA-Code können Sie mehrere Bilder Zelle für Zelle in eine Excel-Datei einfügen.

1. Wählen Sie die erste Zelle des Zielbereichs aus, in die Sie Bilder einfügen möchten.

2. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

3. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.

Sub InsertPictures()
'Update 20140513
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 dann die Taste F5 Schlüssel zum Ausführen dieses Codes.

5. Öffnen Sie im Dialogfeld "Öffnen" den Ordner mit den Bildern, die Sie einfügen möchten, wählen Sie mehrere Bilder aus, die Sie einfügen möchten, und klicken Sie auf Offen Taste. Alle ausgewählten Bilder wurden basierend auf der Zellengröße in Ihre Auswahl importiert. Siehe Screenshot:


Fügen Sie mehrere Bilder ein und passen Sie sie mit Kutools for Excel automatisch an

Kutools for Excel Bilder importieren Mit dem Dienstprogramm können Sie schnell mehrere Bilder basierend auf der Zellengröße oder Bildgröße in Excel einfügen. Sie können die Höhe und Breite der Bilder nach Bedarf festlegen.

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! Hol es dir jetzt

1. Klicken Sie Kutoolen Plus > Import / Export > Bilder importieren, siehe Screenshot:

2. In dem Bilder importieren Dialogfeld, bitte gehen Sie wie folgt vor:
(1) Geben Sie die Anzeigereihenfolge der Bilder aus dem an Importauftrag Dropdown-Liste können Sie wählen Füllen Sie vertikal Zelle für Zelle or Horizontal Zelle für Zelle füllen.
(2) Klicken Sie auf Verwenden Sie Klicken Sie auf die Schaltfläche, um die Bilddateien oder den Ordner auszuwählen, um die Bilder zur Bildliste hinzuzufügen. Alle Ihre ausgewählten Bilder werden im Listenfeld aufgelistet.
(3) Klicken Sie auf Größe importieren Taste;

3. Jetzt in der Bildgröße importieren Im Dialog können Sie die Bildgröße auswählen, die Ihren Anforderungen entspricht. Siehe Screenshot:

4. Nachdem Sie die Bildgröße angegeben haben, klicken Sie bitte auf OK um diesen Dialog zu schließen und zurück zum Bilder importieren Dialog, klicken Sie auf Import Schaltfläche zum Importieren der Bilder.

5. Wählen Sie im neuen Dialogfeld Bilder importieren die erste Zelle des Zielbereichs aus, in den Sie Bilder einfügen möchten, und klicken Sie auf OK .

Derzeit wurden alle ausgewählten Bilder vertikal oder horizontal aus der aktiven Zelle in Ihre Zellen eingefügt. Siehe rechten Screenshot:

Das Bilder importieren Die Funktion von Kutools für Excel dient zum gleichzeitigen Einfügen eines Bildstapels mit übereinstimmender Zellengröße, angegebener Größe oder eigenen Bildgrößen in Excel. Haben Sie eine kostenlose Testversion!


Fügen Sie mit Kutools for Excel mehrere Bilder ein, die mit ihren Namen übereinstimmen

Kutools für Excel unterstützt auch eine dramatische Spiele importieren Funktion zum Abgleichen von Bildern und Zelleninhalten und zum Einfügen übereinstimmender Bilder nur in großen Mengen in Excel.

Kutools for Excel - Enthält mehr als 300 praktische Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! Hol es dir jetzt

1. Wählen Sie die Bildnamenszellen aus, in die Sie die entsprechenden Bilder einfügen möchten, und klicken Sie auf Kutoolen Plus > Import / Export > Spiele importieren. siehe Screenshot:

2. Gehen Sie im angezeigten Dialogfeld "Bilder importieren" wie folgt vor:
(1) Geben Sie die Anzeigereihenfolge der Bilder aus dem an Importauftrag Dropdown-Liste;
(2) Klicken Sie auf Verwenden Sie Schaltfläche, um die Bilder zum Bildlistenfeld hinzuzufügen. Zu Ihrer Information werden nur übereinstimmende Bilder aufgelistet.
(3) Klicken Sie dann auf Größe importieren .

3. Jetzt in der Bildgröße importieren Im Dialogfeld können Sie die Bildgröße auswählen, die Ihren Anforderungen entspricht, und auf klicken Ok Taste. Siehe Screenshot:

4. Nun kehren Sie zum zurück Bilder importieren Dialog, klicken Sie auf Import Schaltfläche zum Importieren der Bilder.

5. Geben Sie im Dialogfeld "Bilder importieren" die erste Zelle des Zielbereichs an, in den Sie Bilder einfügen möchten, und klicken Sie auf OK Taste. Siehe Screenshot:

Bisher werden alle Bilder anhand ihrer relativen Namen in die Zellen eingefügt. Siehe rechten Screenshot:

Das Spiele importieren Mit der Funktion von Kutools für Excel können Excel-Benutzer Bilder schnell nach Zellenwerten filtern und diese Bilder dann in großen Mengen einfügen. Darüber hinaus können diese übereinstimmenden Bilder automatisch auf die angegebene Größe oder Zellengröße angepasst werden. Haben Sie eine kostenlose Testversion!


Demo: Fügen Sie mehrere Bilder ein und ändern Sie die Größe in Excel gleichzeitig

Kutools for Excel enthält mehr als 300 praktische Tools für Excel, die Sie ohne Einschränkung kostenlos ausprobieren können 30 Tage. Kostenlose Testversion jetzt!      Jetzt kaufen!


In Verbindung stehende Artikel


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (47)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Die Anleitung mit der Überschrift: Mehrere Bilder mit VBA-Code in Excel einfügen ist einfach genial schnell und effektiv!!! Dies ist eine gute Alternative, um Plugins zu kaufen und zu installieren. Das ist mein erster Kommentar online!! Respekt!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich kann das InsertPictures-Modul verwenden und es funktioniert bis zu jpg einwandfrei. Es will jedoch nicht für PNG funktionieren. können Sie mir bitte einen Ratschlag geben? Grüße, Lorenz
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Im ersten Thema „Einfügen mehrerer Bilder in Excel mit VBA-Code“, wie fügen Sie ein Bild in zwei Zellen ein. Beispielsweise wird das erste Bild in die Zellen A1 und A2 eingefügt, das zweite Bild wird in die Zellen A3 und A4 eingefügt und so weiter.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
gute Unterstützung für Excel ... ihr helft wirklich Zeit zu sparen. Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guter Eintrag! Aber ich habe andere Möglichkeiten, dasselbe zu tun..... =================================== ============ Sub ipic() Dim i As Integer For i = 2 To 10 Cells(i, 1).Select Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Select With Selection .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Ende mit nächstem Bereich ("a1"). Wählen Sie End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Version von Kuttools für Mac?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist es möglich, diesen VBA-Code zu ändern, um 4 Bilder in ein gitterartiges Muster wie folgt einzufügen: Bild1 in A1, Bild2 in A2, Bild3 in B1 und Bild4 in B2? Panzer!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Egal, ich habe herausgefunden, wie es geht :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, könnten Sie bitte den geänderten Code teilen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub InsertPictures() 'Update 20140513 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
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Könnten Sie mir bitte helfen, den Code zu ändern, um die zusammengeführte Spalte und Zeile einzufügen. Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wählen Sie die Zellen aus und ändern Sie die Größe nach Breite und Höhe nach Bedarf. Wenn Sie zehn Bilder haben, wählen Sie zehn Zellen oder mehr aus, und wählen Sie mehr aus. drücken Sie dann Alt + F11, klicken Sie dann auf EINFÜGEN, DANN klicken Sie auf MODUL, DANN FÜGEN SIE DEN FOLGENDEN CODE SO EIN, WIE ER IST 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 + 20140513 Next End If End Sub AFTER THE OBEN CODE DRÜCKEN SIE F1 .. DANN WÄHLEN SIE DIE DATEIEN VOM COMPUTER AUS, WO SIE SIND. BIS ZU UNSEREM BEDARF. WENN SIE DAS ARBEITSBUCH NICHT GESPEICHERT HABEN, DANN WIRD ES BITTEN, ES ZU SPEICHERN. WENN U ES BEREITS GESPEICHERT HAT . DANN IST UR JOB HOFFNUNG DAS HILFT.. Ali..!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank, es funktioniert
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo EXcel-Meister, ich habe 2 Excel-Tabellen. Eines mit mehr als hundert Bildern und Beschreibung des Bildes in der nächsten Zelle daneben. Das andere Blatt nach der Auswahl wurde wahrscheinlich mit 40 Beschreibungen belassen. Wie kann ich die Bilder gemäß meiner Auswahl auf dieses Blatt übertragen? Danke al
Dieser Kommentar wurde vom Moderator auf der Website minimiert
oder Sie verwenden direkt image-xls . Mit diesem Excel-Add-In können Sie eine unbegrenzte Anzahl von Bildern in eine Excel-Zelle oder als Kommentar einfügen. Es ändert auch die Größe Ihrer Bilder. und es ist möglich, Ihre Excel-Tabelle zu ordnen und zu filtern, einschließlich der Bilder!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich bin Mac-Benutzer und sobald ich den Code in das neue Modul kopiert und ausgeführt habe, passiert nichts. Muss ich in Mac etwas tun, um den VBA-Code auszuführen? Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]oder Sie verwenden direkt image-xls . Mit diesem Excel-Add-In können Sie eine unbegrenzte Anzahl von Bildern in eine Excel-Zelle oder als Kommentar einfügen. Es ändert auch die Größe Ihrer Bilder. und es ist möglich, Ihre Excel-Tabelle zu ordnen und zu filtern, einschließlich der Bilder!Von Armin[/quote] [quote]Die Anleitung mit der Überschrift: Mehrere Bilder per VBA-Code in Excel einfügen ist einfach genial schnell und effektiv !!! Dies ist eine gute Alternative, um Plugins zu kaufen und zu installieren. Das ist mein erster Kommentar online!! Respekt!Von Rahul Gupta[/quote] Ich habe das versucht und scheint gut zu funktionieren - aber Sie können die Excel-Liste einschließlich der Bilder nicht ordnen oder filtern. Außerdem sind die Bilder nicht proportional skaliert. also habe ich image-xls gekauft - hat ein bisschen gekostet, aber alles was ich brauche
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo! Gibt es einen Grund, warum "Sub InsertPictures()" in Excel 2003 nicht funktioniert? Den Verweis auf Microsoft.Scripting.Runtime habe ich bereits hinzugefügt. Danke im Voraus Gilberto
Dieser Kommentar wurde vom Moderator auf der Website minimiert
es hilft mir sehr. Es ist so schöne Arbeit....... Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe den Code in meiner Tabelle ausprobiert und es hat perfekt funktioniert. Bis ich versuche zu filtern. Stellen Sie fest, dass das letzte Bild immer im Filterergebnis angezeigt wird. wer kann helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Mit dem folgenden VBA-Programm kann das Bild nicht in die verbundene Zelle eingefügt werden, Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(P cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Bitte raten Sie mir, die VBA zu ändern .
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey zusammen, das ist großartig! Ich verfolge deine Tutorials schon seit einiger Zeit. Ich hatte gehofft, Sie könnten mir dabei helfen, wie kann ich dies ändern, indem ich die Bilder in einer Spalte in eine Reihe klebe? Und wie kann ich den "Vollständigen Dateinamen (dh example_image.jpg)" in die Zeile darüber einfügen. Zeile 'A': "Dateiname.jpg" Zeile 'B': "Miniaturbild" Danke!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey, ich habe die Bilder mit meinem eigenen VBE-Code eingefügt. Und jetzt habe ich versucht, es mit den anderen zu teilen, leider können sie die Bilder nicht sehen..... Ich wäre dankbar, wenn mir jemand sagen könnte, was mir fehlt. Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dieser Code funktioniert fast für meine Bedürfnisse. Ich habe 200 Bilder, jedes Bild muss auf einem eigenen Blatt stehen. Wie gehe ich vor?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie kann ich den folgenden Code so ändern, dass Bilder in einem ausgewählten Zellbereich über mehrere Spalten und Zeilen hinweg gefüllt werden und nicht in aufeinanderfolgenden Zellen in aufeinanderfolgenden Zeilen in derselben Spalte? Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL