Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder einfügen

Bilder einfügen
21.05.2004 10:57:52
Horst
Hallo,
ich hab eine Datei, in der in Spalte A Artikelnummern stehen. Jetzt möchte ich über eine Formel (oder VBA?) das passende Produktbild einfügen. Diese Bilder sind mit der Artikelnummer als Dateiname gespeichert. Wie schaffe ich das?
PS: Habe null Ahnung von VBA! :-(

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder einfügen
21.05.2004 11:27:46
FloGo
Hallo Horst
Dateityp der Bilder (.jpg, .gif,...)?
Bestimmte Größe? oder passt die Größe schon?
FloGo
AW: Bilder einfügen
Horst
Dateityp ist jpg. Wäre Klasse wenn man das Automatisch festlegen kann.
AW: Bilder einfügen
21.05.2004 11:50:02
FloGo
Ok Horst mit folgendem Code klappt es bei mir ohne Probleme:

Sub Bild()
Dim art As String
Dim n As Long
Dim gr As Double
gr = Cells(1, 5) 'kannst du auch so festlegen; z.B.: w=0,2 h=0,2
n = 0
Do
n = n + 1
Loop Until IsEmpty(Cells(n, 1))
n = n - 1
For i = 1 To n
art = Cells(i, 1)
Cells(i, 2).Activate  'hier kann angepasst werden wo das Bild eingefügt werden soll
'z.B.: Spalte C: cells(i, 3).activate
ActiveSheet.Pictures.Insert("C:\Test\" & art & ".jpg").Select 'Pfad anpassen!!!
Selection.ShapeRange.ScaleWidth gr, msoFalse, msoScaleFromTopLeft  'oder w durch Zahl ersetzen
Selection.ShapeRange.ScaleHeight gr, msoFalse, msoScaleFromTopLeft 'oder h durch Zahl ersetzen
Cells(i, 1).Select
Next i
End Sub

'Dieses Makro fügt zu jedem Produkt, das in Spalte A steht, das passende Bilde in Spalte B hinzu!
'Die Größe muss in E1 eingegeben werden; kann aber auch im Code durch Zahl ersetzt werden (z.B. 0,2)
Kopier diesen Code in ein allgemeines Modul und rufe ihn dann mit "Call Bild" über einen
CommandButton auf!
FloGo
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige