|
ichinose さん ありがとうございました。
>>'目玉アイコンに変える
>> Set con = newBar.Controls.Add(Type:=msoControlButton, ID:=23)
>> con.FaceId = 2174 '2174は目玉です
>' ↑ ここで、コマンドボタンをconにセットしていますよね?
>> その後、コマンドボタンをクリックしたときに、
>>標準モジュールにある「Sub 検算()」マクロを実行したいので
>>
>> newBar.OnAction = ThisWorkbook.Name & "!.検算"
>' よって、マクロの登録は、変数newBarではなく、conに対して行って下さい
>' con.OnAction = ThisWorkbook.Name & "!.検算"
>
>>や
>> newBar.OnAction = 確認.xls & ".検算"
>>等いろいろ試していますが、うまくいきません。
>>
>> 正しい、書き方をご教示ねがえれば幸いです。
>>
>> なお、「Sub 検算()」は、「Sub aバッチ処理マクロ()」からも
>>Private Sub Worksheet_BeforeDoubleClickもcallしています。
>
con.OnAction = ThisWorkbook.Name & "!検算"
でうまく行きました。
「検算」の前の「.」も余分でした。
|
|