---

Hallo zusammen,

möchte Bilder (*.jpg) in Zellen einfügen.

Wobei die Name des Bildes im Excel unterhalt der Zeile ist wo die Bilder eingeführt werden (Matrix).

Ich habe auch ein dem entsprechendes Makro gefunden.

Leider müssen die Bilder eine sechsstellige Nummer als Name haben.

Ist es möglich den Bildern einer Bezeichnung zur geben, z.B. Peter_01; Hans_09 usw.

Sub Bilder_Einfügen_II()
ActiveSheet.DrawingObjects.Delete
    On Error Resume Next
    Const strPATH = "C:\Documents and Settings\" ' anpassen !!!
    Dim ZELLE As Object
    Dim objShape As Object
'    Dim SpalteSuch As Byte
    Dim Zeilenversatz, Spaltenversatz As Byte
'    SpalteSuch = 5 'IDH-Spalte anpassen
    Zeilenversatz = -1 'Wieviele Zeilen Versatz, in der das Bild eingefügt wird, Achtung bei -(Minus) und 1. Zeile
    Spaltenversatz = 0 'Wieviele Spalten Versatz, in der das Bild eingefügt wird, ACHTUNG bei -(Minus) und 1. Spalte
    For Each objShape In ActiveSheet.Shapes
        If objShape.Type = msoPicture Then objShape.Delete
    Next
Application.ScreenUpdating = False
'    Set Bereich = ActiveSheet.Columns(SpalteSuch)
'    Zähler = Application.WorksheetFunction.Count(Bereich) + 1
    Range("A2", Range("A2").SpecialCells(xlLastCell)).Select
    For Each ZELLE In Selection
        If ZELLE.Value > 1 And ZELLE.Value < 9999999 Then
            If Dir$(strPATH & ZELLE.Value & _
                ".jpg", vbNormal) <> "" Then
                Set objShape = ActiveSheet.Pictures.Insert(strPATH & ZELLE.Value & ".jpg")
                objShape.Left = ZELLE.Left
                objShape.Top = ZELLE.Top
                With objShape
                    .Left = ZELLE.Offset(Zeilenversatz, Spaltenversatz).Left
                    .Top = ZELLE.Offset(Zeilenversatz, Spaltenversatz).Top
                    .ShapeRange.Width = ZELLE.Offset(Zeilenversatz, Spaltenversatz).Width
                    .ShapeRange.Height = ZELLE.Offset(Zeilenversatz, Spaltenversatz).Height
                End With
          End If
        End If
    Next ZELLE
    Set objShape = Nothing
Application.ScreenUpdating = True
End Sub

Gruss

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

auf die Schnelle, lasse die Abfrage weg

'      If ZELLE.Value > 1 And ZELLE.Value < 9999999 Then

und ändere ZELLE.value in ZELLE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo UGMANX,

Zitat:

---

Ich habe auch ein dem entsprechendes Makro gefunden.

---

Die Quellenangabe wäre nett, als Zeichen des Respekts vor dem Verfasser. SCNR

Zitat:

---

Leider müssen die Bilder eine sechsstellige Nummer als Name haben.

---

Wo? Meinst Du die Bezeichnung in Excel? Oder ist der Dateiname der Bilder eine sechsstellige Nummer á la 123456.jpg?

Zitat:

---

Ist es möglich den Bildern einer Bezeichnung zur geben, z.B. Peter_01; Hans_09 usw.

---

Wo? Bilder umbenennen - z. B. im Explorer - ist möglich. 'Peter_01' unter dem Bild in einer Excel-Zelle per Hand eintragen ist ebenfalls machbar. Welchen Teil davon meinst Du?

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

bild_einfuegen_01.xls.txt

Hallo Paulchen,

vielen dank für deine Netten fragen, zur deine frage mit dem Verfasser, es ist ein Arbeitskollege der im Urlaub ist über den Respekt würde ich sagen ..... .

Die Bilder und  haben folgende Bezeichnung 'Peter_01_Holland und Hans_01_Holland usw. ' und stehen unterhalb von Bild s. Anhang.

Vielen dank nochmals für deine Anregungen.

Gruß

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nach meinem Verständnis tut das (ungetestete) Makro folgendes: Im markierten Bereich werden oberhalb der Zellen Bilder aus dem festgelegten Verzeichnis eingefügt. In einer Schleife, und alle einzeln.

Der Dateiname des Bildes steht in den Zellen unterhalb der Bilder. Ich verstehe nicht, wie z. B. 'Hans_02_Holland' das Bild '307459'.jpg finden soll..?

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Paulchen,,

natürlich hat die Datei (.jpg) auch die gleiche Bezeichnung unterhalb der Bilder, wie z.B. Peter_01_Holland.jpg oder Hans_01_Holland.jpg.

Mein Makro funktioniert leider nur mit Zahlen!
Gruss

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hast du schon mal meine Antwort gelesen/verstanden/ausprobiert?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja

Sub Bilder_Einfügen_II()
ActiveSheet.DrawingObjects.Delete
    On Error Resume Next
    Const strPATH = "C:\Documents and Settings\' anpassen !!!
    Dim ZELLE As Object
    Dim objShape As Object
'    Dim SpalteSuch As Byte
    Dim Zeilenversatz, Spaltenversatz As Byte
'    SpalteSuch = 5 'IDH-Spalte anpassen
    Zeilenversatz = -1 'Wieviele Zeilen Versatz, in der das Bild eingefügt wird, Achtung bei -(Minus) und 1. Zeile
    Spaltenversatz = 0 'Wieviele Spalten Versatz, in der das Bild eingefügt wird, ACHTUNG bei -(Minus) und 1. Spalte
    For Each objShape In ActiveSheet.Shapes
        If objShape.Type = msoPicture Then objShape.Delete
    Next
Application.ScreenUpdating = False
'    Set Bereich = ActiveSheet.Columns(SpalteSuch)
'    Zähler = Application.WorksheetFunction.Count(Bereich) + 1
    Range("A2", Range("A2").SpecialCells(xlLastCell)).Select
    For Each ZELLE In Selection
            If Dir$(strPATH & ZELLE & _
                ".jpg", vbNormal) <> "" Then
                Set objShape = ActiveSheet.Pictures.Insert(strPATH & ZELLE & ".jpg")
                objShape.Left = ZELLE.Left
                objShape.Top = ZELLE.Top
                With objShape
                    .Left = ZELLE.Offset(Zeilenversatz, Spaltenversatz).Left
                    .Top = ZELLE.Offset(Zeilenversatz, Spaltenversatz).Top
                    .ShapeRange.Width = ZELLE.Offset(Zeilenversatz, Spaltenversatz).Width
                    .ShapeRange.Height = ZELLE.Offset(Zeilenversatz, Spaltenversatz).Height
                End With
          End If
    Next ZELLE
    Set objShape = Nothing
Application.ScreenUpdating = True
End Sub

Gruss

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ja?
und?
läuft immer noch nicht, oder?

Ist die Zeile

Const strPATH = "C:\Documents and Settings\' anpassen !!!

richtig geschrieben?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also,

es läuft wie von Thomas   beschrieben (xl07): Ohne .Value, Pfad angepasst, Dateien enden auf .jpg und heißen im Explorer genau so wie in Excel.

Die Sache mit den sechs Ziffern ist mir immer noch ein Rätsel.

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP