Una forma de utilizar datos de Internet en una hoja de cálculo de Excel es copiarlos de una página web y luego pegarlos en la hoja de cálculo. Por ejemplo, puede seleccionar una tabla de datos en una página web, presionar Ctrl + C para copiarla en el Portapapeles, seleccionar una celda en Excel y luego presionar Ctrl + V. Excel hace todo lo posible para analizar los datos y colocarlos en las celdas adecuadas, tal como estaba en la tabla original.

El problema es que a menudo obtendrá más que los datos de la tabla. Si había otros objetos en los datos que copió de la Web, esos objetos también se pegarán en la hoja de trabajo. No es raro terminar con todo tipo de gráficos pequeños en la hoja de trabajo. Si estos gráficos eran originalmente hipervínculos, es posible que desee extraer el hipervínculo y luego eliminar el gráfico. Esto haría que los datos de la hoja de trabajo fueran mucho más utilizables.

La forma de hacer esto es con una macro. Una vez que haya pegado la información web en la hoja de trabajo, ejecute la siguiente macro.

Sub ConvertHLShapes()

Dim shp As Shape     Dim sTemp As String

For Each shp In ActiveSheet.Shapes         sTemp = ""

On Error Resume Next 'go to next shape if no hyperlink         sTemp = shp.Hyperlink.Address         On Error GoTo 0         If sTemp <> "" Then             shp.TopLeftCell.Value = sTemp             shp.Delete         End If     Next End Sub

Esta macro recorre cada una de las formas de la hoja de trabajo. Luego verifica si la forma tiene un hipervínculo asociado. Si es así, 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 tenga hipervínculos; puede forzarlo a eliminar todas las formas en la hoja de trabajo simplemente moviendo la línea shp.Delete hacia el exterior de la estructura If …​ End If.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3578) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Extracting_URLs_from_Hyperlinked_Images [Extrayendo URLs de imágenes hipervinculadas].