Extraer URLs de Imágenes enlazadas

November 1

Una forma que usted puede utilizar datos de Internet en una hoja de cálculo Excel es copiarlo desde una página Web y luego pegarlo en la hoja de trabajo. Por ejemplo, puede seleccionar una tabla de datos en una página Web, pulse Ctrl + C para copiar en el Portapapeles, seleccione una celda en Excel, a continuación, pulse Ctrl + V. Excel hace todo lo posible para analizar los datos y ponerlo en las células apropiadas, al igual que lo fue en la tabla original.

El problema es que a menudo tendrás algo más que los datos de la tabla. Si hubiera otros objetos en los datos que ha copiado desde la Web, los objetos también se pegan en la hoja de trabajo. No es raro que para terminar con todo tipo de pequeños gráficos en la hoja de trabajo. Si estos gráficos eran originalmente hipervínculos, es posible que desee extraer en realidad el hipervínculo y luego borrar el gráfico. Esto haría que los datos en la hoja de trabajo mucho más fácil de usar.

La manera de hacerlo es con una macro. Una vez que haya pegado la información de la Web en la hoja de trabajo, ejecute la macro siguiente.

ConvertHLShapes Sub ()
Env Dim Como Forma
Dim sTemp As String

Para cada env En ActiveSheet.Shapes
sTemp = ""
On Error Resume Next 'ir a siguiente forma si ningún hipervínculo
sTemp = shp.Hyperlink.Address
On Error GoTo 0
Si sTemp <> "" Entonces,
shp.TopLeftCell.Value = sTemp
shp.Delete
End If
Siguiente
End Sub

Esta macro pasos a través de cada una de las formas en la hoja de trabajo. A continuación, comprueba para ver si la forma tiene un hipervínculo asociado. Si lo hace, entonces la dirección de ese hipervínculo (en la variable sTemp) se coloca en la celda en la esquina superior izquierda de donde se encuentra la forma. La macro elimina cualquier forma que tienen hipervínculos; puedes obligarlo a eliminar todas las formas de la hoja con sólo mover la línea shp.Delete al exterior de la instrucción If ... End If estructura.

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (2907) se aplica a Microsoft Excel 97, 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: Extraer URLs de Imágenes enlazadas.