Necesito ayuda con una macro que después de funcionar durante un par de años sin problema en entorno Excel 2010, ahora al haber cambiado a Excel 2016 se ejecuta incompleta.
La macro debe copiar y guardar una selección como imagen jpg (lo cual hizo a la perfección hasta ahora) y probandola en el editor paso a paso(F8) lo hace correctamente, sin embargo al ejecutarla mediante el botón que tengo en la barra de herramientas me genera una imagen en blanco, o sea no pega el contenido del rango seleccionado.
He revisado la configuración de Excel, pero parece que no doy con el fallo, por lo cual os pido ayuda ya que necesito utilizar esta macro con frequencia.
Buenas tardes amigos.
Necesito ayuda con una macro que después de funcionar durante un par de años sin problema en entorno Excel 2010, ahora al haber cambiado a Excel 2016 se ejecuta incompleta.
La macro debe copiar y guardar una selección como imagen jpg (lo cual hizo a la perfección hasta ahora) y probandola en el editor paso a paso(F8) lo hace correctamente, sin embargo al ejecutarla mediante el botón que tengo en la barra de herramientas me genera una imagen en blanco, o sea no pega el contenido del rango seleccionado.
He revisado la configuración de Excel, pero parece que no doy con el fallo, por lo cual os pido ayuda ya que necesito utilizar esta macro con frequencia.
El código es el siguiente:
Sub Selection2Jpg()
Application.ScreenUpdating = False
Dim MyChart As Chart
With Selection
.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set MyChart = ActiveSheet.ChartObjects.Add(10, 10, .Width, .Height).Chart
End With
MyChart.Paste
MyChart.ChartArea.Border.LineStyle = 0
On Error Resume Next
Dim myimagen As String
myimagen = InputBox("Nombre de la Imagen?")
myimagen = myimagen & ".jpg"
MyChart.Export "D:\Temporal" & "\" & myimagen
MyChart.Parent.Delete
Set MyChart = Nothing
Application.ScreenUpdating = True
End Sub
Muchas gacias de antemano