| Name | Type | Description |
|---|---|---|
| Color | ||
| MixRatio |
Long
|
Sub Test() Dim c1 As Color Dim c2 As Color 'Blend a Red and Green Color at 50% Set c1 = CreateRGBColor(255, 0, 0) Set c2 = CreateRGBColor(0, 255, 0) c1.BlendWith c2, 50 ActiveShape.Fill.ApplyUniformFill c1 End Sub