mit folgendem Makro füge ich derzeit semi-automatisch Bilder in eine Exceldatei ein:
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Dim srcName As String
ActiveCell.Select
Selection.RowHeight = 180
'Selection.ColumnWidth = 14
srcName = Application.GetOpenFilename
Debug.Print srcName
ActiveSheet.Pictures.Insert(srcName).Select
Do While InStr(1, srcName, "\", 1) "hier steht ein größer" 0
srcName = Mid(srcName, InStr(1, srcName, "\", 1) + 1)
Loop
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Die Bilder, die ich einfüge sind alle nach dem selben Schema benannt. Der Name des Bildes, z.B.: 2.22, steht in der ersten Spalte der Tabelle. Es muss doch möglich sein, dass ich das ganze auf Vollautomatisch umstelle? Das Makro könnte sich doch einfach den Dateinamen aus der ersten Spalte nehmen.
Grüße Simon