Imagen en comentario

hola, Roberto !

... Es posible insertar imagenes en los comentarios de XL?

-> si necesitas insertar las imagenes 'a pie'...
visita: http://www.contextures.com/xlcommen...ml#Picture
-> si necesitas insertar las imagenes por codigo...
puedes usar el objeto 'comment' y asignarle la imagen por medio de las propiedades:
.Shape.Fill.UserPicture "c:\Ruta y\sub-carpetas a\El archivo con la imagen" [jpg, bmp, etc.]
PERO... por codigo no se 'aceptan' nombres 'largos' [ni espacios] en la ruta y nombre del archivo :-((
sin embargo... puedes 'llamar' a las API's de windows para 'recortar' una ruta larga :))

te paso un ejemplo al final ;)

saludos,
hector.

en un modulo de codigo 'normal' ==Public Declare Function ObtenRutaCorta _
Lib "Kernel32" _
Alias "GetShortPathNameA" ( _
ByVal RutaLarga As String, _
ByVal RutaCorta As String, _
ByVal Bufer As Long) As Long
Public Function RecortarNombre(ByVal NombreLargo As String) As String
Dim Pos As Byte, NombreCorto As String
NombreCorto = Space(128)
Pos = ObtenRutaCorta(NombreLargo, NombreCorto, Len(NombreCorto))
RecortarNombre = LCase(Left(NombreCorto, Pos))
End Function
Sub ComentarioConImagen()
Dim Archivo As String
Archivo = RecortarNombre("C:uta y\sub-carpetas al\archivo.jpg")
With Range("a1")
If .Comment Is Nothing Then .AddComment ""
With .Comment.Shape
.Fill.UserPicture Archivo
.LockAspectRatio = msoTrue
' .Height = 120
' .Width = 120
End With
End With
End Sub

No dejas de abusar de tus superpoderes...

Gracias HM

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

hola, Roberto !

... Es posible insertar imagenes en los comentarios de XL?

-> si necesitas insertar las imagenes 'a pie'...
visita: http://www.contextures.com/xlcommen...ml#Picture
-> si necesitas insertar las imagenes por codigo...
puedes usar el objeto 'comment' y asignarle la imagen por medio de las
propiedades:
.Shape.Fill.UserPicture "c:\Ruta y\sub-carpetas a\El archivo con la
imagen" [jpg, bmp, etc.]
PERO... por codigo no se 'aceptan' nombres 'largos' [ni espacios] en la
ruta y nombre del archivo :-((
sin embargo... puedes 'llamar' a las API's de windows para 'recortar'
una ruta larga :))

te paso un ejemplo al final ;)

saludos,
hector.

en un modulo de codigo 'normal' ==> Public Declare Function ObtenRutaCorta _
Lib "Kernel32" _
Alias "GetShortPathNameA" ( _
ByVal RutaLarga As String, _
ByVal RutaCorta As String, _
ByVal Bufer As Long) As Long
Public Function RecortarNombre(ByVal NombreLargo As String) As String
Dim Pos As Byte, NombreCorto As String
NombreCorto = Space(128)
Pos = ObtenRutaCorta(NombreLargo, NombreCorto, Len(NombreCorto))
RecortarNombre = LCase(Left(NombreCorto, Pos))
End Function
Sub ComentarioConImagen()
Dim Archivo As String
Archivo = RecortarNombre("C:uta y\sub-carpetas al\archivo.jpg")
With Range("a1")
If .Comment Is Nothing Then .AddComment ""
With .Comment.Shape
.Fill.UserPicture Archivo
.LockAspectRatio = msoTrue
' .Height = 120
' .Width = 120
End With
End With
End Sub