Makronun Excel Diline Göre Çalışması

[Anafartalar]

Merhabalar,

Aşağıdaki kod özet tablodan bir grafik oluşturuyor. Ancak Excel dili ingilizce olan kullanıcılarda çalışmıyor. Çünkü grafiğin tanımı Türkçe (2 Eksenli Çizgi Sütun). Acaba bu sorunu çözmek için kodun başına if'li bir ifade koyulabilir mi? Eğer dil türkçe ise şu grafik tanımını kullan, değil ise diğerini kullan şeklinde bir şey yapılabilir mi? Ustalarımızın desteğini bekliyorum.

ActiveSheet.ChartObjects.Delete
ActiveSheet.Range("A5").Select
    Charts.Add
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "2 Eksenli Çizgi Sütun"
    ActiveChart.SetSourceData Source:=Sheets("GenelVeri").Range("A5:C10,A3:B3")
    ActiveChart.Location where:=xlLocationAsObject, Name:="GenelVeri"

 

[Necdet]

Merhaba,

Aşağıdaki kod fikir verebilir belki.

    If Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1033 Then
        Formül = "=MOD(ROW();2)=0" '--İngilizce sürüm
    Else
        Formül = "=MOD(SATIR();2)=0)" '-- Türkçe Sürüm
    End If

 

[Anafartalar]

Merhaba,

Aşağıdaki kod fikir verebilir belki.

    If Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1033 Then
        Formül = "=MOD(ROW();2)=0" '--İngilizce sürüm
    Else
        Formül = "=MOD(SATIR();2)=0)" '-- Türkçe Sürüm
    End If

Kesinlikle fikir verdi. Çok teşekkür ederim.
Kodu aşağıdaki gibi yeniden düzenledim.

Charts.Add
    If Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1033 Then

ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "Line - Column on 2 Axes" '--İngilizce sürüm
    Else
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "2 Eksenli Çizgi Sütun" '-- Türkçe Sürüm

End If

 

[Necdet]

Kesinlikle fikir verdi. Çok teşekkür ederim.
Kodu aşağıdaki gibi yeniden düzenledim.

Rica ederim, güle güle kullanınız.