PowerPoint 表の操作 セルの結合と分割で遊ぶ

なんか試しにいろいろいじってたら妙な表ができたのでなんとなくまとめた

テキトーに表を入れる

これを選択してUnMergeCellを何度か実行していくとこうなる

MergeCellを繰り返すともとに戻せる

コード（標準モジュール）

Sub MergeCell()
  Call Table上のセルのマージ(1, 1, 2, 3)
End Sub
Sub UnMergeCell()
  Call Table上のセルの分割(1, 1, 2, 3)
End Sub
Sub Table上のセルのマージ(R1 As Long, C1 As Long, RLast As Long, CLast As Long)
  On Error GoTo ErrLabel
  Dim tbl操作対象 As Table
  With ActiveWindow.Selection
    
    If .Type = ppSelectionNone Or _
    .Type = ppSelectionSlides Then Exit Sub
    
    Set tbl操作対象 = .ShapeRange.Table
    
  End With
  
  With tbl操作対象
    
    .Cell(R1, C1).Merge _
      MergeTo:=.Cell(RLast, CLast)
    
  End With
  Exit Sub
ErrLabel:
  With Err
    MsgBox "エラーNo:" & .Number & vbLf & .Description
  End With
End Sub

Sub Table上のセルの分割(R1 As Long, C1 As Long, 分割数 As Long, 分割数C As Long)
  On Error GoTo ErrLabel
  Dim tbl操作対象 As Table
  With ActiveWindow.Selection
    
    If .Type = ppSelectionNone Or _
    .Type = ppSelectionSlides Then Exit Sub
    
    Set tbl操作対象 = .ShapeRange.Table
    
  End With
  
  With tbl操作対象
    
    .Cell(R1, C1).Split 分割数, 分割数C
    
  End With
  Exit Sub
ErrLabel:
  With Err
    MsgBox "エラーNo:" & .Number & vbLf & .Description
  End With
End Sub