Здравствуйте форумчане. Подскажите с решением проблемы.
Имеется код, определяющий размеры фотографии, лежащей по определенному адресу.
Структура кода такова: Имеется пользовательская функция, а затем макрос ссылающийся на эту функцию.
Как изменить этот код - чтобы не было пользовательской функции и ссылок на нее ?
Чтобы то содержимое, которое сейчас находится в теле функции - находилось в теле макроса.
Вот сам код в настоящий момент:
[vba]Код
Function TimeFilms(ByVal sFilePath) As String
Dim objShell As Object
Dim objFolder As Object
Dim objItem As Object
Dim strDate$
Dim ObjFile As Object
Set ObjFile = CreateObject("Scripting.FileSystemObject").getfile(sFilePath)
Set objFolder = CreateObject("Shell.Application").Namespace(ObjFile.parentFolder.Path)
Set objItem = objFolder.Items.Item(ObjFile.Name)
strDate = objFolder.GetDetailsOf(objItem, 31)
Set objItem = Nothing: Set objFolder = Nothing: Set ObjFile = Nothing
TimeFilms = strDate
End Function
Sub Макрос1()
Range("F6") = (TimeFilms(Range("C2")))
End Sub
[/vba]