Bilder per VBA einfügen
28.10.2019 17:16:57
Thorsten
ich versuche per Combobox Bilder aus aus einem Ordner in eine Tabelle ein zu fügen.
Hierzu habe ich mir fogenden Code "gebastelt"
Private Sub ComboBox2_Change()
Const strPATH = "C:\Desktop\Test\Bilder\"
Dim M As String
Dim rngZielZelle As Range
On Error Resume Next
ActiveSheet.Shapes("Bild_1").Delete
On Error GoTo 0
Set rngZielZelle = ActiveSheet.Cells(9, 3)
With ActiveSheet.Pictures.Insert(strPATH & Me.ComboBox2.Text & ".png")
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 45
End With
.Placement = xlMoveAndSize
.Top = rngZielZelle.Top + ((rngZielZelle.Height - .ShapeRange.Height) / 2)
.Left = rngZielZelle.Left + ((rngZielZelle.Width - .ShapeRange.Width) / 2)
Set Pic = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
Pic.Name = "Bild_1"
End With
End Sub
Das funktioniert auch alles soweit gut.
Leider sind jedoch nicht alle Bilder im Format .png.
Wie kann ich das ganze erweiteren, damit ich auch .jpg-Bilder einfügen kann.
Lieben Dank schon einmal vorab für eure Hilfe!