向所有桌子添加边框颜色PowerPoint VBA

Question

试图在PowerPoint和失败的所有表中添加边框颜色。我不太擅长。

Sub SetTableBorder()
Dim oShp As Shape
Dim oTbl As Table
Dim oSld As Slide

For Each oSld In ActivePresentation.Slides
    For Each oShp In oSl.Shapes
        If oShp.HasTable Then
            With oShp.Table
                .Borders(ppBorderTop).ForeColor.RGB = RGB(235,186,182)
                .Borders(ppBorderBottom).ForeColor.RGB = RGB(235,186,182)
                .Borders(ppBorderLeft).ForeColor.RGB = RGB(235,186,182)
                .Borders(ppBorderRight).ForeColor.RGB = RGB(235,186,182)
            End With
        End If
   Next oShp
Next oSld
End Sub

Answer 1

首先，更正错字：OSL.Shapes - ＆gt; OSLD.形状
接下来，在此（以及理想情况下所有其他）模块中的所有subs/函数上面添加选项。这样可以阻止这种事情咬你。

接下来，您想使用表的.rows（1）.cells.borders（ppbordertop）及其各种属性来设置顶级

边框桌子的底部边框。

然后，.columns（1）.cells ...属性...设置左边框。

等等。