使用VB.NET将填充图案填充到excel单元格

如何将模式填充到excel单元格

基于这个论坛上的一些帖子，我尝试使用下面的内容，但到目前为止没有成功

（a）

（b）

任何帮助都将不胜感激

谢谢

此（Excel VSTO）代码有效：

Dim rng As Range = activeSheet.Range(1,1)
rng.Style = "Calculation"

“计算”是样式的名称

Dim style As Microsoft.Office.Interop.Excel.Style
style = oWB1.Styles.Add("Style1")
style.Interior.Pattern = Microsoft.Office.Interop.Excel.XlPattern.xlPatternSolid
oWB1.Worksheets(i).Cells(7, 3).Style = "Style1"

Dim rng As Range = activeSheet.Range(1,1)
rng.Style = "Calculation"