¿Cómo extraer hipervínculos de varias imágenes en Excel?
Digamos que tiene una lista de imágenes en una hoja de trabajo, y cada imagen contiene un hipervínculo, ahora, le gustaría extraer las direcciones de hipervínculo reales de estas imágenes a sus siguientes celdas como se muestra en la siguiente captura de pantalla. Por supuesto, puede copiar la dirección del hipervínculo del Editar hipervínculo recuadro uno por uno, pero esto llevará mucho tiempo si es necesario extraer varios hipervínculos. En este artículo, presentaré algunos métodos para resolver esta tarea rápida y fácilmente en Excel.
Extraiga hipervínculos de varias imágenes con código VBA
Extraiga hipervínculos de varias imágenes con código VBA
El siguiente código VBA puede ayudarlo a extraer las direcciones reales de las múltiples imágenes con hipervínculos a la vez, por favor hágalo paso a paso:
1. Mantenga pulsado el ALT + F11 teclas en Excel para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
Código VBA: extraiga direcciones reales de varias imágenes con hipervínculos
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. Entonces presione F5 clave para ejecutar este código, y todas las direcciones de hipervínculo se han extraído en las celdas correspondientes junto a las imágenes, vea la captura de pantalla:
Note: Este código extraerá direcciones reales de todas las imágenes en la hoja de trabajo actual.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!