¿Cómo convertir URL de imágenes en imágenes reales en Excel?
Si tiene una lista de direcciones URL de imágenes en la columna A, y ahora, desea descargar las imágenes correspondientes de las URL y mostrarlas en la columna B adyacente como se muestra en la captura de pantalla de la izquierda. En Excel, ¿cómo podría extraer las imágenes reales de las URL de las imágenes de forma rápida y sencilla?
Convierta las URL de la imagen en imágenes reales con código VBA
Convierta las URL de la imagen en imágenes reales con Kutools para Excel
Convierta las URL de la imagen en imágenes reales con código VBA
El siguiente código VBA puede ayudarlo a extraer rápidamente las imágenes reales de las direcciones URL de la imagen, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
Código de VBA: convierta las URL de la imagen en imágenes reales:
Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End SubNotas:
- 1. En el código anterior, A2: A5 es el rango de celdas que contiene las direcciones URL de las que desea extraer las imágenes, debe cambiar las referencias de celda según sus necesidades.
- 2. Con este código, no puede especificar el tamaño de las imágenes extraídas a su necesidad.
- 3. El código anterior solo puede extraer las imágenes reales en las celdas además de su columna URL, no puede especificar la celda para generar las imágenes.
- 4. Debe tener algunos conocimientos básicos del código, si falta algún carácter o es incorrecto, el código no se ejecutará correctamente.
3. Entonces presione F5 clave para ejecutar este código, y todas las imágenes correspondientes se han extraído de las URL de la imagen a la columna adyacente a la vez, y las imágenes se colocarán en el centro de sus celdas específicas, vea la captura de pantalla:
Convierta las URL de la imagen en imágenes reales con Kutools para Excel
Si no está familiarizado con el código VBA o desea remediar la limitación del código anterior, Kutools for Excel's Insertar imágenes desde la ruta (URL) La función puede ayudarlo a insertar rápidamente las imágenes correspondientes a cpr según las direcciones URL o la ruta específica en su computadora, como se muestra a continuación. ¡Haga clic para descargar Kutools para Excel!
Después de instalar Kutools for Excel, haz lo siguiente:
1. Hacer clic Kutools > recuadro > Insertar imágenes desde la ruta (URL), en el cuadro de diálogo emergente, configure las siguientes operaciones, vea las capturas de pantalla:
 |
 |
 |
2. Luego, haz clic Ok botón, y las imágenes se extraerán de las URL, vea la captura de pantalla:
Haga clic para descargar y probar gratis Kutools para Excel ahora!
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!
