Link to upload a document

Re: Link to upload a document

If you mean you want to add a link on a userform to a document, then that's easy, all depending on what you mean by "...they will be on a different network".

If you can 'see' the document using Windows Explorer no problem, if you can't then I can't see how you can 'link' to it. Either way, a copy of your workbook/userform would be helpful.

Re: Link to upload a document

I assume you mean you're sending a workbook to someone. They fill in some details on a userform and send the workbook back to you?

If so you can easily embed another file or files (document, workbook, picture, basically anything) in the workbook so it will be available to anyone who later opens the workbook. This will be a static copy of the original file so later updates will not be included.

Re: Link to upload a document

However you want to do it.

You have not given enough information for a specific answer but, in general, you can embed a file using syntax like

Sheets("SheetName").OLEObjects.Add Filename:="C:\Add\FileName\Here.doc", Link:=False, DisplayAsIcon:=True

That doesn't include giving the user the option to select a file, it could be the file name and location is fixed so you can just refer to it in code - but you haven't said anything about that.

Re: Link to upload a document

One problem with forums - it's easy to say you have a problem/want to do something. 1 problem with Excel - it has a lot more than 9 ways to skin a cat.

I did ask for a copy of your workbook earlier but in the absense of, assumptions have been made.

As you mentioned "attach a Map", I'll assume you want to insert a picture. I also assume this picture is to be added to a new worksheet and will be called from a button on the userform.

Sub Macro1()




   Dim ws               As Excel.Worksheet
   Dim ThisWs           As Excel.Worksheet


   Dim vFile            As Variant


   ' Remember the current worksheet
   Set ThisWs = ActiveSheet


   'Show Excel Open Dialog Form
   vFile = Application.GetOpenFilename("All Files (*.*)," & _
                                       "*.*", 1, "Select Map", "Select", False)


   'If Cancelled then exit
   If TypeName(vFile) = "Boolean" Then Exit Sub


   ' Add a new worksheet for the picture
   Set ws = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))


   ' Set some properties and place Top Left of cell A1
   With ws.Pictures.Insert(vFile)
      .ShapeRange.LockAspectRatio = msoTrue
      .Left = ws.Cells(1, 1).Left
      .Top = ws.Cells(1, 1).Top
      .Placement = 1
      .PrintObject = True
   End With


   ThisWs.Activate


End Sub

Add that to a standard module (Rename the procedure if you want) and call it from the button Click event.

Re: Link to upload a document

Quote

this may be a picture but is also could come in a pdf. version or maybe even pasted onto a word document

That should have been explained in your first post - 99 ways and all that.

It's a small change, just use the first line of code I posted rather than the 'InsertPicture' line - you will have to try a few of the available settings to get it to display as a document or pdf rather than as an icon.

Re: Link to upload a document

What/where do you actually want to 'attach'/'upload' the document to?

Re: Link to upload a document

Please upload a copy of your workbook.

There's some standard text to describe how to upload but I can't fins an example right now, perhaps one of the regulars would be good enough to post it, but click the Go Advanced button below to reply and then 'Manage Attachments'