Spread设置按钮型单元格

'スプレッドシートのセルにコマンドボタンをセットする。
'
'   Syntax:     SetButtonToSpreadCell AnySs, Col&, Row&
'
'   IN:         AnySs       対象となるスプレッドシート
'               Col&        ボタンをセットする列
'               Row&        ボタンをセットする行
'               Var         セットする値
'
Public Sub SetButtonToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Var As Variant)
 
    ' 設定を SPREADへ反映します。
    With AnySs
        .Col = Col&: .Col2 = Col&                           ' 対象列
        .Row = Row&: .Row2 = Row&                           ' 対象行
        .BlockMode = True                                   ' ﾌﾞﾛｯｸﾓｰﾄﾞ ON
        .CellType = CellTypeButton                          ' 標準ﾎﾞﾀﾝの設定
        .TypeButtonType = 0                                 ' ﾎﾞﾀﾝﾀｲﾌﾟ
        .TypeButtonText = Var                               ' ﾎﾞﾀﾝ ｷｬﾌﾟｼｮﾝ
        .BlockMode = False                                  ' ﾌﾞﾛｯｸﾓｰﾄﾞ OFF
    End With
 
End Sub