#ExcelPedroWave

🔝To translate this blog post to your language, select it in the top left Google box.

Olimpiadas de París 2024

Para conmemorar los Juegos de la XXXIII Olimpiada, que se celebrarán del 26 de julio al 11 de agosto de 2024 en París, estoy aprendiendo a dibujar la Torre Eiffel en un gráfico XY de dispersión en Excel.

Lo primero que hago es insertar la imagen SVG (Scalable Vector Graphics). A continuación convierto esa imagen en formas (shapes).

Luego he creado tres gráficos de dispersión:

• El primero de coordenadas (el peor)
• El segundo de rectángulos (no mejora)
• El tercero de puntos de cada forma (el más parecido al original).

Intentaré hacer uno mejor antes de que empiecen las Olimpiadas...

En la imagen animada de la derecha muestro los tres gráficos de dispersión, junto con la imagen original de la Torre Eiffel.

La imagen original la he descargado de esta página:

• By GDJ - Open Clip Art, CC0, https://commons.wikimedia.org/wiki/File:Detailed_Eiffel_Tower_1.svg

Es de dominio público, respetando la siguiente licencia:

• CC0 1.0 Deed | CC0 1.0 Universal | Creative Commons

De todos modos, ninguno de los archivos que adjunto contienen dicha imagen de la Torre Eiffel.

Este artículo lo publicaré por entregas, para facilitar el aprendizaje.

Primera entrega: Insertar imagen SVG y convertirla en formas

El archivo adjunto permite insertar una imagen SVG y convertirla en formas (shapes).

INSTRUCCIONES: Ejecuta la macro para "Insertar imagen SVG" haciendo clic en el dibujo con el lápiz.

Se abre una ventana para seleccionar el archivo SVG previamente descargado de WIKIMEDIA COMMONS, llamado: Detailed_Eiffel_Tower_1.svg

Presionando la tecla Abrir, se carga la imagen SVG de la Torre Eiffel en la hoja 'SVG', con la llamada al método Application.GetOpenFilename

Si había alguna imagen anterior, la borra.

Inserta la imagen seleccionada con el método Shapes.AddPicture, ya que Pictures.Insert vincula la imagen con el archivo original, y el primer método tiene opciones para crear una copia independiente de la imagen.

Convertir a forma la imagen SVG es fácil con el menú contextual, pero no es posible usar la grabadora de macros, ¡pues no guarda nada!

El método alternativo es llamar al siguiente comando con el que se consigue Convertir a forma:

Application.CommandBars.ExecuteMso ("SVGEdit")

La macro que inserta el archivo SVG y lo convierte en formas es:

Option Explicit Private bDir As Boolean ' Si ya se eligió el directorio con archivos SVG, no lo cambia Sub InsertarSVG() ' ' Inserta un archivo SVG (Scalable Vector Graphics) ' Dim sRuta As Variant Dim sh As Shape ' Continua si error On Error Resume Next ' Cambia al directorio de este libro Excel solamente la primera vez If bDir = False Then ChDir ThisWorkbook.Path bDir = True End If ' Abre un archivo SVG sRuta = Application.GetOpenFilename(FileFilter:="Archivos SVG (*.svg), *.svg", Title:="Seleccione un archivo SVG") ' Sale si se ha cancelado la apertura If sRuta = False Then Exit Sub ' No refresca la pantalla Application.ScreenUpdating = False With ThisWorkbook.Sheets("SVG") ' Activa la hoja 'SVG' .Activate ' Borra forma anterior .Shapes("SVG").Delete ' Selecciona celda por defecto .Range("C1").Select ' Inserta la imagen seleccionada ' .Pictures.Insert(sRuta).Select Set sh = .Shapes.AddPicture(sRuta, msoFalse, msoTrue, Selection.Left, Selection.Top, -1, -1) sh.Name = "SVG" sh.LockAspectRatio = msoTrue sh.Height = 737 sh.Select End With ' Convertir a forma SVG. Hace lo mismo que el menú contextual. Application.CommandBars.ExecuteMso ("SVGEdit") ' Agrupa las formas si hay más de una Selection.ShapeRange.Group.Select With Selection ' Nombre, colocación, bloqueo y texto alternativo de la forma .Name = "SVG" .Placement = xlFreeFloating .ShapeRange.LockAspectRatio = msoTrue .ShapeRange.Height = 737 .ShapeRange.AlternativeText = "Imagen SVG convertida a formas" End With ' Seleccion celda por defecto Range("C1").Select ' Refresca la pantalla Application.ScreenUpdating = True End Sub

