By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,462 Members | 2,360 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,462 IT Pros & Developers. It's quick & easy.

How do I show the satellite view of google maps

P: n/a
I have a button on a form which when pressed displays a google map of the
address.

Code is

Private Sub Googlemap_Click()

MakeURL ("")

End Sub
Private Sub MakeURL(strType As String)

On Error GoTo Err_MakeURL

Dim strURL As String
Dim objBrowser As Object

strURL = CreateUrl(MemAdd1, TownID.Column(0), County, PostCode)

'If strType = "Driving" Then
'strURL = strURL & "+" & "to" & "+" & CreateUrl(Me.ToAddress,
Me.ToCity, Me.ToState, Me.ToZipCode)
'End If
strURL = "http://maps.google.com/maps?q=" & strURL &
"&iwloc=A&hl=en; t=h"

Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
With obj
.Navigate2 strURL
.Visible = True
End With
Set obj = Nothing

Exit_MakeURL:
Exit Sub

Err_MakeURL:
MsgBox Err.Description
Resume Exit_MakeURL

End Sub

Works fine as far as it goes, but shows either the Map view, Satellite view
or Terrain View, depending on the last time I accessed the maps. Low do I
force it to show the Satellite view and how can I set the zoom level

Thanks for any advice

Phil

Jul 27 '08 #1
Share this Question
Share on Google+
3 Replies


P: n/a
Hi Phil,

I believe you will have to post that question to Google Maps to see if there
is a switch you can include in the URL.

Bonnie
http://www.dataplus-svc.com

Phil Stanton wrote:
>I have a button on a form which when pressed displays a google map of the
address.

Code is

Private Sub Googlemap_Click()

MakeURL ("")

End Sub

Private Sub MakeURL(strType As String)

On Error GoTo Err_MakeURL

Dim strURL As String
Dim objBrowser As Object

strURL = CreateUrl(MemAdd1, TownID.Column(0), County, PostCode)

'If strType = "Driving" Then
'strURL = strURL & "+" & "to" & "+" & CreateUrl(Me.ToAddress,
Me.ToCity, Me.ToState, Me.ToZipCode)
'End If
strURL = "http://maps.google.com/maps?q=" & strURL &
"&iwloc=A&hl=en; t=h"

Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
With obj
.Navigate2 strURL
.Visible = True
End With
Set obj = Nothing

Exit_MakeURL:
Exit Sub

Err_MakeURL:
MsgBox Err.Description
Resume Exit_MakeURL

End Sub

Works fine as far as it goes, but shows either the Map view, Satellite view
or Terrain View, depending on the last time I accessed the maps. Low do I
force it to show the Satellite view and how can I set the zoom level

Thanks for any advice

Phil
--
Message posted via http://www.accessmonster.com

Jul 27 '08 #2

P: n/a
Phil Stanton wrote:
I have a button on a form which when pressed displays a google map of the
address.

Code is

Private Sub Googlemap_Click()

MakeURL ("")

End Sub
The code looks familiar. :)

I wouldn't know. You might want to go to google maps then press the
"see more maps" link then Developer Tools. Maybe look at the API link.
>
Private Sub MakeURL(strType As String)

On Error GoTo Err_MakeURL

Dim strURL As String
Dim objBrowser As Object

strURL = CreateUrl(MemAdd1, TownID.Column(0), County, PostCode)

'If strType = "Driving" Then
'strURL = strURL & "+" & "to" & "+" & CreateUrl(Me.ToAddress,
Me.ToCity, Me.ToState, Me.ToZipCode)
'End If
strURL = "http://maps.google.com/maps?q=" & strURL &
"&iwloc=A&hl=en; t=h"

Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
With obj
.Navigate2 strURL
.Visible = True
End With
Set obj = Nothing

Exit_MakeURL:
Exit Sub

Err_MakeURL:
MsgBox Err.Description
Resume Exit_MakeURL

End Sub

Works fine as far as it goes, but shows either the Map view, Satellite view
or Terrain View, depending on the last time I accessed the maps. Low do I
force it to show the Satellite view and how can I set the zoom level

Thanks for any advice

Phil
Jul 27 '08 #3

P: n/a
Ah Salad. No point in re-inventing the wheel

Will try Google maps

Thanks

Phil

"Salad" <oi*@vinegar.comwrote in message
news:cZ******************************@earthlink.co m...
Phil Stanton wrote:
>I have a button on a form which when pressed displays a google map of the
address.

Code is

Private Sub Googlemap_Click()

MakeURL ("")

End Sub
The code looks familiar. :)

I wouldn't know. You might want to go to google maps then press the "see
more maps" link then Developer Tools. Maybe look at the API link.
>>
Private Sub MakeURL(strType As String)

On Error GoTo Err_MakeURL

Dim strURL As String
Dim objBrowser As Object

strURL = CreateUrl(MemAdd1, TownID.Column(0), County, PostCode)

'If strType = "Driving" Then
'strURL = strURL & "+" & "to" & "+" &
CreateUrl(Me.ToAddress, Me.ToCity, Me.ToState, Me.ToZipCode)
'End If
strURL = "http://maps.google.com/maps?q=" & strURL &
"&iwloc=A&hl=en; t=h"

Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
With obj
.Navigate2 strURL
.Visible = True
End With
Set obj = Nothing

Exit_MakeURL:
Exit Sub

Err_MakeURL:
MsgBox Err.Description
Resume Exit_MakeURL

End Sub

Works fine as far as it goes, but shows either the Map view, Satellite
view or Terrain View, depending on the last time I accessed the maps. Low
do I force it to show the Satellite view and how can I set the zoom level

Thanks for any advice

Phil

Jul 28 '08 #4

This discussion thread is closed

Replies have been disabled for this discussion.