手抜きﾏｸﾛ起動用ﾒﾆｭｰ2

CATVBAﾌﾟﾛｼﾞｪｸﾄにﾏｸﾛのﾓｼﾞｭｰﾙを追加するだけで、
ﾒﾆｭｰﾎﾞﾀﾝを自動的に追加します。

但し、追加するﾓｼﾞｭｰﾙにﾎﾞﾀﾝとなる情報を追記する
必要が有り、以下 [タグ] と表記して説明します。

〇ﾌｧｲﾙの構成
同一のﾌﾟﾛｼﾞｪｸﾄ内に以下のﾌｧｲﾙをD&Dで追加してください。

・Cat_Macro_Menu_Model.bas
・Cat_Macro_Menu_View.frm
・Cat_Macro_Menu_View.frx
・Button_Evt.cls
・KCL.bas

f:id:kandennti:20171017152458p:plain
ﾂｰﾙﾊﾞｰに登録する、通常のﾏｸﾛのﾒﾆｭｰから起動する際は
「Cat_Macro_Menu_Model.bas」の「CATMain」を指定してください。

〇タグ記載位置
タグは各ﾓｼﾞｭｰﾙの宣言セクション(先頭部分)に記載する必要が有ります。
f:id:kandennti:20171017152335p:plain
こちらで説明されている宣言セクションになります。
Office TANAKA - VBAの変数[変数の適用範囲]

特に注意が必要なのは、上記の赤矢印のﾗｲﾝより上に記載する
と言うことです。
このような状態（ﾗｲﾝがない状態）ではタグを認識する事が
出来ない為ﾒﾆｭｰにﾎﾞﾀﾝが表示されません。
f:id:kandennti:20171017152345p:plain

こちらの様に出来るだけ [Option Explicit] を宣言し、
その上にタグを記載する事をオススメします。
f:id:kandennti:20171017152427p:plain

〇タグフォーマット
タグのフォーマットは
{ キーワード : 値 }
の状態になっている必要が有ります。("{" ":" "}" は半角です)
Upしたｻﾝﾌﾟﾙでは1行に1タグになっていますが。

'{GP:1}{BackColor:12648447}
Option Explicit

Sub CATMain()
    MsgBox "hoge"
End Sub

の様に一行に複数のタグを記載しても大丈夫です。
※タグのキーワードは半角文字で大・小文字は問いません

〇タグ内容
タグは自動生成するボタンの情報を記載する必要が有ります。
{Gp} : ｸﾞﾙｰﾌﾟの略称でボタン作成する際は必須です。
　　　値はLong型で指定してください。

　　　ﾒﾆｭｰ内のどのﾀﾌﾞにボタンを作成するかを示しています。
　　　Upしたﾌｧｲﾙの「Cat_Macro_Menu_Model.bas」の宣言ｾｸｼｮﾝ部
　　　の「GROUP_NUMBER_CAPTION」定数部分の数値と一致させる
　　　必要が有ります。

'vba CATIA V5用　ﾏｸﾛ起動(ﾃﾇｷ)ﾒﾆｭｰ Ver0.0.1  by Kantoku
'Cat_Macro_Menu_Model.bas
'using-'KCL0.0.12'

・・・

'ﾒﾆｭｰのﾏﾙﾁﾍﾟｰｼﾞの設定
'変更する際は
'{ ﾀｸﾞのｸﾞﾙｰﾌﾟ番号 : ﾍﾟｰｼﾞのﾀｲﾄﾙ文字 }
'の状態にして下さい
Private Const GROUP_NUMBER_CAPTION = _
            "{ 1 : Part }" & _
            "{11 : Assy }" & _
            "{21 : Draw }" & _
            "{51 : Other }"
・・・

　　　現状では、1-Part　11-Assy　21-Draw　51-Other
　　　の設定になっているので、任意の数値を記載してください。
　　　
　　　逆にﾗｲﾌﾞﾗﾘのようなﾓｼﾞｭｰﾙﾌｧｲﾙの場合、ボタンを作成したくない
　　　はずです。{Gp}タグを記載しない事でﾒﾆｭｰに表示させない事に
　　　なります。

{Ep} : ｴﾝﾄﾘｰﾎﾟｲﾝﾄの略称で任意の設定で、値は文字列型です。
　　　各ﾓｼﾞｭｰﾙのｴﾝﾄﾘｰﾎﾟｲﾝﾄ（実行されるﾌﾟﾛｼｰｼﾞｬ名）を指定
　　　しますが、省力時は「CATMain」になります。

　　　Upしている「sample_IsExists_LeftAxis.bas」では
　　　「CATMain」が無く、以下の状態になっています。

'vba sample_IsExists_LeftAxis_ver0.0.1  using-'KCL0.0.12'  by Kantoku
'Part内の左手座標系の有無ﾁｪｯｸ

'{Gp:1}
'{Ep:LeftHand}
'{Caption:LeftHandAxis}
'{ControlTipText:Part内の左手座標系の有無ﾁｪｯｸ}
'{BackColor:33023}
Option Explicit

Sub LeftHand()
    'ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ
    If Not CanExecute("PartDocument") Then Exit Sub
・・・

　　　{Ep:LeftHand}となっており、ボタンを押した際
　　　「LeftHand()」が実行されるようになっています。

　　　{Ep}タグで指定されたﾌﾟﾛｼｰｼﾞｬが見つからない場合は
　　　自動的に「CATMain」を探しますが、両方見つからない場合は
　　　ボタンが作成されません。

　　　制限としてﾁｪｯｸがちょっと甘く「Private Sub」や「Function」
　　　となっているﾌﾟﾛｼｰｼﾞｬは指定しないで下さい。

　　　又、引数付きのﾌﾟﾛｼｰｼﾞｬも指定しないで下さい。

他は全てでは有りませんが、CommandButtonオブジェクトのﾌﾟﾛﾊﾟﾃｨを
指定する事が可能です。制限はこちらです。
・レイアウトを維持する為これらのキーワードを指定しても
　無視されます。
「Top」「Left」「Height」「Width」

・プロパティの値がオブジェクトとなっているものは指定されても
　無視されます。
「Font」「MouseIcon」「Picture」

・プロパティの値が定数となっている場合、定数ではなく
　数値で指定する必要があります。（後に説明します）

{Caption} : ボタンに表示される文字で、値は文字列型です。
　　　何のﾏｸﾛのボタンかわからなくなるため設定を推奨します。

{ControlTipText:} : ボタン上にマウスカーソルを持っていく
　　　ことでに表示される文字で、値は文字列型です。
　　　何のﾏｸﾛのボタンかわからなくなるため設定を推奨します。

{BackColor}：ボタンの色で、値はLong型です。
　　　通常ﾌﾟﾛﾊﾟﾃｨでは、[&H000000FF&]のような状態で
　　　表示されていますが、値部分にそのまま入力しても
　　　色は反映されません。
f:id:kandennti:20171017152557p:plain
　　　ｲﾐﾃﾞｨｴｲﾄｳｲﾝﾄﾞｳで「?」(又はprint)で表示させると
　　　Long型の値が返って来ますので、この値を設定してください。