|
Hallo Zusammen,
ich würde gern mithIlfe einer Userform (neben weiteren Daten) ein Bild aus dem Explorer auswählen und dieses dann in einer Tabelle in eine gewissen Zeile platzieren. Das hochladen des Bildes und anzeigen im Tabellenblatt funktioniert schon gut. Leider fehlt mir bislang nur jeder Ansatz, um das Bild in eine konkrete Zelle zu legen. Ich hoffe, jemand kann mir da helfen? Bisheriger Code dazu:
Sub BildEinfügenButton_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.ButtonName = "Einfügen"
.Title = "Bitte einzufügendes Bild auswählen"
.Filters.Clear
.Filters.Add "JPG", "*.JPG"
.Filters.Add "JPEG File Interchange Format", "*.JPEG"
.Filters.Add "Graphics Interchange Format", "*.GIF"
.Filters.Add "Portable Network Graphics", "*.PNG"
.Filters.Add "Tag Image File Format", "*.TIFF"
.Filters.Add "All Pictures", "*.*"
If .Show = -1 Then
Dim img As Object
Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))
'Set image sizes
img.Width = 150
img.Height = 150
Else
MsgBox ("Cancelled.")
End If
End With
End Sub
|