Spread设置标签型单元格

'スプレッドシートにラベルセルをセットする。
'
'   Syntax:     SetValueToSpreadCell AnySs, Col&, Row&, Var
'
'   IN:         AnySs       対象となるスプレッドシート
'               Col&        値をセットする列
'               Row&        値をセットする行
'               Var         セットする値
'
Public Sub SetLableToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Var As Variant)
 
    ' 設定を SPREADへ反映します。
    With AnySs
        .Col = Col
        .Row = Row
        .CellType = CellTypeStaticText                      ' ｾﾙﾀｲﾌﾟの設定
        .Text = Var                                         ' ｷｬﾌﾟｼｮﾝ (Value ﾌﾟﾛﾊﾟﾃｨでの代用可)
        .TypeTextShadowIn = True                            ' 3D - 凹型表示
        .TypeHAlign = 0                   ' 水平配置
        .TypeVAlign = 2                   ' 垂直配置
    End With
 
End Sub