Я пытаюсь редактировать таблицу на слайде, и я использую этот код. Может кто-нибудь сказать, пожалуйста, почему это не работает? Если вместо s.Shapes.Table у меня есть s.Shapes.Range, например, он работает нормально.

Sub format()
Dim s As Slide
For Each s In ActivePresentation.Slides
With s.Shapes.Table
.TextFrame.TextRange.Font.Name = "Arial"
.TextFrame.TextRange.Font.Size = 30
End With
Next s
End Sub