パワポの【疑問】を解決!「よくあるご質問」はこちら ▶︎
スポンサーリンク
スポンサーリンク

PowerPoint VBA タブ位置を全削除するマクロ

PowerPoint VBAを使い、ルーラーの不要なタブ位置を全削除するマクロをご紹介します。

テキストボックスの使い回しで起こる、コピー元で設定していたタブ位置が不要になった時に一括で削除できる便利なマクロです。

スポンサーリンク

タブ位置を全削除するマクロ

コード

Sub タブ位置を全削除()

    With ActiveWindow.Selection
  
        'シェイプが選択されていない場合はマクロを終了
        If .Type = ppSelectionNone Or .Type = ppSelectionSlides Then
        
            MsgBox "シェイプを選択してください。"
            Exit Sub
            
        End If
        
        'タブ位置を全削除
        With .ShapeRange.TextFrame.Ruler.TabStops
    
            For i = .Count To 1 Step -1
                .Item(i).Clear
            Next
            
        End With
    End With
End Sub

実行方法

テキストボックスを選択またはカーソルを挿入した状態で実行します。行ごとに異なるタブ位置が設定されているテキストボックスには実行できません。

手動でタブ位置を全削除する

手動で指定のタブ位置を削除したり、一括で削除することもできます。

テキストボックスを選択し、「ホーム」タブ →「段落」グループ → 右下の「起動ツール」をクリックします。

「段落」ダイアログが開くので、「タブとリーダー」をクリックします。

「タブ」ダイアログが開くので、「すべてクリア」をクリックします。

タブ位置が全て削除されたら「OK」をクリックして完了です。

スポンサーリンク

テキストボックスから文字が飛び出す場合の対処法

テキストボックスを左揃えから右揃えに変更した時に、下図のようにテキストボックスから文字が大きく飛び出してしまう場合の対処法です。

この原因も不要なタブ位置がテキストボックスに設定されている為に起こる現象です。

上図のテキストボックスには一見タブ位置が設定されていないように見えますが、ルーラーのグレー色の範囲にタブ位置が隠れています。

この状態で、「図形内でテキストを折り返す」にチェックが入っていないテキストボックスを右揃えにすると、テキストボックスから文字が大きく飛び出してしまいます。

修正するには、前項の方法でタブ位置を全削除するとテキストボックス内に文字が戻ります。