क्या मैं एक्सेल में ग्रेडिएंट के बिना मल्टी-कलर सेल बना सकता हूँ?

Question

मैं एक सेल में दो रंगों को लागू करना चाहता हूं और उन्हें तिरछे अलग करना चाहता हूं। मुझे पता है कि एक्सेल में ग्रेडिएंट्स जोड़ने का एक फंक्शन है, लेकिन मुझे कलर स्टॉप की ताकत सेट करने का कोई तरीका नहीं मिला है।

Comments

मुझे विश्वास नहीं है कि जटिल VBA का उपयोग किए बिना यह संभव है ...

— किनेक्टस

@Kinnectus, मुझे यह जानना अच्छा लगेगा कि इसे कैसे प्राप्त किया जा सकता है, भले ही इसका मतलब है कि जटिल VBA का उपयोग करें, कृपया!

— भरत आनंद

@BharatAnand आपको यह बताने की अनुमति देता है कि मैं इसे प्राप्त करने में सक्षम था। मैंने खुद एक जवाब पोस्ट किया।

— विक्टर ओडुकोया

Answer 1

इसलिए थोड़ा सा खेलने के बाद, मुझे लगा कि यह कैसे करना है। मेरी गलती यह थी कि मैंने केवल दो रंग स्टॉप जोड़े, जब मुझे रंग ढाल को हटाने के लिए 4 रंग स्टॉप जोड़े जाने चाहिए। ढाल को दो रंगों के बीच एक चिकनी रंग संक्रमण बनाने के लिए स्वचालित रूप से जोड़ा जा रहा है। यदि आप रंग को दो रंगों के बीच की दूरी को यथासंभव छोटा बनाते हैं, तो आपको रंग ढाल नहीं दिखाई देगा।

यहाँ मेरा कोड है:

With Selection.Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 225
    .Gradient.ColorStops.Clear
End With

With Selection.Interior.Gradient.ColorStops.Add(0)
    .Color = RGB(255, 0, 0)
    .TintAndShade = 0
End With

With Selection.Interior.Gradient.ColorStops.Add(0.49999999)
    .Color = RGB(255, 0, 0)
    .TintAndShade = 0
End With

With Selection.Interior.Gradient.ColorStops.Add(0.5)
    .Color = RGB(0, 255, 0)
    .TintAndShade = 0
End With

With Selection.Interior.Gradient.ColorStops.Add(1)
    .Color = RGB(0, 255, 0)
    .TintAndShade = 0
End With

और यहाँ है कि यह कैसा दिखता है: दो रंगीन एक्सेल सेल