May 9th, 2011, 11:47 AM#1
Give spot to make sure you image immediately after import using VBA
first compliments with regard to a board, My spouse and i acquire a fabulous large amount from advice through in this article.
I had manufactured some sort of nice macro in which imports illustrations or photos coming from some selected filemap relating to C:/ in that bed-sheet. That name associated with a imported files is usually for Colomn Your, and additionally the look have got to often be imported into Colomn B.
The particular import runs wonderful, most any photos are usually imported into the particular page, and yet are every stacked mutually with 1 destination (around wireless C3).
When i require them all so that you can come to be brought in in to colomn b in that identical short period since the particular file company name during Colomn A.
This unique is usually this designate specific location during aperture prefix so i'm utilizing.
Document hope people may well guidance me.
Code:Subscription Macro1() Range("a2").Select Upon Error Curriculum vitae Following Complete Until ActiveCell.Value = "" Afb_naam = "Images\75dpi\" & ActiveCell.Value Afb_map = "c:\" Afb_bestandsnaam = Afb_map & Afb_naam & ".jpg" ActiveCell.Offset(0, 1).Select Any time Dir(Afb_bestandsnaam) <> "" Then ActiveSheet.Pictures.Insert(Afb_bestandsnaam).Name = Afb_naam Rows(ActiveCell.Row & ":" & ActiveCell.Row).RowHeight = ActiveSheet.Shapes(Afb_naam).Height Else: ActiveCell.Value = "Foto bestaat niet" Close In case ActiveCell.Offset(1, -1).Select Picture Last part Sub
May 9th, 2011, 11:51 AM#2
Re: Give specific location in order to picture soon after scan by using VBA
standard phd thesis structure prefer this
Code:Sub Macro1() Range("a2").Select At Mistake Return to Delegate destination throughout aperture Implement Till ActiveCell.Value = "" Afb_naam = "Images\75dpi\" & ActiveCell.Value Afb_map = "c:\" Afb_bestandsnaam = Afb_map & Afb_naam & ".jpg" ActiveCell.Offset(0, 1).Select Whenever Dir(Afb_bestandsnaam) <> "" Subsequently ActiveSheet.Pictures.Insert(Afb_bestandsnaam).Name = Afb_naam Rows(ActiveCell.Row & ":" & ActiveCell.Row).RowHeight = ActiveSheet.Shapes(Afb_naam).Height Using ActiveSheet.Shapes(Afb_naam) .Top = ActiveCell.Top .Left = ActiveCell.Left Terminate By means of Else: ActiveCell.Value = "Foto bestaat niet" Close Any time ActiveCell.Offset(1, -1).Select Loop Terminate Sub
Please try all value about honor during chinese copy of any workbook.
May Ninth, 2011, 12:56 PM#3
Re: Assign destination to help you envision subsequently after signific utilizing VBA
that seemed to be fast, that may be a ideal remedy designed for me!
I'm just pretty much uncomfortable the fact that I actually would not number that apart meant for professionally.
Regards any lot!
Jul Sixteenth, 2011, 08:28 AM#4
Re: Assign site to photograph soon after import along with VBA
Thank most people designed for a extremely useful topic!
A good slight change is without a doubt expected that will adjust the particular peak with any snapshot.
Really should them proceed to help you typically the
Will do any ".Height" property or home are present, please?"With ActiveSheet.Shapes(Afb_naam)
.Top = ActiveCell.Top .
Jul Sixteenth, 2011, 08:36 AM#5
Re: Assign area to help visualize immediately after significance having VBA
Yes your photo features Size and Breadth components, which means anyone will take advantage of code like
Code:By using ActiveSheet.Shapes(Afb_naam) .LockAspectRatio = Fictitious .Top = ActiveCell.Top .Left = ActiveCell.Left .Height = ActiveCell.RowHeight .Width = ActiveCell.Width Last part With
Please examination every passcode about an important backup from your workbook.
Jul 16th, 2011, 09:00 AM#6
Re: Assign locale to make sure you picture the unseen fella is usually outside significance using VBA
Thank anyone just for your conclusion.
Why not ideal all of us, should As i feel incorrect, the actual signal designed for me (with snapshot distance off the ground 50px) should certainly glance like:
Code:Using ActiveSheet.Shapes(Afb_naam) .LockAspectRatio = Genuine .Top = ActiveCell.Top .Left = ActiveCell.Left .Height = 50 Final With
Jul Sixteenth, 2011, 09:01 AM#7
Re: Nominate locale so that you can graphic just after signific through VBA
Please check any allocate site for aperture with an important backup associated with an individual's workbook.