excel + macros

[son_shinta]

necesito algo super especifico:

obtener la posicion de un objeto (grafica, imagen) por algun comando de vbasic, por ejemplo si inserto esta imagen:

ActiveSheet.Pictures.Insert("C:\reloj.png").Select

desoEo poder ubicarla en un lugar conveniente dentro de la hoja y que aparesca en cualquier parte ...

GRACIAS

[milolo]

Lo único que se me ocurre es lo siguiente:

Código:

Sub picture()

With ActiveSheet
.Pictures.Insert("C:\reloj.png").Select
.Shapes("1 Imagen").Cut
.Range("d100").Select
.PasteSpecial
End With

End Sub

Con esto pegaras la imagen en la casilla d100.

El problema es que si intentas ejecutar de nuevo la macro, no te va a funcionar porque cada vez que se pega en excell una imagen te la nombra primero "1 Imagen", segundo (aunque hayas borrado la Imagen 1) te la nombra como "2 Imagen") y así sucesivamente.

Si la macro la quieres para que pegue la imagen una sóla vez, bien, pero si lo que quieres es ejecutarla varias veces entonces no te va a servir

Siento no ser de más utilidad

Un saludo

[son_shinta]

vale, gracias, lo unico que tengo que hacer ahora es ponerle un nombre a la imagen .... nu se si se puede pero creo que si

[milolo]

Iniciado por son_shinta

vale, gracias, lo unico que tengo que hacer ahora es ponerle un nombre a la imagen .... nu se si se puede pero creo que si

Buena idea!

Si lo consigues, por favor cuentanoslo, por lo menos a mi, nunca está de más aprender algo nuevo

Un saludo

[abrahamvj]

Les dejo un ejemplo de como insertar una imagen sobre un rango y ademas dandole un nombre determinado a esa imagen:

Sub fotoinsertada()
Dim foto As Object, Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
Dim ruta As String
Application.ScreenUpdating = False
On Error Resume Next
If Not Target = [a1] Then Exit Sub
Hoja1.Shapes("Foto").Delete
ruta = "C:\Documents and Settings\AVALENCIA\Mis documentos\Mis imágenes\cumplesatan.bmp"
Set foto = Hoja1.Pictures.Insert(ruta)
With Range("c1:d8")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With foto
.Name = "Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set foto = Nothing
Application.ScreenUpdating = True
End Sub

Abraham

[son_shinta]

wooooh!!!! ... gracias

[milolo]

Yo lo he intentado... abrahamvj lo ha bordado jej

[abrahamvj]

De nada. Ah, ojo, esta linea esta de mas, lo que pasa es que sobreescribi otra macro y me falto borrarla:

---> If Not Target = [a1] Then Exit Sub <----

Abraham

[son_shinta]

con razon me parecia extraña .... :D

[gbaleta]

hola. como hago para insertar varias fotos. es decir en la celda C3, C4,C5,C6,C7 tengo los nombres de unas fotos q tengo en una carpeta. y quiero q me traiga cada vez que yo me diriga por ej, a una cedula me traiga las 5 fotos relacionadas a esta celda en la misma hoja de excel. me pueden ayudar