Como extrair hiperlinks de várias imagens no Excel?
Digamos que você tenha uma lista de imagens em uma planilha, e cada imagem contém um hiperlink, agora, você gostaria de extrair os endereços de hiperlink reais dessas imagens para suas próximas células, como mostrado a seguir. Claro, você pode copiar o endereço do hiperlink do Editar hiperlink caixa um por um, mas, isso será demorado se houver vários hiperlinks necessários para serem extraídos. Neste artigo, vou apresentar alguns métodos para resolver essa tarefa de forma rápida e fácil no Excel.
Extraia hiperlinks de várias imagens com código VBA
Extraia hiperlinks de várias imagens com código VBA
O código VBA a seguir pode ajudá-lo a extrair os endereços reais de várias imagens com hiperlink de uma vez, faça o passo a passo:
1. Segure o ALT + F11 chaves no Excel para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.
Código VBA: extraia endereços reais de várias imagens com hiperlink
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. Então aperte F5 chave para executar este código, e todos os endereços de hiperlink foram extraídos nas células correspondentes ao lado das imagens, consulte a captura de tela:
Note: Este código extrairá endereços reais de todas as imagens na planilha atual.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!