El resultado es la imagen de la Torre Eiffel como un grupo de formas (shapes) que, al seleccionar la imagen y seleccionar en la cinta de opciones: Formato de forma > Panel de selección, se muestran agrupadas con el nombre SVG.

Descarga de la primera entrega

Descarga la primera entrega de este conversor de imágenes SVG en gráficos, compatible con las versiones de escritorio desde Excel 2019 hasta Excel para Microsoft 365.

• Microsoft OneDrive: Gráfico con imagen vectorial - PW1.xlsm

• Sites Google Drive: Gráfico con imagen vectorial - PW1.xlsm

Las macros del archivo descargado están bloqueadas por defecto. Para desbloquear las macros debes modificar las Propiedades del archivo siguiendo estas instrucciones:

Las macros de Internet están bloqueadas de forma predeterminada en Office - Deploy Office | Microsoft Learn

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Presiona el botón: Habilitar contenido cuando aparezca la ADVERTENCIA DE SEGURIDAD Las macros se han deshabilitado o se deshabilitó parte del contenido activo.

Segunda entrega: Gráfico de coordenadas XY

Si ya tenemos la imagen SVG convertida en formas (shapes), lo siguiente es crear un gráfico con la información de las formas.

INSTRUCCIONES: Haz clic en el icono del gráfico de puntos del MENU: 2) Crear gráfico 1

Este paso ejecuta la macro: CrearGráfico1, con la que guarda los datos de las formas (Left y Top) en la tabla TablaFormas1 de la hoja 'Datos', siendo las columnas X e Y el origen de datos del gráfico XY de dispersión, en el que se representan los puntos de las coordenadas de las formas (shapes).

La macro realiza las siguientes acciones:

1) Borra los datos de la tabla de la hoja 'Datos'.

2) Cuenta las formas vectoriales de la imagen SVG.

3) Redimensiona la tabla con la cuenta anterior como número de filas.

4) Redimensiona un array al número de filas de la tabla.

5) Recorre todas las formas de la imagen SVG y guarda los datos vectoriales Left y Top en el array, además del Name, Width, Height y color RGB.

6) Copia el array en la tabla en una única instrucción, lo que mejora tremendamente el rendimiento al guardar los datos en la tabla. Sería muy lento si se guardaran los datos en la tabla mientras se recorren cada una de las formas.

7) Cambia la escala del eje X del gráfico de dispersión.

La macro que crea los datos origen del gráfico es:

