Tek tek kıvılcım eksenlerinin renkleri nasıl değiştirilir?

Bir grup eğri çizginin eksen rengini değiştirmeme izin veren aşağıdaki kodu (ofis belgelerinde) buldum :

Sub AxisColor()
    'The sparkline group
    Dim oSparkGroup As SparklineGroup
    'Loop through the sparkline groups on the sheet
    For Each oSparkGroup In Range("A2:C2").SparklineGroups
        'Show the axis
        oSparkGroup.Axes.Horizontal.Axis.Visible = True
        'Set the color of the axis to the color of cell A8
        oSparkGroup.Axes.Horizontal.Axis.Color.Color = Range("A8").Interior.Color
    Next oSparkGroup
End Sub

Bununla birlikte (tek bir) 60 kıvılcım grubum var ve eksen hattın üstünde veya altında olacak (duruma göre değişir). Tüm verilerin üstünde bir eksen (yani bir maks.) Ve tüm verilerin altında bir eksen (yani bir min) için farklı renklere sahip olmak istiyorum . Mümkün mü?

Sparkline grubunu 60 bireysel gruba bölmem gerekebileceğinden şüpheleniyorum. Birisi bana bunun nasıl yapıldığını gösterebilirse (VBA veya başka bir yöntemle), yukarıdaki kodu kolayca amaçlarım için uyarlayabilirim.

— Dan
kaynak

Gözcü penceresindeki nesneleri yukarıdaki koddaki hata ayıklama sırasında denetledim ve tek tek öğe özelliklerini değiştirmenin bir yolunu bulamadım. Ve grupları bölmek ve hiçbir şey bulamamayla ilgili dokümantasyon araştırıyorum.

— Dan

@ Rayayfarian hayır eksen rengini el ile değiştiremezsiniz maalesef. Bunları manuel olarak grup olarak bile değiştiremezsiniz, bu yüzden dokümanlar bağlantılı vba kodunu sağlar.

— Dan

Ne istediğini anlamıyorum, zaten her gruba hitap ediyorsun. ifKonuma bağlı olarak farklı bir renk istiyorsanız, rengi ayarlamadan önce bir giriş yapın.

— Raystafarian

Sadece bir grubum var, bu grupta birden fazla kıvılcım çizgisi var (yani birçok hücre). Tek tek eğri çizgiler için eksen rengini bu grupla birlikte değiştirmek istiyorum. Eğer bu grubu her bir ufuk çizgisi başına bir gruba bölmeme yardım edersen, evet istediğimi elde etmek için bir if ifadesi kullanabilirim.

— Dan

Her bir gruba hitap ediyorsunuzFor Each oSparkGroup In Range("A2:C2").SparklineGroups

— Raystafarian