Copiar imagen

hola, Daniel !

Si, a eso me refiero. Obtengo esto: ActiveSheet.Shapes("Picture 5").Select
Pero no logro reemplazar Picture 5 por una variable.
Necesito hacer referencia a Picture 5, q esta dentro de C5, usando la ubicacion, es decir C5...

los objetos incrustados en las hojas de calculo tienen una propiedad que te indica en que celda se ubican
[pero] es necesario hacer un 'barrido' por TODOS los objetos de la hoja y verificar si estan donde 'supones' [p.e.]

Dim Fig As Shape
For Each Fig In ActiveSheet.Shapes
If Fig.TopLeftCell.Address = "$C$5" Then
' que quieres que se haga en este caso ??? '
Exit For
End If
Next

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias! como siempre de gran utilidad!
Saludos

Daniel


"Héctor Miguel" escribió en el mensaje
news:

hola, Daniel !

Si, a eso me refiero. Obtengo esto: ActiveSheet.Shapes("Picture
5").Select
Pero no logro reemplazar Picture 5 por una variable.
Necesito hacer referencia a Picture 5, q esta dentro de C5, usando la
ubicacion, es decir C5...

los objetos incrustados en las hojas de calculo tienen una propiedad que
te indica en que celda se ubican
[pero] es necesario hacer un 'barrido' por TODOS los objetos de la hoja y
verificar si estan donde 'supones' [p.e.]

Dim Fig As Shape
For Each Fig In ActiveSheet.Shapes
If Fig.TopLeftCell.Address = "$C$5" Then
' que quieres que se haga en este caso ??? '
Exit For
End If
Next

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.