Option Explicit Sub CrearGráfico1() ' ' Crea el gráfico XY de dispersión con los datos vectoriales de las formas ' ' Solución con rendimiento máximo ' Por: Macro Antonio (2023-11-30) ' Adaptada por: Pedro Wave ' https://foro.todoexcel.com/threads/macros-100-veces-m%C3%A1s-r%C3%A1pidas-con-matrices.68209 ' https://pedrowave.blogspot.com/2023/11/rendimiento-de-las-macros-vba.html ' Dim miGrupo As Shape Dim miForma As Shape Dim lFila As Long Dim rnArray() As Variant Dim sngTiempo As Single ' Inicia el temporizador sngTiempo = Timer ' Sale si error On Error GoTo SAL1 ' Tabla con el origen de datos del gráfico de dispersión With ThisWorkbook.Sheets("Datos").ListObjects("TablaFormas1") If Not .DataBodyRange Is Nothing Then ' Borra los datos de la tabla .DataBodyRange.Delete End If ' Formas de las que se extraerán los datos Set miGrupo = ThisWorkbook.Sheets("SVG").Shapes("SVG") ' Filas del array lFila = miGrupo.GroupItems.Count ' Redimensiona la tabla .Resize Range("A1:F" & lFila) End With ' Dimensionamos el array ReDim rnArray(lFila, 6) With ThisWorkbook.Sheets("Datos") lFila = 0 ' Recorrer todas las formas dentro del grupo For Each miForma In miGrupo.GroupItems rnArray(lFila, 0) = miForma.Name rnArray(lFila, 1) = miForma.Left rnArray(lFila, 2) = miForma.Top rnArray(lFila, 3) = miForma.Width rnArray(lFila, 4) = miForma.Height rnArray(lFila, 5) = miForma.Fill.ForeColor.RGB lFila = lFila + 1 Next miForma End With With ThisWorkbook.Sheets("Datos").ListObjects("TablaFormas1") ' Líneas comentadas por Pedro Wave, pues Resize no se ejecuta en una hoja protegida, ' ni siquiera si solamente está protegida del usuario con UserInterfaceOnly:=True ' .Resize Sheets("Datos").Range("A1").Resize(lFila, 5) ' .DataBodyRange = rnArray ' INSTRUCCIÓN ESENCIAL: Copia la matriz en el rango de la tabla .DataBodyRange.Range("A1:F" & lFila) = rnArray End With ThisWorkbook.Sheets("SVG").ChartObjects("Gráfico").Activate With ActiveChart ' Cambia la escala del eje X .Axes(xlValue).MaximumScale = 790 .Axes(xlValue).MinimumScale = 10 End With ' Imprime los segundos transcurridos en la ventana Inmediato ' Debug.Print Timer - sngTiempo SAL1: ' Selecciona celda por defecto Range("C1").Select End Sub

Estos son los datos vectoriales de la hoja 'Datos':

Cada forma tiene un nombre, unas coordenadas X e Y, un ancho y un alto y su color, por lo que las formas son rectángulos, pero eso lo veremos en la tercera entrega...

El origen de datos del gráfico XY de dispersión de la hoja 'SVG' es el rango de datos: =Datos!$B$1:$C$4474, por lo que el gráfico incluye 4.473 puntos XY.

El gráfico XY de dispersión con la imagen de la Torre Eiffel se muestra a la derecha, como un conjunto de puntos de las coordenadas XY de las formas de la imagen de la izquierda, convertidas a partir de la imagen SVG original.

Resulta una imagen muy pobre de la Torre Eiffel, lo que habrá que mejorar en las siguientes entregas, pero ya hemos conseguido crear un gráfico XY de dispersión, con las coordenadas vectoriales de las formas de la imagen SVG original.

Inserta una imagen SVG diferente y verifica el gráfico resultante...

Descarga de la segunda entrega

Descarga la segunda entrega de este conversor de imágenes SVG en gráficos, compatible con las versiones de escritorio desde Excel 2019 hasta Excel para Microsoft 365.

• Microsoft OneDrive: Gráfico con imagen vectorial - PW2.xlsm

• Sites Google Drive: Gráfico con imagen vectorial - PW2.xlsm

Tercera entrega: Gráfico con rectángulos

Las formas (shapes) de la imagen SVG proporcionan información de su posición y su tamaño, con lo que podemos crear los rectángulos de las formas.

INSTRUCCIONES: Haz clic en el icono del gráfico de puntos del MENU: 3) Crear gráfico 2

Este paso ejecuta la macro: CrearGráfico2, con la que guarda los datos de las formas (Left y Top) en la tabla TablaFormas1 de la hoja 'Datos'. Las columnas X e Y son el origen de datos del gráfico XY de dispersión, en el que se representan los rectángulos de cada forma (shape) mediante 5 puntos unidos por líneas rectas. Para separar un rectángulo del siguiente se añade un punto sin datos.

La macro que crea los datos origen del gráfico es:

