Imagenes desde macros VBA

03/06/2008 - 10:59 por vitobacon | Informe spam
Hola.
Tengo una macro que busca una imagen determinada y la coloca en una celda
(no me importa el tamaño de la imagen, pero sí su posición)
Esto me iba bien en Excel 2003, pero ahora tengo (por fin) el Excel 2007, y
al ejecutar la macro me coloca las imágenes siempre en el mismo sitio, más o
menos cerca de la esquina A1.
No sé cómo arreglar esto.
Mi macro, escuetamente, hace algo así:

Range("H3").Select 'H3
por decir algo...
ActiveSheet.Pictures.Insert("nombre").Select 'siendo "nombre"
la ruta completa
Selection.ShapeRange.Name = "Pepito" 'le pongo un
nombre (pepito) para luego manejarla
Selection.ShapeRange.Line.Visible = msoTrue 'le pongo el borde
visible

bueno, pues eso, antes me ponía la foto en la casilla H3 (o la que yo
eligiera en cada caso) pero ahora van todas al mismo sitio, y como tengo que
insertar tres fotos por ficha, se me montan una encima de otra.

Si alguien es tan amable de darme una solución, o al menos una pista, le
estaré agradecido.
Un saludo a todos.

Vito Baconbridge

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
03/06/2008 - 20:47 | Informe spam
hola. Vito !

puedes cambiar la ubicacion de los objetos con algo +/- como lo siguiente
(suponiendo que la necesitas en la esquina superior izquierda de la celda H3)

Sub Insertar_imagenes()
Dim Izq As Single, Arr As Single
With Range("h3")
Izq = .Left
Arr = .Top
End With
With ActiveSheet.Pictures.Insert("nombre")
.Left = Izq
.Top = Arr
End With
End Sub

saludos,
hector.

_ la consulta original __
Tengo una macro que busca una imagen determinada y la coloca en una celda
(no me importa el tamano de la imagen, pero si su posicion)
Esto me iba bien en Excel 2003, pero ahora tengo (por fin) el Excel 2007
y al ejecutar la macro me coloca las imagenes siempre en el mismo sitio, mas o menos cerca de la esquina A1...
No se como arreglar esto.
Mi macro, escuetamente, hace algo asi:
Range("H3").Select 'H3 por decir algo...
ActiveSheet.Pictures.Insert("nombre").Select 'siendo "nombre" la ruta completa
Selection.ShapeRange.Name = "Pepito" 'le pongo un nombre (pepito) para luego manejarla
Selection.ShapeRange.Line.Visible = msoTrue 'le pongo el borde visible
bueno, pues eso, antes me ponía la foto en la casilla H3 (o la que yo eligiera en cada caso)
pero ahora van todas al mismo sitio, y como tengo que insertar tres fotos por ficha, se me montan una encima de otra...
Respuesta Responder a este mensaje
#2 vitobacon
04/06/2008 - 09:13 | Informe spam
Perfecto, Héctor.
Muchas gracias y hasta la próxima
Vito

"Héctor Miguel" escribió en el mensaje
news:u$
hola. Vito !

puedes cambiar la ubicacion de los objetos con algo +/- como lo siguiente
(suponiendo que la necesitas en la esquina superior izquierda de la celda
H3)

Sub Insertar_imagenes()
Dim Izq As Single, Arr As Single
With Range("h3")
Izq = .Left
Arr = .Top
End With
With ActiveSheet.Pictures.Insert("nombre")
.Left = Izq
.Top = Arr
End With
End Sub

saludos,
hector.

_ la consulta original __
Tengo una macro que busca una imagen determinada y la coloca en una celda
(no me importa el tamano de la imagen, pero si su posicion)
Esto me iba bien en Excel 2003, pero ahora tengo (por fin) el Excel 2007
y al ejecutar la macro me coloca las imagenes siempre en el mismo sitio,
mas o menos cerca de la esquina A1...
No se como arreglar esto.
Mi macro, escuetamente, hace algo asi:
Range("H3").Select 'H3
por decir algo...
ActiveSheet.Pictures.Insert("nombre").Select 'siendo
"nombre" la ruta completa
Selection.ShapeRange.Name = "Pepito" 'le pongo un
nombre (pepito) para luego manejarla
Selection.ShapeRange.Line.Visible = msoTrue 'le pongo el borde
visible
bueno, pues eso, antes me ponía la foto en la casilla H3 (o la que yo
eligiera en cada caso)
pero ahora van todas al mismo sitio, y como tengo que insertar tres fotos
por ficha, se me montan una encima de otra...




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida