Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


65670 / 76738 ←次へ | 前へ→

【15640】Re:すみません
発言  Jaka  - 04/7/1(木) 15:02 -

引用なし
パスワード
   こんにちは。
こんな感じに、直接処理しても良いんじゃないかなと思います?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Application.CommandBars("cell").Controls("開きま〜す!").Delete
End Sub

Private Sub Workbook_Open()
  Dim cbc As Object
  Set cbc = Application.CommandBars("cell").Controls.Add _
     (Type:=msoControlButton, before:=1) ', temporary:=True)
  With cbc
    .FaceId = 303
    .Caption = "開きま〜す!"
    .Style = msoButtonIconAndCaption
    .OnAction = ThisWorkbook.Name & "!thisworkbook.CellOrange"
    .BeginGroup = True
  End With
  Set cbc = Nothing
End Sub
0 hits

【15631】右クリックに登録 toh 04/7/1(木) 14:11 質問
【15635】すみません toh 04/7/1(木) 14:25 回答
【15640】Re:すみません Jaka 04/7/1(木) 15:02 発言

65670 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free