Sub CrearGráfico2() ' ' Crea el gráfico XY de dispersión con los rectángulos de las formas ' CrearGráfico 2 End Sub Sub CrearGráfico(iGráfico As Integer) ' ' Crea el gráfico XY de dispersión con los datos vectoriales de las formas ' ' Solución con rendimiento máximo ' Por: Macro Antonio (2023-11-30) ' Adaptada por: Pedro Wave ' https://foro.todoexcel.com/threads/macros-100-veces-m%C3%A1s-r%C3%A1pidas-con-matrices.68209 ' https://pedrowave.blogspot.com/2023/11/rendimiento-de-las-macros-vba.html ' Dim miGrupo As Shape Dim miForma As Shape Dim lFila As Long Dim rnArray() As Variant Dim iFactor As Integer Dim sngTiempo As Single ' Inicia el temporizador sngTiempo = Timer ' Sale si error On Error GoTo SAL1 ' Tabla con el origen de datos del gráfico de dispersión With ThisWorkbook.Sheets("Datos").ListObjects("TablaFormas1") If Not .DataBodyRange Is Nothing Then ' Borra los datos de la tabla .DataBodyRange.Delete End If ' Formas de las que se extraerán los datos Set miGrupo = ThisWorkbook.Sheets("SVG").Shapes("SVG") Select Case iGráfico Case 1 iFactor = 1 Case 2 iFactor = 6 End Select ' Filas del array lFila = iFactor * miGrupo.GroupItems.Count ' Redimensiona la tabla .Resize Range("A1:F" & lFila) End With ' Dimensionamos el array ReDim rnArray(lFila, 6) With ThisWorkbook.Sheets("Datos") lFila = 0 ' Recorrer todas las formas dentro del grupo For Each miForma In miGrupo.GroupItems Select Case iGráfico Case 1 rnArray(lFila, 0) = miForma.Name rnArray(lFila, 1) = miForma.Left rnArray(lFila, 2) = miForma.Top rnArray(lFila, 3) = miForma.Width rnArray(lFila, 4) = miForma.Height rnArray(lFila, 5) = miForma.Fill.ForeColor.RGB lFila = lFila + 1 Case 2 rnArray(lFila, 0) = miForma.Name rnArray(lFila, 1) = miForma.Left rnArray(lFila, 2) = miForma.Top rnArray(lFila + 1, 0) = miForma.Name rnArray(lFila + 1, 1) = miForma.Left + miForma.Width rnArray(lFila + 1, 2) = miForma.Top rnArray(lFila + 2, 0) = miForma.Name rnArray(lFila + 2, 1) = miForma.Left + miForma.Width rnArray(lFila + 2, 2) = miForma.Top + miForma.Height rnArray(lFila + 3, 0) = miForma.Name rnArray(lFila + 3, 1) = miForma.Left rnArray(lFila + 3, 2) = miForma.Top + miForma.Height rnArray(lFila + 4, 0) = miForma.Name rnArray(lFila + 4, 1) = miForma.Left rnArray(lFila + 4, 2) = miForma.Top rnArray(lFila + 5, 0) = "" rnArray(lFila + 5, 1) = "" rnArray(lFila + 5, 2) = "" lFila = lFila + 6 End Select Next miForma End With With ThisWorkbook.Sheets("Datos").ListObjects("TablaFormas1") ' Líneas comentadas por Pedro Wave, pues Resize no se ejecuta en una hoja protegida, ' ni siquiera si solamente está protegida del usuario con UserInterfaceOnly:=True ' .Resize Sheets("Datos").Range("A1").Resize(lFila, 5) ' .DataBodyRange = rnArray ' INSTRUCCIÓN ESENCIAL: Copia la matriz en el rango de la tabla .DataBodyRange.Range("A1:F" & lFila) = rnArray End With ThisWorkbook.Sheets("SVG").ChartObjects("Gráfico").Activate With ActiveChart ' Cambia la escala del eje X .Axes(xlValue).MaximumScale = 790 .Axes(xlValue).MinimumScale = 10 ' Cambia el tipo de gráfico y el ancho de las líneas Select Case iGráfico Case 1 .FullSeriesCollection(1).MarkerSize = 4 .ChartType = xlXYScatter Case 2 .FullSeriesCollection(1).Format.Line.Weight = 1 .ChartType = xlXYScatterLinesNoMarkers End Select End With ' Imprime los segundos transcurridos en la ventana Inmediato ' Debug.Print Timer - sngTiempo SAL1: ' Selecciona celda por defecto Range("C1").Select End Sub

El gráfico XY de dispersión con la imagen de la Torre Eiffel se muestra a la derecha, como un conjunto de rectángulos de las formas de la imagen SVG de la izquierda.

Resulta una imagen curiosa de la Torre Eiffel hecha con rectángulos, pero sigue sin parecerse al original.

Descarga de la tercera entrega

