Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bilder einfügen, Dateiname steht als Text in Zelle

Bilder einfügen, Dateiname steht als Text in Zelle
17.12.2004 15:45:31
Musi
FRAGE 1
Ich habe ein Tabellenblatt A mit einer Spalte aus vollständigen Dateinamen für JPG-Bilder. Auf Tabellenblatt B möchte ich hieraus automatisch eine "Liste" der korrespondierenden Bilder erstellen.
(a) Wie läßt sich dies realisieren?
(b) Wie läßt sich die Größe der Bilder während der Listenerstellung angleichen (z.B. alle gleich hoch)?
(c) Wie lassen sich die Bilder der Liste fortlaufend untereinander anordnen?
FRAGE 2
Ich habe JPG-Bilder in ein Tabellenblatt A eingefügt und möchte diese auf einem anderen Tabellenblatt B - gesteuert über eine Bedingung - an einer bestimmten Position als Kopie einfügen.
z.B. =Wenn(a1=8;Bild1;Bild2)
Wie läßt sich dies realisieren?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bilder einfügen, Dateiname steht als Text in Zelle
19.12.2004 09:14:10
Hajo_Zi
Hallo Musi
schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA gibt es dazu paar Ansätze.
http://home.media-n.de/ziplies/gepackt/vba/bild_einfuegen.zip
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home und Excel Version XP 2003 SP1.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP2 und Excel Version 2003 SP1.


Anzeige
AW: Bilder einfügen, Dateiname steht als Text in Z
20.12.2004 11:48:32
Musi
Hallo Hajo,
vielen Dank für Ihre Reaktion.
Meine erste Frage konnte ich nach einigem Basteln mit Hilfe Ihres Beispieles klären.
Es bleibt mein 2. Problem, ein Bild, welches bereits in einer Tabelle vorliegt in eine andere Tabelle derselben Arbeitsmappe zu übernehmen.
Details:
- In "Tabelle 1" existiert das JPG-Bild mit Namen Shapes(1).Name = "Picture 1"
- Dieses soll in "Tabelle 2" eingefügt werden
WorkSheets("Tabelle2").Shapes.AddPicture WorkSheets("Tabelle1").Shape(1),True, True, 150,150,100,100
... ist hier keine Lösung.
WorkSheets("Tabelle2").Shapes.AddShape WorkSheets("Tabelle1").Shape(1),150,150,100,100
.... funktioniert auch nicht.
Haben Sie eine Idee?
Gruß Musi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bilder in Excel einfügen und Dateinamen nutzen


Schritt-für-Schritt-Anleitung

Um Bilder in Excel einzufügen und den Dateinamen in ein Bild einzufügen, kannst du die folgenden Schritte befolgen. Diese Anleitung ist für Excel 2003, funktioniert aber ähnlich in neueren Versionen:

  1. Bilder in Tabelle A einfügen: Füge deine JPG-Bilder auf „Tabelle 1“ ein.
  2. Dateinamen auf „Tabelle A“ auflisten: Erstelle eine Spalte mit den vollständigen Dateinamen der Bilder.
  3. Bilder in Tabelle B einfügen: Nutze die folgende VBA-Routine, um die Bilder automatisch in „Tabelle 2“ einzufügen:
    
    Sub BilderEinfügen()
       Dim ws1 As Worksheet
       Dim ws2 As Worksheet
       Dim i As Integer
       Set ws1 = ThisWorkbook.Worksheets("Tabelle1")
       Set ws2 = ThisWorkbook.Worksheets("Tabelle

Beliebteste Forumthreads (12 Monate)

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