Página 1 de 1

Nome da Picture inserida num Control Image

Enviado: 30 Jul 2020 às 08:42
por JCabral
É possível saber o nome da picture que está inserida num Control Image?

Ou seja, tenho uma Userform com um control Image com uma determinada Picture inserida, é possível saber o nome da Picture (imagem.jpg, photo.bmp, ....)?

Obrigado
Jorge Cabral

Nome da Picture inserida num Control Image

Enviado: 30 Jul 2020 às 09:12
por WagnerMorel
JCabral,

Bom dia!

Acho que não entendi muito bem seu questionamento... se você já tem um Userform com um controle de imagem e se essa imagem já é carregada no controle, então você tem o caminho completo, inclusive o nome do arquivo. Correto? Porque então saber o nome? Como assim?

Nome da Picture inserida num Control Image

Enviado: 30 Jul 2020 às 09:43
por AfonsoMira
Boas seria algo deste género?
Código: Selecionar todos
Private Sub UserForm_Initialize()

    Dim caminho As String, nomeImagem As String

    'Caminho onde se encontra a imagem
    caminho = ThisWorkbook.Path
    'Nome da imagem
    nomeImagem = "NomeDaImagem.jpg"
    
    With UserForm1.Image1
        'Carrega a imagem para a picture box
        .Picture = LoadPicture(caminho & "\" & nomeImagem)
    End With
    
    With txtNomeDaFoto
        'Escreve o nome da imagem
        .Text = nomeImagem
    End With
    
End Sub

Nome da Picture inserida num Control Image

Enviado: 30 Jul 2020 às 09:45
por JCabral
WagnerMorel

A questão que coloco julgo que é simples "Como posso saber o nome da Picture que está inserida num Control Image de uma Userform?"

A questão prende-se com o fluxo que tenho no meu código, ou seja dava-me jeito ter uma instrução que me desse qual o nome da Picture, ou seja fazendo uma analogia com uma textbox, no fundo era saber qual o "Value" do Control Image.

Re: Nome da Picture inserida num Control Image

Enviado: 30 Jul 2020 às 09:54
por JCabral
Boas Afonso Mira

Não é isso, era mais poder questionar qual o nome da Picture que está inserida em Image1, algo como (vou dar um exemplo que obviamente não funciona mas só para ter um ideia) :

Algo como Msgbox Userform1.Picture.Item("Image1").Name

Não sei se ficou claro o que pretendo.
Sei que existem outras maneira de fazer isto, mas a pergunta é se é possível fazer como refiro?
Obrigado

Nome da Picture inserida num Control Image

Enviado: 05 Ago 2020 às 10:23
por WagnerMorel
JCabral,

Bom dia!

Para fazer isso, antes de carregar a imagem para o controle Image1, salve o caminho completo onde está a imagem (inclusive o nome do arquivo e a extensão do mesmo) que será carregada em uma coluna qualquer da sua planilha Excel. Depois, crie adicione no seu formulário um controle TextBox e carregue nesse controle o caminho que está no Excel.

Nome da Picture inserida num Control Image

Enviado: 05 Ago 2020 às 13:43
por JCabral
Obrigado WagnerMorel, mas não é isso que pretendia.
Já vi que não existe forma de resolver o assunto do modo que gostaria e entretanto já resolvi o problema de outra forma atendendo às limitações existentes.
Obrigado