Haritada Bölge Sınırları Belirleme

[TOYGARLI]

Merhaba arkadaslar kolay gelsin benim sorunum türkiye haritasi var elimde excel formatında haritadaki bölgelerin sınırlarını kalın yapmak istiyorum nasıl yapabilirim yardımcı olursanız sevinirim. Dosyayıya ekte paylaştım sadece bölge sınırları biraz kalın ve belirgin olucak

 

[TOYGARLI]

Yardım edebilicek kimse yokmudur.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub Kalin_Cizgi()
    Dim Nesne As Shape
    
    For Each Nesne In ActiveSheet.Shapes
        If InStr(1, Nesne.Name, "Free") > 0 Then
        Nesne.Line.Weight = 2.5
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[YUSUF44]

Hatalı mesaj, Dikkate almayınız.

 

[TOYGARLI]

Hatalı mesaj, Dikkate almayınız.

hatalı derken soru sordum neresi hatalıdır.

 

[YUSUF44]

hatalı derken soru sordum neresi hatalıdır.

Pardon, sizin mesajla alakası yok; ben bir cevap yazmıştım, sonra cevabımın hatalı olduğunu gördüğüm için değiştirdim ve kendi mesajımın dikkate alınmamasını kastettim. Haklısınız, düşük bir ifade olmuş, kusura bakmayın.