PowerPoint VBA表格插入行后顶部边框不显示问题求助

核心问题分析 #

你的代码里边框设置失效主要有两个关键原因：

1. 硬编码行号：Rows(6)是固定值，每次循环插入新行后表格总行数会增加，这个固定行号无法匹配你实际需要加边框的目标行。
2. 边框可见性未显式开启：PPT表格边框默认可能处于隐藏状态，仅设置粗细和颜色不足以让它显示出来。

具体修正方案 #

1. 替换固定行号为动态目标行 #

你需要设置边框的是新插入内容行下方的空白行顶部边框，根据你的循环逻辑，应该用当前操作的BelowRow变量定位目标行，而非固定的Rows(6)。

2. 强制开启边框可见性 #

必须显式设置.Visible = msoTrue，确保边框从隐藏状态切换为显示状态。

3. 优化循环内无效自增逻辑（可选但必要） #

你的代码中For i = 1 To 5和For r = 1 To 3循环里手动添加了i = i + 1和r = r + 1，会导致循环次数减半（比如5次循环实际只执行3次），虽然当前功能正常，但存在逻辑隐患，建议删除这些手动自增代码。

修正后的边框设置代码片段 #

BelowRow = BelowRow - 1

' Add Border and Format
With ActiveWindow.Selection.ShapeRange.Table.Rows(BelowRow).Cells.Borders.Item(ppBorderTop)
    .Visible = msoTrue ' 强制开启边框可见性
    .Weight = 3
    .ForeColor.RGB = RGB(77, 77, 77)
End With

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