【パワポVBA】テキストをばらして1行ずつ分割するマクロ

テキストの技・設定

2022.03.192024.08.17

Illustratorのスクリプトでお馴染み「テキストばらし」のような処理ができるPowerPoint版マクロを作りました。

実行すると複数行のテキストボックスを1行ずつ分割してくれます。

Excelからコピーしたテキストをセルごとに分割するときにも便利です。

この記事の目次

テキストを分割するマクロ
1. コード
実行結果
1. 1行ずつ分割する
2. 1文字ずつ分割する
リボンにボタンを追加する
テキストボックスを連結する

テキストを分割するマクロ

コード

Sub テキスト分割()
    
    Dim n As Long
    Dim nowTop As Single
    Dim nowLeft As Single
    
    '選択中のスライド番号を取得
    n = ActiveWindow.Selection.SlideRange.SlideIndex
    
    With ActiveWindow.Selection
  
        'テキストボックスが選択されていない場合はマクロ終了
        If .Type = ppSelectionNone _
        Or .Type = ppSelectionSlides Then
    
            MsgBox "テキストボックスを選択してください。"
            Exit Sub
      
        End If
    
        'テキスト編集モードの場合はシェイプを選択
        If .Type = ppSelectionText Then .ShapeRange.Select
    
        With .ShapeRange
            
            '現在の位置を代入
            nowTop = .Top
            nowLeft = .Left
            
            'テキストボックスをカット
            .Cut
        
        End With
    End With
    
    With ActivePresentation.Slides(n).Shapes
        
        '図 (拡張メタファイル)形式で貼り付け
        .PasteSpecial DataType:=2

    End With
    
    'グループ化を2回解除する
    ActiveWindow.Selection.ShapeRange.Ungroup.Select
    ActiveWindow.Selection.ShapeRange.Ungroup.Select

    With ActiveWindow.Selection

        '透明オブジェクトを削除
        .ShapeRange(1).Delete
        
        With .ShapeRange
        
            'テキストに合わせて図形のサイズを調整する
            .TextFrame.AutoSize = ppAutoSizeShapeToFitText
        
            'テキストをグループ化
            .Group
            
            '元の位置に移動
            .Top = nowTop
            .Left = nowLeft
            
            'テキストをグループ化解除
            .Ungroup
            
        End With
    End With
End Sub