En este grupo En todos

Foro de Excel



Macro para insertar una imagen en un comentario

Felipe
Ingenieria comercial universidad de ch...
Escrito por Felipe Prado
el 31/03/2011

Estimados, necesito hacer una macro que me inserte una imagen ubicada en una ruta x dentro del comentario de una celda.

Intento con algo asi, pero no resulta

ruta:Application. DefaultFilePath & Application. PathSeparator & "conducta1. Jpg"

Set foto = ActiveSheet. [c5]. Comment.Shape.AddPicture(ruta, True, True, 110, 240, 300, 240)

La idea es crear un comentario nuevo para luego insertar la imagen.

[c5]. Addcomment
[c5]. Comment. Visible=true

despues de esto, como inserto una imagen dentro del comentario recien creado?

Muchas gracias...

Adrian Colazo
Técnico operador en pc universidad nac...
Escrito por Adrian Colazo
el 31/03/2011

Hola, espero ayudar, es algo rudimentario pero la intención es ayudar.

Sub PonerComentarioConImagen()
If Range("A1"). Comment Is Nothing Then
Range("A1"). AddComment "Esto es un Comentario"
Range("A1"). Comment.Shape.Select True
Selection.ShapeRange.Fill. UserPicture "C:\Mis XLS\Sonic. Gif"
Else
MsgBox "Ya Tiene Comentario A1", 64, ""
End If
End Sub

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 31/03/2011

Ja ja ja... Tu ejemplo no es nada rudimentario, Adrián: es más que adecuado.

A lo sumo se podría prescindir de los Select:
_______________

Sub PonerComentarioConImagen()
With [a1]
If. Comment Is Nothing Then
. AddComment "Esto es un Comentario"
. Comment.Shape.Fill. UserPicture "C:\Mis XLS\Sonic. Gif"
Else
MsgBox "Ya Tiene Comentario A1", 64, ""
End If
End With
End Sub
_______________

Saludos, Cacho.

Felipe Prado
Ingenieria comercial universidad de ch...
Escrito por Felipe Prado
el 31/03/2011

Hola Adrian:
Me da error en la instruccion:

Range("A1"). Comment.Shape.Select True

si bien, este codigo tambien me habia sido generado con la grabadora, al ejecutarlo nuevamente, aparece este mensaje:

Error en el metodo Select de objeto "Shape"

sera porque estoy usando excel 2010?

Adrian Colazo
Técnico operador en pc universidad nac...
Escrito por Adrian Colazo
el 31/03/2011

Acá estoy redundando pero, probaste lo sugerido por Cacho? El código que te puse lo coloque en una subrutina y funcionó.

Felipe Prado
Ingenieria comercial universidad de ch...
Escrito por Felipe Prado
el 31/03/2011

Cuando escribi mi respuesta, aun no estaba publicado el comentario de Cacho, lo reviso y comento...
Gracias

Felipe Prado
Ingenieria comercial universidad de ch...
Escrito por Felipe Prado
el 31/03/2011

Muchas Gracias Adrian y Cacho, funciono perfecto...