' [326.xls]



' [Module1] のコード
'★★☆　マクロにマクロを作らせる　☆★★

Option Explicit

Sub start()

    '新しいブック作成
    Workbooks.Add
    [C1] = "私の名前は " & ActiveWorkbook.Name & " です"
    [C1].Font.ColorIndex = 3
    
    'マクロ起動用ボタンの作成
    ActiveSheet.Buttons.Add(50, 30, 320, 30).Select
    Selection.OnAction = ActiveWorkbook.Name & "!SUMPLE"
    Selection.Characters.Text = "私は新ブックに新しく作られた新マクロ実行ボタンです"
    [A1].Select
    
    '標準モジュールを挿入
    ActiveWorkbook.VBProject.VBComponents.Add vbext_ct_StdModule
    
    '挿入したモジュールにコードを書き込む
    Application.VBE.CodePanes(1).CodeModule _
    .AddFromString "sub SUMPLE()" + Chr(10) _
    + "MsgBox ""私は新しく挿入されたブックの MsgBox です"" & Chr(10) & ""マクロで書かれたマクロから実行しています "" & chr(10) & ""OKボタンで新ブック(私自身)を閉じます""" _
    + Chr(10) + "ThisWorkbook.Close False" _
    + Chr(10) + "end sub"
    
End Sub