Como obtenho um hiperlink de imagem em texto? [fechadas]

-4

Tenho imagens com hiperlinks (copiados da internet). Preciso converter os hiperlinks ocultos em URL em outra linha.

Como faço isso?

microsoft-excel images hyperlink

— raias
fonte

Poste um arquivo de amostra e explique em contexto. O que você tem onde ?? Hiperlinks sobre o que? Você copiou o conteúdo da página da web e colou no Excel como html? E agora você deseja extrair os URLs para as imagens? Por favor, entenda que não podemos ver sua tela. Você realmente precisa explicar corretamente o que precisa.

— teylyn

Você pode encontrar o arquivo aqui . Preciso do hiperlink dessas imagens para a linha de imagens do produto.

— raiks

Desculpe por isso, mas eu nunca tinha usado o Excel online e estava dando uma olhada em como funciona e excluí uma de suas colunas. Presumi que os dados não seriam salvos, mas pareciam por algum motivo.

— PeterJ

Guardá-lo em seu computador e você pode usar regularmente excel

— raiks

Você não nos deu muitas informações sobre COMO deseja fazer isso, então aqui está a maneira funcional básica de fazê-lo.

Clique com o botão direito na imagem, selecione Edit Hyperlink
Marque URLa Addresscaixa

insira a descrição da imagem aqui

Pressione Ctrl+ cpara copiá-lo
Feche a janela
Selecione a célula que você deseja colar o hiperlink
Pressione Ctrl+ vpara colar

insira a descrição da imagem aqui

Podem ser realizadas formas mais automatizadas de fazer isso, mas requer conhecimento de recursos avançados no Excel para usar o VBA. Não sabemos qual é o seu nível de experiência e você não explicou o que tentou ou fez por conta própria.

Para automatizar isso usando o VBA, adicione o código abaixo ao explorador do VBA em Sheet1.

Você pode acessar a janela do VBA pressionando Alt+ F11.

insira a descrição da imagem aqui

Código:

Sub GetImangeHyperlinks()

Dim shp As Shape
Dim sTemp As String

For Each shp In ActiveSheet.Shapes
    sTemp = ""
    On Error Resume Next 'go to next shape if no hyperlink
    sTemp = shp.Hyperlink.Address
    On Error GoTo 0
    If sTemp <> "" Then
        'activate the cell the image is in    
        shp.TopLeftCell.Activate
        'paste down one row and back one column
        ActiveCell.Offset(1, -1).Value = sTemp 
    End If
Next

End Sub

Para executar o código, coloque o cursor pela palavra Sub, no início do código, e pressione F5. Ele deve ser executado rapidamente e os resultados devem ser assim.

insira a descrição da imagem aqui

— CharlieRB
fonte

Obrigado! É isso que eu quero dizer, mas preciso de uma versão automatizada. Existem mais de 1000 fotos no meu arquivo original. Você pode me dizer e eu tento.

— raiks

Você conhece o VBA?

— precisa

Eu acho que posso lidar com isso

— raiks

Adicionadas instruções VBA.

— CharlieRB

De nada. Se esta resposta for aceitável, indique como tal uma marca de seleção na contagem de votos. Isso permite que os leitores saibam que existe uma resposta aceitável disponível durante a pesquisa.

— precisa