Como extrair hiperligações de várias imagens no Excel?
Imagine que tem uma lista de imagens numa folha de cálculo e que cada imagem contém uma hiperligação. Pretende agora extrair os endereços reais — o Endereço do hiperlink — dessas imagens para as respetivas células adjacentes, tal como ilustrado na seguinte captura de ecrã. É claro que pode copiar manualmente o Endereço do hiperlink da caixa Editar Hiperligação, um a um, mas este processo torna-se extremamente moroso se precisar de extrair múltiplas hiperligações. Neste artigo, apresento-lhe métodos práticos para resolver esta tarefa de forma rápida e fácil no Excel.
Extrair hiperligações de várias imagens com código VBA
Extrair hiperligações de várias imagens com código VBA
O seguinte código VBA pode ajudá-lo a extrair os endereços reais de várias imagens com hiperligações de uma só vez. Siga os passos abaixo:
1. Mantenha premidas as teclas ALT + F11 no Excel para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
Código VBA: Extrair endereços reais de várias imagens com hiperligações
Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
Dim xSh As Shape
Dim xScreen As Boolean
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xSh In ActiveSheet.Shapes
If xSh.Type = msoPicture Then
On Error Resume Next
Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
On Error GoTo 0
End If
Next
Application.ScreenUpdating = xScreen
End Sub
3. Em seguida, prima a tecla F5 para executar este código e todos os endereços dos hiperligações serão extraídos para as células correspondentes ao lado das imagens, conforme mostra a captura de ecrã:
Nota: Este código extrai os endereços reais de todas as imagens na folha ativa.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos