デフォルトの表のスタイルが嫌である。
普段使っているのは、罫線だけが引かれたスタイル。さらに、フォントサイズを32pt前後に修正して使っている。
いちいち面倒くさい。
望みの表をいきなり生成する設定変更は、Powerpoint2010ではできないようだ。
blank.potxを設定する方法では表（テーブルオブジェクト）のスタイルを変更できない。「規定の図形に設定」コマンドが出ないからだ。
そこで、仕方がないのでデフォルトのスタイルのままで表を生成して、そのスタイルをマクロで変更することにする。
で、マクロがとりあえずできた。スタイルを変更したい表だけを選択状態にして使う。
Sub 表のスタイルをスタイルなし､表のグリッド線ありに､フォントサイズを32ptにする()
With ActiveWindow.Selection.ShapeRange(1).Table
.ApplyStyle ("{5940675A-B579-460E-94D1-54222C63F5DA}") '罫線あり
' .ApplyStyle ("{2D5ABB26-0587-4C30-8999-92F81FD0307C}") '罫線なし
For Each clm In .Columns
For Each cl In clm.Cells
cl.Shape.TextFrame.TextRange.Font.Size = 32
Next
Next
End With
End Sub
Selectionの後のShapeRange(1)は選択中のオブジェクトの一つ目を指す。
参考になったのは以下のページ。記して感謝する。
PowerPoint内のテキストを取得する - Qiita
表（テーブル）内のセルを For Each で取得する部分をもらった。
Changing the style of added PowerPoint 2007 tables
ほとんど全てをもらった。特に、イミディエイトウィンドウに TableStyle の Id と Name とを出して、スタイルの内部名を取得できたのはとても助かった。
With .Table.Style
Debug.Print .Name
Debug.Print .Id
End With
こんな感じ。
また、Table.ApplyStyleメソッドの存在に気づかせてもらったのも助かった。
TableStyleのIdとName
●デフォルトの表のスタイル
Name: 中間スタイル 2 - アクセント 1
ID: {5C22544A-7EE6-4342-B048-85BDC9FD1C3A}
●罫線（実線）のみのスタイル
Name: スタイルなし、表のグリッド線あり
Id: {5940675A-B579-460E-94D1-54222C63F5DA}
●罫線もなし
Name: スタイルなし、表のグリッド線なし
Id: {2D5ABB26-0587-4C30-8999-92F81FD0307C}
