R
rob_smith01
Hi
Iam new to the forum. This is a tricky one, Iam coding in VB and using
Excel. Part of the project needs to get a map from multimap and return
it to a worksheet. I have written some code that uses a web query to
obtain a link to the exact postcode location within multi map where the
map image is usually shown...thisworks and is tried and tested.
Similarly my code also works for insrtig an image into an excel
worksheet. However the map image filename from multimap wont insert
into the worksheet. I have a feeling I will need an array of some sort
to read all image data in from the web page so that I can get the map
image name, so that I can return it to the worksheet....code is below.
If anyone has any ideas different or on the right track could they help
me....I have programmer block after spending many hours thinking and
trying.
Sub getmap()
Dim curcell
Dim postcode
Dim link As String
Dim file_name As String
Dim to_copy As String
Dim ie As Object
'
' getmap Macro
' Macro recorded 19/07/2005 by RS
' Get post code
Set curcell = Worksheets("sheet2").Cells(49, 5) 'set current cell in
sheet to postcode field
postcode = InputBox("Please Insert Site location post code") ' insert
new post code to sheet
curcell.Value = postcode 'puts inputed value into cell in worksheet for
the new postcode entered
webrefresh ' call to function to refresh web query in sheet
'get image
link = Application.Sheets("Sheet7").Cells(81, 1) 'link set to web query
results link
msgbox link 'output link in txt box to check
Application.ActiveSheet.Pictures.Insert(link).Select ' goto web query
link, insert image from web
end sub
Iam new to the forum. This is a tricky one, Iam coding in VB and using
Excel. Part of the project needs to get a map from multimap and return
it to a worksheet. I have written some code that uses a web query to
obtain a link to the exact postcode location within multi map where the
map image is usually shown...thisworks and is tried and tested.
Similarly my code also works for insrtig an image into an excel
worksheet. However the map image filename from multimap wont insert
into the worksheet. I have a feeling I will need an array of some sort
to read all image data in from the web page so that I can get the map
image name, so that I can return it to the worksheet....code is below.
If anyone has any ideas different or on the right track could they help
me....I have programmer block after spending many hours thinking and
trying.
Sub getmap()
Dim curcell
Dim postcode
Dim link As String
Dim file_name As String
Dim to_copy As String
Dim ie As Object
'
' getmap Macro
' Macro recorded 19/07/2005 by RS
' Get post code
Set curcell = Worksheets("sheet2").Cells(49, 5) 'set current cell in
sheet to postcode field
postcode = InputBox("Please Insert Site location post code") ' insert
new post code to sheet
curcell.Value = postcode 'puts inputed value into cell in worksheet for
the new postcode entered
webrefresh ' call to function to refresh web query in sheet
'get image
link = Application.Sheets("Sheet7").Cells(81, 1) 'link set to web query
results link
msgbox link 'output link in txt box to check
Application.ActiveSheet.Pictures.Insert(link).Select ' goto web query
link, insert image from web
end sub