Descarga la tercera entrega de este conversor de imágenes SVG en gráficos, compatible con las versiones de escritorio desde Excel 2019 hasta Excel para Microsoft 365.

• Microsoft OneDrive: Gráfico con imagen vectorial - PW3.xlsm

• Sites Google Drive: Gráfico con imagen vectorial - PW3.xlsm

Cuarta entrega: Gráfico con los puntos de las formas

El gráfico más parecido a la imagen SVG original se consigue con los puntos de los nodos de las formas (shapes).

INSTRUCCIONES: Haz clic en el icono del gráfico de puntos del MENU: 4) Crear gráfico 3

Este paso ejecuta la macro: CrearGráfico3, con la que guarda los puntos XY de los nodos de las formas en la tabla TablaFormas1 de la hoja 'Datos'. Las columnas X e Y son el origen de datos del gráfico XY de dispersión, en el que se representan las formas (shapes) mediante sus puntos unidos por líneas suavizadas. Para separar una forma de la siguiente se añade un punto sin datos.

La macro que crea los datos origen del gráfico es:

Sub CrearGráfico3() ' ' Crea el gráfico XY de dispersión con los nodos de las formas ' CrearGráfico 3 End Sub Sub CrearGráfico(iGráfico As Integer) ' ' Crea el gráfico XY de dispersión con los datos vectoriales de las formas ' ' Solución con rendimiento máximo ' Por: Macro Antonio (2023-11-30) ' Adaptada por: Pedro Wave ' https://foro.todoexcel.com/threads/macros-100-veces-m%C3%A1s-r%C3%A1pidas-con-matrices.68209 ' https://pedrowave.blogspot.com/2023/11/rendimiento-de-las-macros-vba.html ' Dim miGrupo As Shape Dim miForma As Shape Dim lFila As Long Dim rnArray() As Variant Dim iFactor As Integer Dim puntosArray As Variant Dim miPunto As ShapeNode Dim sngTiempo As Single ' Inicia el temporizador sngTiempo = Timer ' Sale si error On Error GoTo SAL1 ' Tabla con el origen de datos del gráfico de dispersión With ThisWorkbook.Sheets("XY").ListObjects("TablaXY") If Not .DataBodyRange Is Nothing Then ' Borra los datos de la tabla .DataBodyRange.Delete End If ' Formas de las que se extraerán los datos Set miGrupo = ThisWorkbook.Sheets("SVG").Shapes("SVG") ' Filas del array Select Case iGráfico Case 1 lFila = miGrupo.GroupItems.Count Case 2 lFila = 6 * miGrupo.GroupItems.Count Case 3 lFila = [miFactor] * miGrupo.GroupItems.Count End Select ' Redimensiona la tabla .Resize Range("A1:B" & lFila) End With ' Dimensionamos el array ReDim rnArray(lFila, 2) With ThisWorkbook.Sheets("XY") lFila = 0 ' Recorrer todas las formas dentro del grupo For Each miForma In miGrupo.GroupItems Select Case iGráfico Case 1 ' Coordenadas rnArray(lFila, 0) = miForma.Left rnArray(lFila, 1) = miForma.Top lFila = lFila + 1 Case 2 ' Rectángulos rnArray(lFila, 0) = miForma.Left rnArray(lFila, 1) = miForma.Top rnArray(lFila + 1, 0) = miForma.Left + miForma.Width rnArray(lFila + 1, 1) = miForma.Top rnArray(lFila + 2, 0) = miForma.Left + miForma.Width rnArray(lFila + 2, 1) = miForma.Top + miForma.Height rnArray(lFila + 3, 0) = miForma.Left rnArray(lFila + 3, 1) = miForma.Top + miForma.Height rnArray(lFila + 4, 0) = miForma.Left rnArray(lFila + 4, 1) = miForma.Top rnArray(lFila + 5, 0) = "" rnArray(lFila + 5, 1) = "" lFila = lFila + 6 Case 3 ' Puntos de los nodos For Each miPunto In miForma.Nodes puntosArray = miPunto.Points rnArray(lFila, 0) = puntosArray(1, 1) rnArray(lFila, 1) = puntosArray(1, 2) lFila = lFila + 1 Next miPunto rnArray(lFila, 0) = "" rnArray(lFila, 1) = "" lFila = lFila + 1 End Select Next miForma End With With ThisWorkbook.Sheets("XY").ListObjects("TablaXY") ' Líneas comentadas por Pedro Wave, pues Resize no se ejecuta en una hoja protegida, ' ni siquiera si solamente está protegida del usuario con UserInterfaceOnly:=True ' .Resize Sheets("XY").Range("A1").Resize(lFila, 2) ' .DataBodyRange = rnArray ' Redimensiona la tabla .Resize Range("A1:B" & lFila) ' INSTRUCCIÓN ESENCIAL: Copia la matriz en el rango de la tabla .DataBodyRange.Range("A1:B" & lFila) = rnArray End With ThisWorkbook.Sheets("SVG").ChartObjects("Gráfico").Activate With ActiveChart ' Origen de datos del gráfico de dispersión .SetSourceData Source:=ThisWorkbook.Sheets("XY").Range("TablaXY[#All]") ' Cambia la escala del eje X .Axes(xlValue).MaximumScale = 790 .Axes(xlValue).MinimumScale = 10 ' Tipo de gráfico y ancho de las líneas Select Case iGráfico Case 1 ' Gráfico de dispersión .FullSeriesCollection(1).Format.Line.Weight = 1 .FullSeriesCollection(1).MarkerStyle = 8 .FullSeriesCollection(1).MarkerSize = 4 .FullSeriesCollection(1).Format.Line.ForeColor.RGB = 0 .ChartType = xlXYScatter Case 2 .FullSeriesCollection(1).Format.Line.Weight = 1 .ChartType = xlXYScatterLinesNoMarkers Case 3 .FullSeriesCollection(1).Format.Line.Weight = 0.25 .ChartType = xlXYScatterSmoothNoMarkers End Select End With ' Imprime los segundos transcurridos en la ventana Inmediato Debug.Print Timer - sngTiempo SAL1: ' Selecciona celda por defecto Range("C2").Select End Sub

