VBSでエクセルにマクロを登録する方法＋α

質問

現在仕事の一環として、
エクセルでリストの作成をするプログラムをvbsで書いているのですが、
以下の2つの記述をどうしたらいいか悩んでいます。

(1)VBSを使ってEXCELにマクロを登録する方法
(2)ボタンの位置毎に変数を代入してその変数に応じた動作をするマクロ

(1)については文字通り、マクロ登録の方法が分かりません。
VBEやVBProjectを試してみたのですが、オブジェクトが対応していないようです。

(2)については、例えば
1 A　■
2 B　■
3 C　■
4 D　■
5 E　■　　※■はボタンです
のような2列5行のリストとボタンがあった場合、
Aの横のボタンを押せばメッセージボックスでAと表示され、
Eの横のボタンを押せばEと表示されるようなマクロを記述したいのです。
引数で綺麗に処理できないか考えているのですが、
今のところボタンクリック時のマウスポインタ座標を使うか、
ボタンの数だけマクロを登録するくらいしか方法が思いつきません。

尚、VerはWSH5.6、OSはWindowsXP、Office以外は特にインストールされていない環境での使用が前提となっています。

どうか皆様の知恵をお貸し下さい。
宜しく御願い致します。

回答No.1

mitarashi · ベストアンサー

なぜVBSからやらなければならないのか、分かりかねますが、マクロの登録相手がExcel2000なら、リンク先の応用で可能だと思います。
http://okwave.jp/qa4312906.html
(2)については、ワークシート上でやるなら、コントロールツールボックスのコマンドボタンではなく、「フォーム」のコマンドボタンを使うのが簡単です。

お礼

ご回答頂きありがとうございます。
(1)については、張って下さいましたリンク先を見て、以下のように記述することで解決致しました。

Set objXL = Wscript.CreateObject("Excel.Application")
Set objVBE = objXL.VBE
With objVBE.VBProjects(1).VBComponents.Item("ThisWorkbook").CodeModule
.InsertLines 1, "Sub ForLink()"
.InsertLines 2, "End Sub"
End With
Set objVBE = Nothing

また(2)についてですが、御教示頂いた方法ではなくて申し訳ありませんが、行を一定としてクリックしたボタンの座標から位置を割り出してそれをセル座標として扱うことで解決致しました。

Sub ForLink()
Dim Y
Y=ActiveSheet.Shapes(Application.Caller).Top/行幅+1
A=ActiveSheet.Range("E" & Y)
MsgBox A
End Sub

今後もmitarashi様のログを読みながら、勉強させて頂きます。