Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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?

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

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige