我之前也踩过这个坑！Excel自带的xlDot枚举值对应的线型，在屏幕显示（尤其是非100%缩放时）确实会看起来像方形短划线，而非我们预期的小圆点。下面给你几个实用的解决方案：

1. 先检查Excel窗口缩放比例 #

最简单的排查步骤：把Excel窗口的缩放比例调到**100%**试试。很多时候，非100%缩放会让xlDot的线型显示变形，回到100%缩放后就能看到正常的圆点了。

2. 优化VBA代码并强制刷新 #

如果缩放调整后还是不行，或者你需要确保在任何环境下都能正确显示，可以试试这段代码，同时设置线型、粗细并强制刷新单元格：

Sub SetDotBorder()
    Dim targetRange As Range
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1:C3") ' 替换成你的目标区域
    
    ' 统一设置所有边框为圆点线型
    With targetRange.Borders
        .LineStyle = xlDot
        .Weight = xlThin
        .ColorIndex = xlAutomatic ' 可替换为vbBlack等自定义颜色
    End With
    
    ' 强制刷新工作表，确保线型正确渲染
    targetRange.Parent.Calculate
    targetRange.Parent.Activate
End Sub

3. 替代方案：用极细线条模拟圆点 #

如果自带的xlDot始终达不到你想要的效果，还可以用极细的连续线条来模拟小圆点视觉效果，代码如下：

Sub SimulateDotBorder()
    Dim targetRange As Range
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1:C3")
    
    With targetRange.Borders
        .LineStyle = xlContinuous
        .Weight = xlHairline ' 极细线条，视觉上接近圆点效果
        .Color = vbBlack
    End With
    
    targetRange.Parent.RefreshAll
End Sub

补充提示 #

另外，屏幕显示和打印效果可能存在差异——有时候屏幕上看起来是方形短划线，打印预览或实际打印出来就是标准的小圆点了，建议你多查看打印预览确认最终效果。

内容的提问来源于stack exchange，提问作者ericauv