My original request was to read a path from column A and in column insert an
object (AutoCAD file) based on that path. Well, no luck so far. Can someone
help me. If Column A has the example below, what formula or programming
would I use to cascade down column A, reading the values, inserting the
object (I might convert them all to jpgs and insert picture if that is
easier) based on the value in columnA.

Column A
C:\Documents and Settings\jason.hopson\My
Documents\5590_1_RECEIVE\5590_SLDW_AUTO.dwg

This could have been done manually by now so now I am really in a tough
spot. It just seems as though it should be simple and possible :).

Thanks again, I think Tom, Ron, and all the MVP's and others are a serious
part of support, above and beyond the normal support avenues. Reality builds
confidence and you don't get that from a support hotline.

Sub Macro1()
On Error Resume Next
Range("B2").Select
Do
ActiveSheet.Pictures.Insert( _
ActiveCell.Offset(0, -1).Value).Select
ActiveCell.Offset(1, 0).Select
If Len(ActiveCell.Offset(0, -1).Value) = 0 Then Exit Do
Loop
End Sub

--
HTH,
Gary Brown

If this post was helpful to you, please select ''YES'' at the bottom of the
post.



"Rookie_User" wrote:

My original request was to read a path from column A and in column insert an
object (AutoCAD file) based on that path. Well, no luck so far. Can someone
help me. If Column A has the example below, what formula or programming
would I use to cascade down column A, reading the values, inserting the
object (I might convert them all to jpgs and insert picture if that is
easier) based on the value in columnA.

Column A
C:\Documents and Settings\jason.hopson\My
Documents\5590_1_RECEIVE\5590_SLDW_AUTO.dwg

This could have been done manually by now so now I am really in a tough
spot. It just seems as though it should be simple and possible :).

Thanks again, I think Tom, Ron, and all the MVP's and others are a serious
part of support, above and beyond the normal support avenues. Reality builds
confidence and you don't get that from a support hotline.

AFter all the postings I have out there and complexity of some of those, your
little code solved my initial issue - I think I need to learn how to explain
in more detail - smile. BUT I still have two things :)

1) When the picture is inserted it is huge, how to automate scaling down
that picture when it comes in with your program.

2) Do you know how to tweak it for AutoCAD DWG file import?

Thank you for your hard work - it really helped me.

"Gary Brown" wrote:

Sub Macro1()
On Error Resume Next
Range("B2").Select
Do
ActiveSheet.Pictures.Insert( _
ActiveCell.Offset(0, -1).Value).Select
ActiveCell.Offset(1, 0).Select
If Len(ActiveCell.Offset(0, -1).Value) = 0 Then Exit Do
Loop
End Sub

--
HTH,
Gary Brown

If this post was helpful to you, please select ''YES'' at the bottom of the
post.



"Rookie_User" wrote:

My original request was to read a path from column A and in column insert an
object (AutoCAD file) based on that path. Well, no luck so far. Can someone
help me. If Column A has the example below, what formula or programming
would I use to cascade down column A, reading the values, inserting the
object (I might convert them all to jpgs and insert picture if that is
easier) based on the value in columnA.

Column A
C:\Documents and Settings\jason.hopson\My
Documents\5590_1_RECEIVE\5590_SLDW_AUTO.dwg

This could have been done manually by now so now I am really in a tough
spot. It just seems as though it should be simple and possible :).

Thanks again, I think Tom, Ron, and all the MVP's and others are a serious
part of support, above and beyond the normal support avenues. Reality builds
confidence and you don't get that from a support hotline.