Ich bin kurz vor Verzweiflung. Ich finde zwar überall hilfestellung aus alten Forenbeiträge kann diese aber nicht auf meine Anwendung adaptieren.
Gerne möchte ich folgendes bewerkstelligen.
Automatisches einfügen der JPG's gemäss dem Wert in Spalte A in die jeweilige Zelle.
Anpassung des Formates auf die Zellgrösse inkl. Ausrichtiung in die Mitte.
Wenn irgendwie möglich ev. 95% reduziert, damit der Zellrahmen nicht abgedeckt wird.
Dies geschieht durch Doppelklick des jeweiligen Blattes.
Sollt erneut Doppelgeklickt werden, um die Bilder zu aktualisieren müssen zuerst alle Bilder gelöscht werden.
Mein bisheriger Code:
Option Explicit
Const cstrDestination = "D:\"
Sub x()
Dim i As Long, strFile As String, objPic As Picture
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
strFile = cstrDestination & Cells(i, 1).Value & ".jpg"
If Len(Dir(strFile)) > 0 Then
Set objPic = ActiveSheet.Pictures.Insert(strFile)
objPic.Left = Cells(i, 1).Left + (Cells(i, 1).Width / 2) - (objPic.Width / 2)
objPic.Top = Cells(i, 1).Top
objPic.Height = Cells(i, 1).Height
objPic.Width = objPic.Height
End If
Next
End Sub
Besten Dank im voraus für eure Bemühungen