Приветствую всех!
Год назад програмировал в байзике последний раз, а до этого последний раз был года за два. Вобщем позабыл многое, прошу вашей помощи.

Что есть сейчас:
авторSub m()


ActiveSheet.PasteSpecial Format:="Рисунок", Link:=False, DisplayAsIcon:= _
False
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 140
Selection.ShapeRange.Width = 210
End Sub

что хочу получить:
автор
Set fs = Application.FileSearch
With fs
.LookIn = Range("E2")
.Filename = textNamefile
.SearchSubFolders = True


If .Execute > 0 Then

For j = 1 To .FoundFiles.Count

ActiveSheet.Pictures.Insert(.FoundFiles(1)).Select

Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 140
Selection.ShapeRange.Width = 210

Next j
знаю что Application.FileSearch не работает в офисе 2007, нашёл вот это, но никак не могу объединить ((
авторSub SelectFolder2SearchFiles()

Dim fileToOpen As String
Dim dirPath As String

fileToOpen = Application _
.GetOpenFilename()
If fileToOpen <> "" Then
MsgBox "Open " & fileToOpen
End If

dirPath = Left(fileToOpen, InStrRev(fileToOpen, "\"))

MsgBox "Путь к выбранному файлу " & dirPath
End Sub
Т.е. хочу чтобы макрос работал таким образом: я выбираю папку с фотками, макрос все фотки которые есть в папке берёт и ставит в ячейки по возрастанию в одной колонке (желательно с выбором колонки) с нужными параметрами форматирования.
Помогите собрать в кучу...а то как то неполучается ничего. С меня пиво ;)

creyn,

вот нашёл ещё что-то похожее...но пишут что в 2007 работает не корректно, пока пытаюсь запустить (файлы почемуто вообще не вставляет)

авторSub Vstavka_Kartinok()
Sheets("Лист2").Select
x = 1
Range("A1").Select
While Sheets("Лист2").Cells(x, 2).Text <> ""
x = x + 1
Wend
x = x - 1
For i = 2 To x
kartinka = Sheets("Лист2").Cells(i, 2).Value
Range("E" & CStr(i)).Select
ActiveSheet.Pictures.Insert("C:\Documents and Settings\Àäìèí\Ðàáî÷èé ñòîë\TUB 221" & CStr(kartinka) & ".bmp").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 152.2
Selection.ShapeRange.Width = 183.75
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
Next i
MsgBox ("Фото вставлены")
End Sub

creyn,

никто не может помочь?
последний скрипт не могу запустить, гдето ошибка, пишет файлы вставлены, а на самом деле ничего нет.

Кстати пользуюсь беткой 2010 офиса, думаю ещё из-за этого есть проблемы в работе.

спасибо за ответ!

действительно, сейчас прочитал ваше ссобщение, сравнил с кодом увидел эту проблему.
такой вопрос: как сделать так, чтобы скрипт работал автоматически? иначе теряется смысл если надо вставлять названия файлов.
хотябы чтобы нужно было только указать папку из которой брать и стартовую ячейку для певой фотографии. буду очень рад помощи.