Excel VBA, Create Gradient
This article provides code snippets for creating gradients. Note the codes in this article merely create the default gradient. In order to modify the gradients please see the topics covered in the article Excel VBA, Fill Effects, Gradient
Jump To:
Contents
Cell:
The code below creates a gradient for cell A1:
Range("A1").Interior.Pattern = xlPatternLinearGradient
Result:
Note: The gradient created is the default gradient. You can later modify it using the topics covered in the article Excel VBA, Fill Effects, Gradient.
Range:
The following code creates a gradient for the range "A1:C3":
Range("A1:C3").Interior.Pattern = xlPatternLinearGradient
The code below is also equivalent to the code above:
Range(cells(1, 1), cells(3, 3)).Interior.Pattern = _
xlPatternLinearGradient
Result:
Note: The gradient created is the default gradient. You can later modify it using the topics covered in the article Excel VBA, Fill Effects, Gradient.
Column:
The following code creates a gradient for column 2:
Columns(2).Interior.Pattern = xlPatternRectangularGradient
Before:
After:
Note: The gradient created is the default gradient. You can later modify it using the topics covered in the article Excel VBA, Fill Effects, Gradient.
Row:
The following code creates a gradient for row 3:
Rows(3).Interior.Pattern = xlPatternRectangularGradient
Before:
After:
Note: The gradient created is the default gradient. You can later modify it using the topics covered in the article Excel VBA, Fill Effects, Gradient.
Sheet:
The following code creates a gradient for sheet 2:
Sheet2.Cells.Interior.Pattern = xlPatternRectangularGradient
Before:
After:
Note: The gradient created is the default gradient. You can later modify it using the topics covered in the article Excel VBA, Fill Effects, Gradient.
See also:
If you need assistance with your code, or you are looking for a VBA programmer to hire feel free to contact me. Also please visit my website www.software-solutions-online.com