导出后边框被颜色覆盖

收藏

Vb6.0+Spread7.0 表格导出后，颜色覆盖了单元格的边框，怎么让边框显示出来呢？谢谢！

iceman · iceman

回复 1楼喀喀坤的帖子

请问你是导出到什么格式的文件，是设置了单元格的背景色导出后把边框覆盖了吗？

喀喀坤 · 喀喀坤

回复 2楼iceman的帖子

导出的是excel，嗯嗯，设置了颜色，导出后覆盖了单元格的边框

iceman · iceman

回复 3楼喀喀坤的帖子

请问你的边框颜色和背景色分别是？
我这边的测试结果是并非边框被覆盖，而是背景色和边框颜色相近不明显，测试代码：

复制代码

喀喀坤 · 喀喀坤

回复 4楼iceman的帖子

边框是默认的，没有颜色，背景色是这么设置的
Me.fpSpread1.Row = 2
Me.fpSpread1.Col = 4
Me.fpSpread1.BackColor = &HC0FFFF

结果是无论选什么颜色，导出后有颜色的区域都把边框覆盖了

iceman · iceman

回复 5楼喀喀坤的帖子

需要用 Border 代替 GridLine。
默认情况下，Spread COM 单元格没有 Border ，当前看到的有可能是 GridLine，可以尝试使用 Border：

Private Sub Form_Load()
Me.fpSpread1.Row = 2
Me.fpSpread1.Row2 = Me.fpSpread1.MaxRows
Me.fpSpread1.Col = 2
Me.fpSpread1.Col2 = Me.fpSpread1.MaxCols
'Me.fpSpread1.GridColor = RGB(100, 88, 88)
'Me.fpSpread1.GridSolid = True
Me.fpSpread1.BackColor = RGB(0, 0, 255)
fpSpread1.SetCellBorder 1, 1, Me.fpSpread1.MaxRows, Me.fpSpread1.MaxCols, 1, RGB(88, 88, 88), CellBorderStyleSolid
fpSpread1.SetCellBorder 1, 1, Me.fpSpread1.MaxRows, Me.fpSpread1.MaxCols, 2, RGB(88, 88, 88), CellBorderStyleSolid
fpSpread1.SetCellBorder 1, 1, Me.fpSpread1.MaxRows, Me.fpSpread1.MaxCols, 4, RGB(88, 88, 88), CellBorderStyleSolid
fpSpread1.SetCellBorder 1, 1, Me.fpSpread1.MaxRows, Me.fpSpread1.MaxCols, 8, RGB(88, 88, 88), CellBorderStyleSolid
End Sub

复制代码

喀喀坤 · 喀喀坤

回复 6楼iceman的帖子

谢谢iceman，回复晚了，不好意思

iceman · iceman

回复 7楼喀喀坤的帖子

不客气，有问题欢迎开新帖提问。

		自动登录	找回密码
密码			立即注册

[已处理] 导出后边框被颜色覆盖