TPE

[e-mail]

---

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub DeArrowTables()

    Dim oSl As Slide
    Dim oSh As Shape
    Dim oTbl As Table
    Dim x As Long
    Dim y As Long
    Dim z As Long

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            If oSh.HasTable Then
                Set oTbl = oSh.Table
                With oTbl
                    For x = 1 To .Rows.Count
                        For y = 1 To .Columns.Count
                            For z = 1 To .Cell(x, y).Borders.Count
                                .Cell(x, y).Borders(z).BeginArrowheadStyle = msoArrowheadNone
                                .Cell(x, y).Borders(z).EndArrowheadStyle = msoArrowheadNone
                            Next
                        Next
                    Next
                End With
            End If
        Next
    Next

End Sub

---