Koordinat girip google maps görüntüsünü almak

[uguratik]

Merhaba değerli hocalarım
bende bulunan adres listesine göre excele koordinatları girip google maps görüntüsünü otomatik olarak almak istiyorum bir excel örneğinde bunun olabildiğini gördüğümden soruyu yazıyorum vba kodları ile bu mümkün olduğunu öğrendim yardımcı olabilirmisiniz
saygılarımla,

 

[systran]

ilginç, takip...

 

[Merhum İdris SERDAR]

Merhaba değerli hocalarım
bende bulunan adres listesine göre excele koordinatları girip google maps görüntüsünü otomatik olarak almak istiyorum bir excel örneğinde bunun olabildiğini gördüğümden soruyu yazıyorum vba kodları ile bu mümkün olduğunu öğrendim yardımcı olabilirmisiniz
saygılarımla,

.

Burada Excel 2013'ten önce bir çalışma yapmıştım.

http://www.excel.web.tr/f125/excelde-google-map-yol-tarifi-t119821.html

Ancak Microsoft güvenlik nedeniyle 2013 sürümde web browser nesnesini kaldırdığından bu sürümde çalışmamaktadır.

Çalışabilmesi için aşağıdaki makalede belirtilen ayarları yapmak gerekir.

http://support.microsoft.com/kb/2252664?wa=wsignin1.0

Ben denemedim.

.

 

[uguratik]

değerli hocam yanıtınız için teşekkür ederim kullandığım ofis sürümü 2010
koda bi şekilde ulaştım ancak kendi sayfam üstünde hatalarla karşılaşıyorum sayfaya koordinat
girdiğimde haritayı getiriyor ancak kayıt edemiyorum dosyamı xlsm olarak kodu aşağıda paylaşıyorum yeni kitap üstünde kayıt yapamıyorum ve farklı hatalarla karşılaşıyorum bu konuda yardımlarınızı rica edeceğim saygılarımla kod aşağıda bilgilerinize sunulmuştur.

Private Sub CommandButton1_Click()



'koordinatlari bilgi sayfasindan al
Dim n As String
Dim e As String
Dim googlemap As String
Dim gm As String

Dim googlemap2 As String
Dim gm2 As String

n = Sayfa8.Range("AR2")
n = Sayfa8.Range("AR5") & Sayfa8.Range("AR6") & Sayfa8.Range("AR7") & Sayfa8.Range("AR8")
e = Sayfa8.Range("AR3")
e = Sayfa8.Range("AR9") & Sayfa8.Range("AR10") & Sayfa8.Range("AR11") & Sayfa8.Range("AR12")

googlemap = "http://maps.google.com/maps/api/staticmap?&zoom=17&size=900x350&maptype=hybrid&markers=color:green|label:A|" & n & "," & e & "&sensor=false"
gm = googlemap
'Sayfa8.Range("C7") = gm


ActiveSheet.Range("B7").Select
With ActiveSheet.Pictures.Insert(gm)

End With

'2'nci yol haritasi
googlemap2 = "http://maps.google.com/maps/api/staticmap?&zoom=17&size=900x400&maptype=roadmap&markers=color:green|label:A|" & n & "," & e & "&sensor=false"
gm2 = googlemap2
'Sayfa8.Range("C8") = gm2

ActiveSheet.Range("B26").Select
With ActiveSheet.Pictures.Insert(gm2)

End With


'koordinatlari ve oklari one getir.
'ActiveSheet.Shapes.Range(Array("AutoShape 104", "List Box 2", "List Box 3", "Rectangular Callout 3")).Select
'Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Shapes.Range(Array("Rectangular Callout 7", "Rectangular Callout 12")).Select
Selection.ShapeRange.ZOrder msoBringToFront

ActiveSheet.Range("A1").Select
MsgBox "Koordinatlar alındı", , "OK"

End Sub