Mmaresma/ noviembre 10, 2016/ Excel Avanzado, Macros

A quien no le ha surgido la necesidad de tener que exportar un gráfico o un objeto de una hoja de cálculo en formato de imagen.

Bien, pues aquí tenéis un macro para ese menester y el fichero con el ejemplo de la macro: extraer_grafico

Sub Exportar_Grafico()
On Error GoTo ErrExportar_Grafico

Const sBarra As String = "/"
Const sTipodeImagen As String = ".gif"

Dim sNombreImagen As String
Dim sPath As String
Dim sLibro As String

Dim objetoAexportar As ChartObject

On Error Resume Next

Set objetoAexportar = ActiveSheet.ChartObjects(1)

If objetoAexportar Is Nothing Then
MsgBox "No se ha encontrado ningún objeto ó gráfico en esta hoja", 0
Exit Sub
End If

If ActiveChart Is Nothing Then
MsgBox "No se ha seleccionado ningún objeto ó gráfico para exportar ", 0
Exit Sub
End If

Inicio:
sNombreImagen = Application.InputBox("Indica el nombre que quieres para el fichero de imagen:", "Exportar Imagen", "")
If sNombreImagen = Empty Then
MsgBox "No se ha introducido ningún nombre para el fichero de imagen", , "Fichero Incorrecto"
GoTo Inicio
End If

If sNombreImagen = "False" Then Exit Sub

sLibro = ActiveWorkbook.Path
sPath = sLibro & sBarra & sNombreImagen & sTipodeImagen
ActiveChart.Export Filename:=sPath, FilterName:=UCase(Replace(sTipodeImagen, ".", ""))
Exit Sub

ErrExportar_Grafico:
MsgBox "Error al exportar el gráfico: " & Err.Description
Exit Sub
End Sub

Tened en cuenta que estamos en la sección de “Macros” y “Excel Avanzado” con lo cual no dudo que ya sabréis como insertar el código en un módulo de Excel.

Espero que os guste, 🙂

Comentario

Comentario

Share this Post