metin kutusu / gradyan renk hk.

[GursoyC]

Arkadaşlar merhaba,
Metin kutusunun rengini gradient şeklinde değiştirmemi sağlayan bir makroyu, makro kaydet yoluyla elde ettim. (dosya ektedir)
Yalnız rengin konumunu %50'ye getirmeyi (ekteki fotoda görülüyor) başaramadım.
Yardımcı olabilecek, bilgisi olan var mı acaba?

Teşekkürler.

ActiveSheet.Shapes.Range("Metin Kutusu 4").Select
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.RGB = RGB(0, 0, 0)
        .ForeColor.Brightness = 0
        .BackColor.ObjectThemeColor = msoThemeColorAccent1
        .BackColor.RGB = RGB(255, 0, 0)
        .BackColor.Brightness = 0
        .TwoColorGradient msoGradientHorizontal, 1
    End With
    Selection.ShapeRange.TextFrame2.TextRange.Font.Fill.Visible = msoTrue

 

[ÖmerFaruk]

Biraz araştırınca aşağıdaki .GradientStops.Insert2 vbRed, 0.4, 0, 1, -0.6 satırı bu işi yapıyor.

With Sheets("Sayfa1").Shapes.AddShape(msoShapeRectangle, 100, 20, 200, 120).Fill ' left 100, top 20, width 200, height 120
    .TwoColorGradient 1, 1 'Gradient stili, ilk rakam yönü,  ikincisi renk sayısı
    .GradientStops(1).Color = vbYellow 'arzu edersen koymasan da olur
    .GradientStops(1).Transparency = 0 'üstteki gibi
    .GradientStops.Insert2 vbRed, 0.4, 0, 1, -0.6 ' Kırmızı bir hat koyuyor sayılar da bununla ilgili özellikleri belirtiyor
    .RotateWithObject = msoTrue
End With

 

[GursoyC]

Çok teşekkür ederim.
Saygılar.