フォーマットテーブル（位置、サイズ、フォント、配置）の書式を設定するPowerpointマクロ

Question

私は約10枚のスライドを持つPowerPointを持っており、各スライドには同じ方法でフォーマットする必要があるテーブルが1つあります。私はテーブル内のテキストを書式設定するために、以下のマクロを使用していますが、このコードを行の高さやテーブルの位置などの他の書式と組み合わせる方法はわかりません。トップ

表幅= 23.5センチメートルから= 3センチメートル左

表垂直位置から

• 表の水平位置= 1センチメートル：

  誰かが以下のコードに次の設定を追加することで私を助けることができるしてください

• かのう

• すべてのTeだけ小さく

• すべての行の高さをバックアップするために送信表XTミドル揃え（垂直）

  Sub format() 
  
  Dim s As Slide 
  Dim oSh As Shape 
  Dim oTbl As Table 
  Dim lRow As Long 
  Dim lCol As Long 
  
  For Each s In ActivePresentation.Slides 
      For Each oSh In s.Shapes 
       If oSh.HasTable Then 
        Set oTbl = oSh.Table 
        For lRow = 1 To oTbl.Rows.Count 
         For lCol = 1 To oTbl.Columns.Count 
          With oTbl.Cell(lRow, lCol).Shape.TextFrame.TextRange 
           .Font.Name = "Calibri" 
           .Font.Size = 7 
          End With 
         Next 
        Next 
       End If 
      Next ' Shape 
  Next s 
  End Sub 
  

Answer 1

私はもう少し周りを演じてきた、と私は自分の質問答えました：私はあなたが（良い仕事をし、それを考え出し参照

Sub format() 

Dim s As Slide 
Dim oSh As Shape 
Dim oTbl As Table 
Dim lRow As Long 
Dim lCol As Long 

For Each s In ActivePresentation.Slides 
    For Each oSh In s.Shapes 
     If oSh.HasTable Then 
      oSh.Left = 1 * 28.3 
      oSh.Top = 3 * 28.3 
      oSh.Width = 23.5 * 28.35 
      oSh.ZOrder msoSendToBack 
      Set oTbl = oSh.Table 
      For lRow = 1 To oTbl.Rows.Count 
       For lCol = 1 To oTbl.Columns.Count 
       With oTbl.Cell(lRow, lCol).Shape 
        .TextFrame.TextRange.Font.Name = "Calibri" 
        .TextFrame.TextRange.Font.Size = 7 
        .TextFrame2.VerticalAnchor = msoAnchorMiddle 
        oTbl.Rows(lRow).Height = 0.5 
        End With 
       Next 
      Next 
     End If 
    Next  
Next s 

End Sub 

Answer 2

を！ ）。時々回のカップルは、テーブルの内容に応じて、...

oSh.Height = 0 

：「できるだけ小さいすべての行の高さ」をあなたの必要性に関連するもう一つの有益な事はちょうどこれを行うことです。