パワーポイント上に張り付けた表の文字サイズ修正はセル単位でないとできないのでしょうか？

Question

表題どおりですが、パワーポイント上に張り付けた表の文字サイズを変更させるのは、セル単位でないと出来ないのでしょうか？
下記のコードのようにセル単位であれば、文字サイズ変更はできるのですが、こんなまどろっこしいことはせず、表単位で一気に文字サイズ修正するか、または、せめて、行単位か、列単位で文字サイズを変更する方法は無いものなのでしょうか？

Dim ppApp As New PowerPoint.Application
Dim ppPrs As PowerPoint.Presentation
Dim TargetTable As Table
Dim r As Row, c As Cell, tr As TextRange

'パワーポイントを開く
Set ppPrs = ppApp.Presentations.Open("template.pptx")

'エクセル上で指定範囲をコピー
ActiveSheet.Range("B2:G34").Copy

'パワーポイントに張り付け
ppPrs.Slides(1).Shapes.PasteSpecial DataType:=0

'張り付けたOLEオブジェクトをテーブルオブジェクトにセット
Set TargetTable = ppPrs.Slides(1).Shapes(1).Table

'全列をループ
For Each r In TargetTable.Rows
    '全行をループ
    For Each c In r.Cells
        '文字サイズ変更
        c.Shape.TextFrame.TextRange.Font.Size = 10
    Next
Next