El gráfico XY de dispersión con la imagen de la Torre Eiffel se muestra a la derecha, con las mismas formas creadas a partir de la imagen SVG de la izquierda.

Este gráfico es el más parecido a la imagen SVG de la Torre Eiffel que he conseguido, aunque tarda en generarse unos 32 segundos en mi PC, cuando los dos gráficos anteriores tardaban menos de medio segundo, y eso que he usado matrices para cargar el origen de datos del gráfico XY de dispersión, en lugar de escribir los 161.845 puntos uno a uno en la tabla de puntos XY, lo que llevaría varios minutos.

La técnica que he empleado está descrita aquí:

• Rendimiento de las macros VBA | #ExcelPedroWave

Si sabes cómo crear un gráfico más realista, ¡sería interesante que lo compartieras con nosotros!

En esta cuarta entrega he añadido una macro para que se vea completamente la Torre Eiffel haciendo zoom automático al rango del gráfico.

Sub ZoomRangoGráfico() ' ' Zoom al rango del gráfico ' Dim rgGráfico As Range With ThisWorkbook.Sheets("SVG") Application.EnableEvents = False .Select .Rows(1).Select Set rgGráfico = .Range("miGráfico") Application.Goto rgGráfico, True ActiveWindow.Zoom = True Application.EnableEvents = True .Range("C2").Select End With End Sub

Descarga de la cuarta entrega

Descarga la cuarta entrega de este conversor de imágenes SVG en gráficos, compatible con las versiones de escritorio desde Excel 2019 hasta Excel para Microsoft 365.

• Microsoft OneDrive: Gráfico con imagen vectorial - PW4.xlsm

• Sites Google Drive: Gráfico con imagen vectorial - PW4.xlsm

Vídeo con los gráficos de la Torre Eiffel

En este vídeo explico cómo convertir imágenes en formato SVG en gráficos de Excel, sobre todo para quienes no tengan las versiones compatibles de Excel necesarias para usar las plantillas de las 4 descargas anteriores.

En el próximo artículo verás este último gráfico ¡¡¡animado!!!, con la construcción de la Torre Eiffel, los aros olímpicos y la antorcha controlando la animación.

Continuará...