1、首先需要建立一个表格，并建立一个按钮控件，方便点击触发TintAndShade=1属性事件，如下图所示：
2、点击鼠标右键，进入到按钮控件中的指定宏属性，如下图所示：
3、进入到EXCEL表格vba的project项目模式下，如下图所示：
1、接下来就是编写代码，编写体现TintAndShade=1属性情况，编写代码如下图所示：
2、代码：
Sub Msg()
Sheet1.Range("C2:D3").Borders(xlEdgeRight).TintAndShade = 1
End Sub
体现TintAndShade = 1属性情况显示
1、最后就是点击按钮控件，执行代码，显示结果，将TintAndShade = 1属性的结果显示出来，如下图所示：
2、最终可以得出TintAndShade = 1属性代码显示出来的结果为单元格的线条显示，如下图所示：
