Passwortgeschützt, woher weiss ich nicht! Heiko?
02.03.2006 14:46:16
clonch
deinen Code habe ich bei mir eingebaut. Seither krieg ich die Arbeitsmappe nicht ohne Passwort auf. atpvbaen.xls und funcres.xla in der Projektübersicht geht nur mit Passwort auf. Das grosse Übel ist, dass mein eigens erarbeiteter Code nun auch nicht mehr hervorgeholt, geschweige denn gebraucht werden kann. Ich blick ja nicht wirklich durch als VBA-Anfänger. Aber vielleicht kannst Du mir wieder aus der Patsche helfen.
Besten dank!
clonch
Bezieht sich auf diese Nachricht:
Hallo clonch,
z.B. so, damit werden alle .jpg Bilder im angebenen Ordner ins Sheet eingefügt.
Ordner natürlich anpassen !!!
Sub BilderRein()
Dim lngI As Long
With Application.FileSearch
.NewSearch
.LookIn = "C:\Copy"
.SearchSubFolders = False
.Filename = "*.jpg"
.Execute
For lngI = 1 To .FoundFiles.Count
' Damit kann man gleich noch die Bildposition vertical festlegen.
ActiveSheet.Pictures.Insert(.FoundFiles(lngI)).Top = lngI * 100
' oder ohne position so.
' ActiveSheet.Pictures.Insert .FoundFiles(lngI)
Next lngI
End With
End Sub