Hola a todos, encontré hace unos días un ejemplo de código que adapté para crear una imagen .jpg de un rango de celdas y funciona correctamente a excepción de que cuando visualizas la imagen creada se ven columnas y datos como si en la parte tras la imagen se ven columnas similares a un gráfico de excel y datos que no están en el rango de celdas del que se extrae la imagen, pongo el código para ver si me podéis echar una mano.
Sub CrearImagenRango()
Dim she As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Set a = Sheets("LisCOMPRAS")
'myfile = "C:\Users\conse\Desktop\Lista COMPRAS\ListaCOMPRAS.jpg"
myfile = "C:\Users\domin\Desktop\Lista COMPRAS\ListaCOMPRAS.jpg"
'....
Range("F180:AK239").CopyPicture
With Range("F180:AK239")
Izq = .Left
Arr = .Top
Ancho = .Width
Alto = .Height
End With
Range("b23").Select
ActiveSheet.Shapes.AddChart
ActiveSheet.ChartObjects(1).Select
With Selection
.Width = Ancho
.Height = Alto
.Chart.Paste
.Chart.Export myfile
.Delete
End With
MsgBox ("El archivo de imagen con extensión .JPG se guardó en " & myfile), vbInformation, "INFORMACION"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Un saludo
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos, encontré hace unos días un ejemplo de código que adapté para crear una imagen .jpg de un rango de celdas y funciona correctamente a excepción de que cuando visualizas la imagen creada se ven columnas y datos como si en la parte tras la imagen se ven columnas similares a un gráfico de excel y datos que no están en el rango de celdas del que se extrae la imagen, pongo el código para ver si me podéis echar una mano.
Sub CrearImagenRango()
Dim she As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Set a = Sheets("LisCOMPRAS")
'myfile = "C:\Users\conse\Desktop\Lista COMPRAS\ListaCOMPRAS.jpg"
myfile = "C:\Users\domin\Desktop\Lista COMPRAS\ListaCOMPRAS.jpg"
'....
Range("F180:AK239").CopyPicture
With Range("F180:AK239")
Izq = .Left
Arr = .Top
Ancho = .Width
Alto = .Height
End With
Range("b23").Select
ActiveSheet.Shapes.AddChart
ActiveSheet.ChartObjects(1).Select
With Selection
.Width = Ancho
.Height = Alto
.Chart.Paste
.Chart.Export myfile
.Delete
End With
MsgBox ("El archivo de imagen con extensión .JPG se guardó en " & myfile), vbInformation, "INFORMACION"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Un saludo