Bild in Zellen einer Spalte einfügen
30.11.2018 18:39:03
Kalle
ich möchte aus einer Datei ein oder mehrere Bilder in Spalte B einfügen lassen.- Untereinander Zeile für Zeile. Daneben in Spalte C sollte möglichst noch der Name des Bildes z.B. (Bild1") eingefügt werden.
Meine VB_Kenntnisse sind mit nachstehendem Code leider schon erschöpft. Damit wird zwar das gewünschte Bild eingefügt, aber leider nicht dort wo ich es gerne hätte. Ich komm einfach nicht weiter.
Toll wäre auch, wenn ich zum Auswählen der Bilder direkt auf den Ordner mit den Bildern zugreifen könnte. Dieser wird mit :
MkDir ActiveWorkbook.Path & "\Bildarchiv"
erstellt - falls er nicht schon vorhanden ist- und liegt deshalb immer relativ mit dem Namen "Bildarchiv" als Unterordner im gleichen Ordner wie die Datei.
Freue mich auf jede Unterstützung und bedanke mich schon mal ganz herzlich hierfür.
Viele Grüße Kalle
Sub Bild_Einfügen()
Dim Dat As String
Dim Zelle As Range
Dim ScaleA As Double
Set Zelle = ActiveCell 'hier soll das Bild rein
Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select
Dat = Application.GetOpenFilename(, , "Bild auswählen", , False)
Select Case Right(Dat, 3)
Case "bmp", "jpg", "tif", "gif"
ActiveSheet.Pictures.Insert(Dat).Select
With Selection.ShapeRange
.Top = Zelle.Top
.Left = Zelle.Left
ScaleA = WorksheetFunction.Min(Zelle.Width / .Width, Zelle.Height / .Height)
.Height = .Height * ScaleA
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Case Else
MsgBox "Sie haben kein gültiges Bild ausgewählt"
End Select
End Sub