家計簿77/マクロを呼び出すボタンを作るモジュール

　Excel/家計簿77 のバージョンアップを進めている。
そこで使うマクロを呼び出すボタンを作るモジュール。類似のモジュールは何度か作っているがブログ内を検索してもヒットしない　
まして PC内を検索するのは不可能... （VBA内のモジュールまでは検索できないはず… と思っている）
　この際、改めて作ろう‥‥

参考にしたサイト）マクロでボタンを挿入する　（モーグ）

ポイントは「ボタンを大きさをセルの大きさより小さくする」こと。
上記サイトを参考に、得意の KDD で試行錯誤した...

Sub 費目シートに解析ボタンを作る()

　

Sheets("費目").Select

With ActiveSheet.Buttons.Add(Range("A11").Left, _

Range("A11").Top + 1, _

30, _

Range("A11:A11").Height - 1)

.OnAction = "フォーム解析を開く"

.Characters.Text = "解析"

End With

　

With Selection.Characters(Start:=1, Length:=2).Font

.Name = "ＭＳＰゴシック"

.FontStyle = "標準"

.Size = 8

End With

　

End Sub

5行目
- ボタンがセルの上の罫線に引っ掛かり、罫線が見えなくなる。
- そこで ”+1” を入れたら、罫線が見えるようになった。
6行目
- 2文字分のボタンを作りたい。それもなるべく小さくて、読み易いものを...
- で、”16” としたら、1文字しか表示されないので “32” としたら、2文字表示された。
- “30” より小さくすると、1文字になってしまう。
7行目
- Top を +1 したので、引いておかないと下のセルに掛かるのではないかと思い、“-1” した。