Here is the code, you can make changes or experiment with it
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Target.Column = 1 Then
Target.Offset(0, 1).Select
ActiveSheet.Pictures.Insert("C:\Product\Pictures\" &
Target.Value2 & ".jpg").Select
With Selection.ShapeRange
.Height = Target.Offset(0, 1).Height
.LockAspectRatio = msoFalse
.Width = Target.Offset(0, 1).Width
.Line.Visible = msoTrue
.Line.Weight = 0.25
End With
Target.Select
End If
End Sub
Rgds,
[dp]
On 01/08/2015 2:25, prkhan56 wrote:
I am using Excel 2010
I have a problem as shown in the attached sample data
In the directory C:\Product\Pictures I have many files with the names
shown in Column A under the Code group eg: 1.jpg, 2.jpg ….and so on
The size of inserted picture should be of the same height and width of
the cell in Column B.
I want a macro which when run should look up the Code number in Col A.
viz: if code is 1 then it should put the pic in Column B of 1.jpg and
so on an so forth
If there is no value in Col A then it should do nothing otherwise put
the respective pictures from C:\Product\Pictures.
Any help would be really appreciated.
A sample file is attached herewith
TIA
Rashid
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and
Need Advice will not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners
and members are not responsible for any loss.
---
You received this message because you are subscribed to the Google
Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send
an email to excel-macros+unsubscr...@googlegroups.com
<mailto:excel-macros+unsubscr...@googlegroups.com>.
To post to this group, send email to excel-macros@googlegroups.com
<mailto:excel-macros@googlegroups.com>.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
