OOoのCalcでセルの結合/結合解除をキーボードショートカットで行う

Tips

Calc活用委員会が閉鎖してしまっていたので、Calcでセルの結合/結合解除をキーボードショートカットで行うためのマクロを書いておく。

Calcでセルの結合/結合解除のマクロ

Public oDocument As Object

REM 選択セルを結合＆結合解除
Sub MergeCellToggle()
    Dim oSelection As Object
    oDocument = ThisComponent
    oSelection = oDocument.getCurrentSelection
    IF oSelection.getIsMerged() Then
        oSelection.merge(false)
    Else
        oSelection.merge(true)
    End IF
End Sub

これをマクロに保存するには、[ツール]>[マクロ]>[マクロの管理]>[OpenOffice.org 基本...]*1を開いて、マイマクロのStandardのModule1に保存すればいい。

ショートカットキーへの割り当て

  1. [ツール]>[カスタマイズ]を開く
  2. [キーボード]というタブを開く
  3. 上半分のショートカットキーから割り当てたいキーを選ぶ
  4. 下半分の機能では
    1. 「範囲」では「OpenOffice.org マクロ」の中から保存したマクロを選ぶ
    2. 「機能」では保存したマクロの関数名を選ぶ（この場合はMergeCellToggle）
  5. 変更ボタンを押す

*1:これは"OpenOffice.org Basic Macro"を省略した"OpenOffice.org Basic..."を訳し間違えたのだと思う。