Excel表格制作过程中，需要对表格进行一个美观修饰，这样就提高了工作表的格局，一个漂亮的工作表，不仅体现了公司的办公技术阶层，更是对外宣传的一个最直接门户。
本节介绍，如何设置单元格以及图形控件类的背景颜色和背景图案。
首先，看上图，我们会用到图中的一个对象：Interior
此对象可使用单元格的Range.Iterior返回。
如：Range("A1").Interior
就表示返回A1单元格的内部对象，接下来对它进行属性设置，就会改变A1单元格的内部格式。
Interior属性有如下几种：
利用上述属性可以设置单元格内部颜色，填充图案，和填充颜色以及颜色的明暗度等等。
下面有一个示例来具体看一下，设置不同属性值带来的变化。
No.2代码
设置单元格Interior属性
Private Sub CommandButton1_Click()
Dim cell As Range
Set cell = ActiveSheet.Rows(3)
With cell.Interior
.Color = QBColor(11) '背景颜色
.TintAndShade = 0.5 '灰度值
.Pattern = xlPatternChecker '填充图案
.PatternColor = 15 '填充图案颜色
End With
End Sub
滚动条改变背景灰度
Private Sub ScrollBar1_Change()
Dim xV As Double
xV = Me.ScrollBar1.Value / 10
Me.TextBox1.Value = xV
setBackColor xV'调用函数
End Sub
设置背景颜色和灰度函数
Private Sub setBackColor(xV As Double)
Dim cell As Range
Set cell = ActiveSheet.Cells
With cell.Interior
.Color = QBColor(12)
.TintAndShade = xV
End With
End Sub
Interor对象对于VBA编程十分有用，其属性也不多，属于比较容易掌握的一类对象，所以，在工作当中，可以多学习此类属性应用。
欢迎关注、收藏
---END---
