Embed Bing Map into Access Report

[researchRE]

Hello,



Is it possible to embed a Bing's map into an Access report? We need two types of images. One is an aerial of the top of the building and then a second is a map that shows the streets. I know we are able to upload an image, but can a bing's map photo be embedded into the report so that the user can see it without clicking a hyperlink?

Thanks!

[isladogs]

Yes you can - i don't use Bing but its easy enough with Google and I see no reason why it would be a problem.

However I had no luck trying to embed images direct from a website onto a report
Instead my approach is to download the required map(s) as image files.

Place this code in a standard module

'conditional compiling for use in 32-bit/64-bit systems#If VBA7 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
            "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
            szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  
#ElseIf Win64 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
            "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal _
            szFileName As String, ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As LongPtr
   
#Else
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
            "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
            szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Public Function DownloadFilefromWeb(url As String, FileName As String) As Boolean
    DownloadFilefromWeb = URLDownloadToFile(0, url, FileName, 0, 0)
End Function

Use code similar to this to download & display the map image in a form/report

 'Download map from specified strURL to specified path strFilePath
    DownloadFilefromWeb strURL, strFilePath
    DoEvents
   'display image 
    Me.Image0.Picture = strFilePath

HTH