Macro guardar imagenes
Publicado por Jose (9 intervenciones) el 29/09/2016 20:42:34
Hola Amigos!!
Como puedo hacer para que cada imagen se guarde con la celda adyacente?
Por ejemplo, tengo imágenes desde A2 hacia abajo y necesito guardar cada imagen con el nombre de esa imagen
que se encuentra en B2 respectivamente.
Por favor!!!
Como puedo hacer para que cada imagen se guarde con la celda adyacente?
Por ejemplo, tengo imágenes desde A2 hacia abajo y necesito guardar cada imagen con el nombre de esa imagen
que se encuentra en B2 respectivamente.
Por favor!!!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub ExportarImagen()
Dim img As Shape
Application.ScreenUpdating = False
For Each img In ActiveSheet.Shapes'añadimos un gráfico
Charts.Add'lo situamos como objeto en la Hoja 3
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
Set chrt = ActiveSheet.ChartObjects(1)
nombreimg = img.Name
'adaptamos tamaño de imagen y gráfico
With img
chrt.Width = .Width
chrt.Height = .Height
'copiamos la imagen
.CopyEnd With
'pegamos dentro del gráfico la imegen
ActiveChart.Paste 'exportamos el gráfico con el nombre del objeto (imagen)
chrt.Chart.Export Filename:="C:\" & nombreimg & ".gif"
chrt.DeleteNext img
Application.ScreenUpdating = True
End Sub
Valora esta pregunta
0