VBAを使用してPowerpointテーブルにカスタムのインデントと吊りを設定する

Question

パワーポイント内のテーブル内に段落の箇条書きを置き、その箇条書きのテキストの前に字下げを0.13と特殊/吊り下げを設定したい。私はこれを達成することができますが、問題は、そのテーブルセル内に複数の段落がある場合、すべての段落が指定された値によって意図されることです。

ActiveWindow.Selection.ShapeRange.TextFrame.Ruler.Levels(1).LeftMargin = 72 * 0.13 * 1

私は完全な細胞にだけではなく、その特定の段落に働くこれを使用しています。

ActiveWindow.Selection.TextRange.Paragraphs.IndentLevel = 3 

私はまた、それだけでその特定の段落に動作しますが、私はテキストやハンギング前のインデントのための0.13の値を取得しない、IndentLevelを使用してみました。これを行う方法さえありますか？ 私は一日中このことに固執しています。

Answer 1

次のように段落を反復処理する必要があります。

Option Explicit 

' ******************************************************************************** 
' PowerPoint VBA Macro written by Jamie Garroch of http://YOUpresent.co.uk/ 
' Purpose : Set the Hanging ruler spacing for the selected text range 
' Inputs : None 
' Outputs : None 
' ******************************************************************************** 
Sub SetBulletHanging() 
    Dim x As Long 
    With ActiveWindow.Selection.TextRange2 
    For x = 1 To .Paragraphs.Count 
     With .Paragraphs(x).ParagraphFormat 
     .FirstLineIndent = -72 * 0.13 * 1 
     End With 
    Next 
    End With 
End Sub