Vba ile Koordinatları Google Maps e Aktarma

[toprak2349]

Vba da koordinatları veya enlem boylam bilgisi verilen 2 nokta arasında düz bir çizgi çizilebilir mi ? Koordinatları verilen 2 nokta arasına dümdüz çizgi nasıl çizdirebiliriz ? Ekteki mesela kırmızı çizgi ile olan çizginin çizilebilmesi gibi. Kırmızı çizgi için tüm kıvrım-kırık olan noktaların koordinatları girilecek ve o çizgi çizilecek ! Mümkün müdür acaba ? ( Userform da textbox a enlem boylam girilecek, Cmd button a tıklayınca da google maps e bağlanıp bunun gibi çizgiyi çizecek yazıları yazacak...)

Link : https://imgyukle.com/i/EN7aW0

 

[Zeki Gürsoy]

Mevcut Google API' leri bu işi ücretsiz olarak karşılar mı emin değilim. Ama UserForm veya Frame nesnelerinden birine bu haritayı resim olarak yüklerseniz GDI Win32 API ile çizgi çizilebilir.

 

[toprak2349]

@Zeki Gürsoy Cevap verdiğiniz için çok teşekkür ederim. Frame ekleyip haritayı frame e de yüklesek our. Ama ben günlerdir, 2 koordinat arasına çizgi çizdiremedim. Acaba kod olarak yardımcı olabilir misiniz ?

 

[Haluk]

Ekte bir dosya hazırladım... Bu dosyada; örnek olarak verilen koordinatlarla Ankara - Sakarya - Eskişehir - Kütahya illerinin çizgi ile birleştirilerek Google Earth üzerinde gösterilmesini sağlayan "myKML.kml" dosyası, Excel dosyasının olduğu yerde hazırlanacaktır.

Bu dosyayı çift tıklayarak açtığınızda Google Earth'de söz konusu çizgiyi göreceksiniz.

(Not: Revize dosya 5 No'lu mesajın ekindedir)




.

 

[Haluk]

Aşağıdaki resimde belirtildiği gibi, dosyada bir revizyon yaptım.... bu kez araları çizgi ile birleştirilen noktaların isimleri de "Google Earth" üzerinde belirtiliyor.

Revize dosya ektedir....






Marker'ların ikonları değiştirilebilir.... (Sarı pin >>>> Mavi Nokta)






.

 

[Haluk]

Çizgilerin rengi ve kalınlığı istenilene göre yapılır....










.

 

[toprak2349]

@Haluk çok teşekkür ederim. Günlerdir aradığım soruna çözüm bulmuşsunuz, harikasınız. Acaba vba kod sayfasına erişmeme yardımcı olabilir misiniz ? Kendim de dosya üstünde çalışmak istiyorum.

 

[Haluk]

Merhaba,

5. Mesajda eklediğim dosya; 1. mesajınızdaki sorunuzu tamamen cevaplamakta olup, VBA şifresi hariç kullanımında kısıtlama yoktur.

Söz konusu dosya ve daha sonraki mesajlarda görselleri verilen şekliyle revize edilen dosyada VBA kodlarını isterseniz, ücreti karşılığında verebilirim. Bunun için özel mesajla irtibat kurabilirsiniz.


.

 

[toprak2349]

@Haluk bey, teşekkürler. Hazırladığınız dosya/kodlar harika bir şekilde çalıştı. Günlerdir aradığım ve çözemediğim sorunumu çözdünüz , tam istediğim şekilde de gerekli revizeleri yaptığınız için de ayrıca çok teşekkürler... Sizin deyiminizle "Kod anlatılmaz, yazılır ! " ....

 

[Haluk]

Yapılan son revizyonlarda; sadece istenilen noktalar Google Earth'de işaretleniyor (aşağıdaki resimde sadece 1 ve 5. noktalar), çizgi kalınlıkları, renkleri değiştirilebiliyor ve görüntünün üzerine istenilen şekilde lejant konulabiliyor.

 

[jilazem]

Merhaba bu noktalar arası kuş uçumu mesafeleri yazdırma şansımız var mı?(Çizgi ortası olabilir)

 

[vlknkyc]

Aşağıdaki resimde belirtildiği gibi, dosyada bir revizyon yaptım.... bu kez araları çizgi ile birleştirilen noktaların isimleri de "Google Earth" üzerinde belirtiliyor.

Revize dosya ektedir....






Marker'ların ikonları değiştirilebilir.... (Sarı pin >>>> Mavi Nokta)






.

Haluk bey merhaba makro çalışmadı bende