Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1472to1476
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
Inhaltsverzeichnis

Bilder per VBA einfügen

Bilder per VBA einfügen
30.01.2016 14:51:56
Schaffhauser
Hallo werte Damen & Herren
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder per VBA einfügen
30.01.2016 15:50:41
Schaffhauser
Hallo Hajo
Besten dank für den "Hint".
Bild Einfügen 11 entspricht am ehesten meinen Vorstellungen. Leider bin ich dem VBA in dieser komplexizität nicht gewachsen um das bei mir zu implementieren.
Gruss Patrick
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige