SetOrnament

飾り文字の変更

Public Sub SetOrnament(
　　ByVal Row As Integer - 行番号
　　ByVal Col As Integer - 列番号
　　ByVal Start As Integer - 開始位置
　　ByVal Length As Integer - 文字列長
　　ByVal Val As String - 文字
　　ByVal FONTSTYLE As String - 飾り文字
)

Row

行番号

Col

列番号

Start

開始位置

Length

文字列長

Val

文字

FONTSTYLE

飾り文字

指定された文字に飾り文字を付ける。

FormulaR1C1を毎回変更すると、設定ができないため、既に設定しているセル
の値を保持している。

・文字列長が1以下の場合は、なにもしない