kann ich eine Grafik die ich mit dem Code:
Sub GraphicfileInZelleEinfuegen()
Dim strPfad As String
Dim strDatei As String
Dim Zeile As Long
Dim Spalte As Long
Dim wksTabelle As Worksheet
Dim shpNeu As Object
Dim Pfad As String
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Column = 14 Then shp.Delete
Next shp
Spalte = 14
Set wksTabelle = ActiveWorkbook.Worksheets("Tabelle11")
Pfad = "C:\Users\ADMIN\Desktop\Neuer Ordner\"
strPfad = Pfad
For Zeile = 1 To 8
jFile = "Code" & Cells(Zeile, "I") & ".png"
strDatei = jFile
If Right(strPfad, 1) "\" Then strPfad = strPfad & "\"
Set shpNeu = wksTabelle.Pictures.Insert(strPfad & strDatei)
shpNeu.Top = wksTabelle.Rows(Zeile).Top
shpNeu.Height = wksTabelle.Rows(Zeile).Height
shpNeu.Left = wksTabelle.Columns(Spalte).Left
shpNeu.Width = wksTabelle.Columns(Spalte).Width
Next
End Sub
Einfüge automatisch benennen nach dem Schema "Grafik"&Zeile (1-8)?Vielen Dank schonmal :)