How can I insert an icon in a cell programatically?
--
Thanks,
Uwe

Can you supply more information?
What icon? from where? A network file? an image in the workbook?
What prompts the insertion? User selection? Something else?
--------------------------

Regards,

Ron (XL2003, Win XP)
Microsoft MVP (Excel)

"Uwe" wrote in message
...
How can I insert an icon in a cell programatically?
--
Thanks,
Uwe

Hi Uwe

You can try this for cell D5

Sub test()
Dim myPict As Picture
With ActiveSheet.Range("D5")
Set myPict = .Parent.Pictures.Insert("C:\YourPic.bmp")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Uwe" wrote in message ...
How can I insert an icon in a cell programatically?
--
Thanks,
Uwe

I have some text from a database attached to a cell a a comment. This is
working quite will with the red triangle at the top of the cell. The client
want to show a paperclip image in the cell to more graphically show a comment
is associated with the cell.
--
Thanks,
Uwe


"Ron de Bruin" wrote:

Hi Uwe

You can try this for cell D5

Sub test()
Dim myPict As Picture
With ActiveSheet.Range("D5")
Set myPict = .Parent.Pictures.Insert("C:\YourPic.bmp")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Uwe" wrote in message ...
How can I insert an icon in a cell programatically?
--
Thanks,
Uwe

Hi Uwe

See if Debra have something for you
http://www.contextures.com/tiptech.html

But I think there is no way to change the red triangle and you must add a icon on top of the cell
if you always want to see it


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Uwe" wrote in message ...
I have some text from a database attached to a cell a a comment. This is
working quite will with the red triangle at the top of the cell. The client
want to show a paperclip image in the cell to more graphically show a comment
is associated with the cell.
--
Thanks,
Uwe


"Ron de Bruin" wrote:

Hi Uwe

You can try this for cell D5

Sub test()
Dim myPict As Picture
With ActiveSheet.Range("D5")
Set myPict = .Parent.Pictures.Insert("C:\YourPic.bmp")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Uwe" wrote in message ...
How can I insert an icon in a cell programatically?
--
Thanks,
Uwe