Определение ширины и высоты фотографии

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение ширины и высоты фотографии (Макросы/Sub)

yl3d

Дата: Суббота, 10.03.2018, 00:42 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте форумчане. Подскажите с решением проблемы.

Имеется код, определяющий размеры фотографии, лежащей по определенному адресу.
Структура кода такова: Имеется пользовательская функция, а затем макрос ссылающийся на эту функцию.

Как изменить этот код - чтобы не было пользовательской функции и ссылок на нее ?
Чтобы то содержимое, которое сейчас находится в теле функции - находилось в теле макроса.

Вот сам код в настоящий момент:
[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]

К сообщению приложен файл: 2313682.rar (29.3 Kb)

Ответить

Pelena

Дата: Суббота, 10.03.2018, 08:53 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Может, так?
[vba]

Код

Sub TimeFilms() 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(Range("C2").Value)
    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
    Range("F6") = strDate
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

yl3d

Дата: Суббота, 10.03.2018, 17:04 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, спасибо

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение ширины и высоты фотографии (Макросы/Sub)

Страница 1 из 1
1