vba 中的颜色混合器

Question

以下链接在html中提供了颜色混合器代码。

https://www.w3schools.com/colors/colors_mixer.asp

我正在寻找vba中的颜色混合器代码。

我尝试使用以下代码，其中包括梯度方法，但以下代码产生不同的输出。

Sub SetGradient()
Dim myrange As Range
Set myrange = ThisWorkbook.Sheets("Sheet1").Range("A1")
    With myrange.Interior
        .Pattern = xlPatternLinearGradient
        .Gradient.Degree = 90
        .Gradient.ColorStops.Clear
    End With
    With myrange.Interior.Gradient.ColorStops.Add(0.5)
        .Color = vbRed
    End With
    With myrange.Interior.Gradient.ColorStops.Add(0.5)
        .Color = vbBlue
    End With
End Sub

请点击以下链接查看我想要哪种颜色。

请点击这里

Answer 1

如果你愿意，我可以制作一个有关它的视频:) https://youtube.com/@buildgreatproducts?si=A5EoDdUkow9H1_5-