Dim sMapParams() As String sMapParams = Split(sMapURL, "|") Dim obj As InlineShape Dim sNewImage As String ' szTempDir = Environ("TEMP") ' get temp. folder szTempFileName = fso.GetTempName() ' get a temp. filename ' ' remove the .tmp extension and change to .jpg ' szTempFileName = Left(szTempFileName, 9) szTempFileName = szTempDir & "\" & szTempFileName & "jpg" sNewImage = sMapParams(0) ' <b>err = URLDownloadToFile(0, sNewImage, szTempFileName, 0, 0)</b> Selection.InlineShapes.AddPicture FileName:=szTempFileName, SaveWithDocument:=True
Example 3: Inserting a map into a Word document.