Ufdjrw

If there are any 3nion, 5nion, 7nion, 9nion, 10nion, etc.

"seeing as you don't know anyone but me" meaning in this context

Correct physics behind the colors on CD (compact disc)?

I encountered my boss during an on-site interview at another company. Should I bring it up when seeing him next time?

How can neutral atoms have exactly zero electric field when there is a difference in the positions of the charges?

How do you say “my friend is throwing a party, do you wanna come?” in german

Called into a meeting and told we are being made redundant (laid off) and "not to share outside". Can I tell my partner?

Make me a metasequence

Formatting a table to look nice

Relationship between the symmetry number of a molecule as used in rotational spectroscopy and point group

Lock enemy's y-axis when using Vector3.MoveTowards to follow the player

Why is it "take a leak?"

Why won't the strings command stop?

Plagiarism of code by other PhD student

Was it really inappropriate to write a pull request for the company I interviewed with?

Where is the fallacy here?

Would the melodic leap of the opening phrase of Mozart's K545 be considered dissonant?

How to mitigate "bandwagon attacking" from players?

Is divide-by-zero a security vulnerability?

Being asked to review a paper in conference one has submitted to

The need of reserving one's ability in job interviews

1970s scifi/horror novel where protagonist is used by a crablike creature to feed its larvae, goes mad, and is defeated by retraumatising him

Specific Chinese carabiner QA?

Why is my Contribution Detail Report (native CiviCRM Core report) not accurate?

Insert images from Directory using Excel

0

I want to insert images from a folder based on what is written in a cell

Example

Cell A1 has the word "ABC001"

I want cell B1 to insert the image from a directory - image name = "ABC001.JPG"

I have found some VBA code that does this for me, but this only works on one cell.
i would like it to work on the entire column

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

If Target.Address = Range("A2").Address Then

ActiveSheet.Pictures.Delete

PictureLoc = "\ca-sbs-01tSharedExcelImages" & Range("A2").Value & ".jpg"

With Range("B2")
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 RowHeight = myPict.Height

 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
End With

End If

End Sub

excel vba

share|improve this question

edited 11 hours ago

Pᴇʜ

23.6k62952

asked 12 hours ago

FabioFabio

235

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I recommend you using Dir(Path) to get the exact filename and some If to handle an error that would happen if it wasn't there. As for doing for the whole column you could use a loop to get the job done.
  
  – Damian
  12 hours ago
  
  

  
  
  
  

add a comment | 

0

I want to insert images from a folder based on what is written in a cell

Example

Cell A1 has the word "ABC001"

I want cell B1 to insert the image from a directory - image name = "ABC001.JPG"

I have found some VBA code that does this for me, but this only works on one cell.
i would like it to work on the entire column

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

If Target.Address = Range("A2").Address Then

ActiveSheet.Pictures.Delete

PictureLoc = "\ca-sbs-01tSharedExcelImages" & Range("A2").Value & ".jpg"

With Range("B2")
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 RowHeight = myPict.Height

 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
End With

End If

End Sub

excel vba

share|improve this question

edited 11 hours ago

Pᴇʜ

23.6k62952

asked 12 hours ago

FabioFabio

235

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I recommend you using Dir(Path) to get the exact filename and some If to handle an error that would happen if it wasn't there. As for doing for the whole column you could use a loop to get the job done.
  
  – Damian
  12 hours ago
  
  

  
  
  
  

add a comment | 

I want to insert images from a folder based on what is written in a cell

Example

Cell A1 has the word "ABC001"

I want cell B1 to insert the image from a directory - image name = "ABC001.JPG"

I have found some VBA code that does this for me, but this only works on one cell.
i would like it to work on the entire column

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

If Target.Address = Range("A2").Address Then

ActiveSheet.Pictures.Delete

PictureLoc = "\ca-sbs-01tSharedExcelImages" & Range("A2").Value & ".jpg"

