0

Olá Tenho que fazer uma análise qualitativa de imagens que estão no meu site, tenho todos os arquivos em uma pasta e preciso trazer duas informações para o Excel: Nome do arquivo e suas dimensões. dimensões da imagem

2
  • Salve, meu caro! Em que parte do seu código você tem alguma dúvida? 23/02/2021 às 6:14
  • Salve, César! Há algum tempo montei uma macro que lista todos os arquivos dentro da pasta e me permite renomeá-los, no entanto preciso que que a parte que lista os documentos traga também essa info de dimensão do arquivo, porém não sei fazer isso, segue abaixo o cód que lista os documentos: gist.github.com/gutosantos1/27fb78be22a6dfde7a3c7d7c0c39ab16 24/02/2021 às 13:29

1 Resposta 1

0

As duas dimensões vêm juntas (provavelmente há uma propriedade que as traga separadas), mas testei aqui com uma imagem .jpg e consegui. É necessário fazer referência à biblioteca Microsoft Shell Controls and Automations.

Function PegarDimensoes() as String

Dim sh As New Shell32.Shell
Dim arq As Shell32.FolderItem
Dim CaminhoPasta As String
Dim NomeArquivo As String

CaminhoPasta = "C:\Users\usuarioTal\Desktop\"
NomeArquivo = "gatos_sorriso.jpg"

Set arq = sh.Namespace(CaminhoPasta).Items.Item(NomeArquivo)
PegarDimensoes = arq.ExtendedProperty("dimensions")

End Sub

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .