How to Display a changing Camera Icon-Picture Link in Cell Comments

[all4excel]

Is it possible to display an Excel generated Image i.e. Camera Icon-Picture Link into a comment..

The Camera Icon-Picture Link is connected with actual Data and keeps on changing each time the data is changed...

But I want to tap this feature of the Picture Link and add it to a comment so that I will have a Comment which is connected to Actual Data..

<TABLE style="WIDTH: 244pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=324><COLGROUP><COL style="WIDTH: 61pt; mso-width-source: userset; mso-width-alt: 2592" span=4 width=81><TBODY><TR style="HEIGHT: 24pt" height=32><TD style="BORDER-BOTTOM: #ece9d8; BORDER-LEFT: #ece9d8; BACKGROUND-COLOR: transparent; WIDTH: 61pt; HEIGHT: 24pt; BORDER-TOP: #ece9d8; BORDER-RIGHT: #ece9d8" class=xl101 height=32 width=81></TD><TD style="BORDER-BOTTOM: #ece9d8; BORDER-LEFT: #ece9d8; BACKGROUND-COLOR: transparent; WIDTH: 61pt; BORDER-TOP: #ece9d8; BORDER-RIGHT: #ece9d8" class=xl102 width=81>Col A</TD><TD style="BORDER-BOTTOM: #ece9d8; BORDER-LEFT: #ece9d8; BACKGROUND-COLOR: transparent; WIDTH: 61pt; BORDER-TOP: #ece9d8; BORDER-RIGHT: #ece9d8" class=xl102 width=81>Col B </TD><TD style="BORDER-BOTTOM: #ece9d8; BORDER-LEFT: #ece9d8; BACKGROUND-COLOR: transparent; WIDTH: 61pt; BORDER-TOP: #ece9d8; BORDER-RIGHT: #ece9d8" class=xl102 width=81>Col C</TD></TR><TR style="HEIGHT: 23.25pt" height=31><TD style="BORDER-BOTTOM: #ece9d8; BORDER-LEFT: #ece9d8; BACKGROUND-COLOR: transparent; HEIGHT: 23.25pt; BORDER-TOP: #ece9d8; BORDER-RIGHT: #ece9d8" class=xl103 height=31>Row 1</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 1pt solid; BACKGROUND-COLOR: black; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl104>1</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: black; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl105>2</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: black; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid" class=xl106>3</TD></TR><TR style="HEIGHT: 23.25pt" height=31><TD style="BORDER-BOTTOM: #ece9d8; BORDER-LEFT: #ece9d8; BACKGROUND-COLOR: transparent; HEIGHT: 23.25pt; BORDER-TOP: #ece9d8; BORDER-RIGHT: #ece9d8" class=xl103 height=31>Row 2</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 1pt solid; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl107>4</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl108>5</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 1pt solid" class=xl109>6</TD></TR><TR style="HEIGHT: 23.25pt" height=31><TD style="BORDER-BOTTOM: #ece9d8; BORDER-LEFT: #ece9d8; BACKGROUND-COLOR: transparent; HEIGHT: 23.25pt; BORDER-TOP: #ece9d8; BORDER-RIGHT: #ece9d8" class=xl103 height=31>Row 3</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 1pt solid; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl110>7</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl111>8</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 1pt solid" class=xl112>9</TD></TR><TR style="HEIGHT: 24pt" height=32><TD style="BORDER-BOTTOM: #ece9d8; BORDER-LEFT: #ece9d8; BACKGROUND-COLOR: transparent; HEIGHT: 24pt; BORDER-TOP: #ece9d8; BORDER-RIGHT: #ece9d8" class=xl103 height=32>Row 4</TD><TD style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl113>10</TD><TD style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl114>11</TD><TD style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: black; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 1pt solid" class=xl115>12</TD></TR></TBODY></TABLE>

This is the Actual Data and the Camera Icon-Picture Link has the same Image and now I will be programming this data to kepp on changing based on certain condtions..so naturally this Camera Icon-Picture Link below will keep on changing..

I need to get this Picture Link Image in the comment so that it I have the evre-changing data in a comment too..

As each comment can be programmed seperately..

Regards

 

[MickG]

Not "Camera" but possible alternative

Private Sub Worksheet_Change(ByVal Target As Range)
Dim msg As String
If Not Intersect(Target, Range("A1:C3")) Is Nothing Then
msg = Join(Application.Transpose(Application.Transpose(Range("A1:C1").Value))) & Chr(10)
msg = msg & Join(Application.Transpose(Application.Transpose(Range("A2:C2").Value))) & Chr(10)
msg = msg & Join(Application.Transpose(Application.Transpose(Range("A3:C3").Value)))
With Target
If Not .comment Is Nothing Then .comment.Delete
.AddComment (msg)
.comment.Shape.TextFrame.Characters.Font.Size = 12
End With
End If

Mick

 

[all4excel]

Thanks for replying MICKG in the first place..

I tried it but where do I get the comment shown?

 

[MickG]

I'm not sure what you mean, The comments are in the range "A1:C3" , Do you want to see them in another range , or somewhere else.??
Mick

 

[all4excel]

No MickG,

Nothing shows up in that range..

I tried manually changing the values in the range ("A1:C4") but nothing happened , have also tried it with the rnadom function.

= Rand()*10

But nothing changed..

But I would still appreciate if CI ould get this Image in the COmments via Picture link the reason being that I will get the formatting alongwith values..

Nevertheless, I need to check out your option too..!

Regrds
all4excel

 

[MickG]

Have you got the "Worksheet_Change " event in the Worksheet Module.
Right click sheet Tab , select "View Code", VB window appears , Paste into window.
Close VB window, Change any cell in Range "A1:C3".

I have a look at the camers Bit.
Mick

 

[ganeshpoojary05]

You can also check the below thread for your reference.

http://www.mrexcel.com/forum/showthread.php?t=568266&highlight=picture+comment

 

[all4excel]

Thanks Ganesh,

I will definitely have a look at the link provided but what I need is to be able to save the Image formed in Excel itself using the Camera Icon- Picture Link feature..

I am not interested in other Images at this juncture as this Picture Link will be connected to a BLOCK of Data which is programmed to give the most critical of information and this will be further emdedded in the Comments of a cell..

Lets say I use certain calculations to arrive at a result and store this results in the Cells A1 : D3 and then this BLOCK will keep on changing the Data each time a new Target CELL is selected..

So, I will get the Image in the COMMENTS which are not only always up-date with the latest of information but also has all the required formatting neatly done in the chosen cells and indirectly in the Image..

P.S. If this works then there would be "n" utilities coming from it..

Warm regards

 

[all4excel]

Dear MickG,

I tired it again putting the code in the relevant sheet where the data is entered but nothing changed...

 

[MickG]

Look Here!!
http://www.mediafire.com/?e57e1a80ipy2gfp
Mick