With Range("B2")
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 RowHeight = myPict.Height

 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
End With

End If

End Sub

excel vba

share|improve this question

edited 11 hours ago

Pᴇʜ

23.6k62952

asked 12 hours ago

FabioFabio

235

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

If Target.Address = Range("A2").Address Then

ActiveSheet.Pictures.Delete

PictureLoc = "\ca-sbs-01tSharedExcelImages" & Range("A2").Value & ".jpg"

With Range("B2")
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 RowHeight = myPict.Height

 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
End With

End If

End Sub

share|improve this question

edited 11 hours ago

Pᴇʜ

23.6k62952

asked 12 hours ago

FabioFabio

235

share|improve this question

edited 11 hours ago

Pᴇʜ

23.6k62952

asked 12 hours ago

FabioFabio

235

edited 11 hours ago

Pᴇʜ

23.6k62952

edited 11 hours ago

Pᴇʜ

23.6k62952

asked 12 hours ago

FabioFabio

235

asked 12 hours ago

FabioFabio

235

1 Answer
1

active

oldest

votes

0

Maybe you are after this

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

 On Error GoTo EH
 Application.EnableEvents = False
 If Target.Column = 1 Then

 'Pictures.Delete

 PictureLoc = "\ca-sbs-01tSharedExcelImages" & Target.Value2 & ".jpg"


 With Target.Offset(, 1)
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 .RowHeight = myPict.Height
 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
 End With

 End If
EH:
 Application.EnableEvents = True
End Sub

share|improve this answer

answered 12 hours ago

StoraxStorax

4,2583519

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55021303%2finsert-images-from-directory-using-excel%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

Maybe you are after this

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

 On Error GoTo EH
 Application.EnableEvents = False
 If Target.Column = 1 Then

 'Pictures.Delete

 PictureLoc = "\ca-sbs-01tSharedExcelImages" & Target.Value2 & ".jpg"


 With Target.Offset(, 1)
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 .RowHeight = myPict.Height
 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
 End With

 End If
EH:
 Application.EnableEvents = True
End Sub

share|improve this answer

answered 12 hours ago

StoraxStorax

4,2583519

add a comment | 

0

Maybe you are after this

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

 On Error GoTo EH
 Application.EnableEvents = False
 If Target.Column = 1 Then

 'Pictures.Delete

 PictureLoc = "\ca-sbs-01tSharedExcelImages" & Target.Value2 & ".jpg"


 With Target.Offset(, 1)
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 .RowHeight = myPict.Height
 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
 End With

 End If
EH:
 Application.EnableEvents = True
End Sub

share|improve this answer

answered 12 hours ago

StoraxStorax

4,2583519

add a comment | 

Maybe you are after this

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

 On Error GoTo EH
 Application.EnableEvents = False
 If Target.Column = 1 Then

 'Pictures.Delete

 PictureLoc = "\ca-sbs-01tSharedExcelImages" & Target.Value2 & ".jpg"


 With Target.Offset(, 1)
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 .RowHeight = myPict.Height
 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
 End With

 End If
EH:
 Application.EnableEvents = True
End Sub

share|improve this answer

answered 12 hours ago

StoraxStorax

4,2583519

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Picture
Dim PictureLoc As String

 On Error GoTo EH
 Application.EnableEvents = False
 If Target.Column = 1 Then

 'Pictures.Delete

 PictureLoc = "\ca-sbs-01tSharedExcelImages" & Target.Value2 & ".jpg"


 With Target.Offset(, 1)
 Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
 .RowHeight = myPict.Height
 myPict.Top = .Top
 myPict.Left = .Left
 myPict.Placement = xlMoveAndSize
 End With

 End If
EH:
 Application.EnableEvents = True
End Sub

share|improve this answer

answered 12 hours ago

StoraxStorax

4,2583519

answered 12 hours ago

StoraxStorax

4,2583519

answered 12 hours ago

StoraxStorax

4,2583519