目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
250 / 262 ←次へ | 前へ→

【13】メニューバー
Excel  ぴかる  - 02/9/2(月) 21:19 -

引用なし
パスワード
   Sub オリジナルメニューバー作成()

Dim myCB As CommandBar
Dim myCBCtrl As CommandBarControl
Dim myCBBtn As CommandBarButton
Dim myCBpup As CommandBarPopup

  On Error Resume Next
  Application.CommandBars("PikaBar").Delete
  On Error GoTo 0
  Set myCB = Application.CommandBars.Add(Name:="PikaBar", Position:=msoBarTop, MenuBar:=True)
  
  With Application.CommandBars(1)
    For II% = 1 To 9
      Select Case II%
        Case 7:  IdNum& = 30011
        Case Else: IdNum& = 30000 + II% + 1
      End Select
      Set myCBCtrl = .FindControl(ID:=IdNum&): myCBCtrl.Copy myCB, II%
    Next
  End With
  
  Set myCBCtrl = myCB.Controls.Add(Type:=msoControlPopup)
  With myCBCtrl
    .Caption = "セル書式"
    .BeginGroup = True
    .OnAction = "列Caption"
  End With
    
   Set myCBCtrl = myCB.Controls("セル書式").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "表示形式"
     .OnAction = "表示形式"
   End With
   
   Set myCBCtrl = myCB.Controls("セル書式").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "配置"
     .OnAction = "配置"
   End With
   
   Set myCBCtrl = myCB.Controls("セル書式").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "フォント"
     .OnAction = "フォント"
   End With
   
   Set myCBCtrl = myCB.Controls("セル書式").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "罫線"
     .OnAction = "罫線"
   End With
   
   Set myCBCtrl = myCB.Controls("セル書式").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "パターン"
     .OnAction = "パターン"
   End With
   
   Set myCBCtrl = myCB.Controls("セル書式").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "保護"
     .OnAction = "保護"
   End With
   
   Set myCBCtrl = myCB.Controls("セル書式").Controls _
    .Add(ID:=3058)
   myCBCtrl.BeginGroup = True
   
   Set myCBCtrl = myCB.Controls("セル書式").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "列形式A1…R1C1"
     .OnAction = "列表示切替"
   End With
   
  Set myCBCtrl = myCB.Controls.Add(Type:=msoControlPopup)
  With myCBCtrl
    .Caption = "入力設定"
    .OnAction = "入力設定ON"
  End With
  
   Set myCBCtrl = myCB.Controls("入力設定").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .FaceId = 984
     .Caption = "操作説明"
     .Style = msoButtonIconAndCaption
    If Val(Application.Version) <> 8 Then
     .OnAction = "入力設定操作説明"
    Else
     .OnAction = "入力設定操作説明97"
    End If
   End With
   
  Set myCBpup = myCB.Controls("入力設定").Controls.Add(Type:=msoControlPopup)
  myCBpup.Caption = "入力範囲設定"
  myCBpup.BeginGroup = True
  
   Set myCBBtn = myCBpup.Controls.Add(Type:=msoControlButton)
   With myCBBtn
     .Caption = "入力範囲ロック"
     .OnAction = "入力範囲ロック"
   End With
   
   Set myCBBtn = myCBpup.Controls.Add(Type:=msoControlButton)
   With myCBBtn
     .Caption = "一時解除"
     .OnAction = "一時解除"
   End With
   
   Set myCBBtn = myCBpup.Controls.Add(Type:=msoControlButton)
   With myCBBtn
     .Caption = "再設定"
     .OnAction = "再設定"
   End With
   
  Set myCBpup = myCB.Controls("入力設定").Controls.Add(Type:=msoControlPopup)
  With myCBpup
    .Caption = "日本語入力"
  End With
  For II% = 1 To 3
    Set myCBBtn = myCBpup.Controls.Add(Type:=msoControlButton)
    With myCBBtn
      Select Case II%
        Case 1: .Caption = "オン固定"
        Case 2: .Caption = "オフ固定"
        Case 3: .Caption = "コントロールなし"
      End Select
      .OnAction = "変換_" & Format(II%)
    End With
  Next
  '
  Set myCBpup = myCB.Controls("入力設定").Controls.Add(Type:=msoControlPopup)
  With myCBpup
    .Caption = "Enter移動"
  End With
  For II% = 1 To 5
    Set myCBBtn = myCBpup.Controls.Add(Type:=msoControlButton)
    With myCBBtn
      Select Case II%
        Case 1: .Caption = "下"
        Case 2: .Caption = "右"
        Case 3: .Caption = "上"
        Case 4: .Caption = "左"
        Case 5: .Caption = "−"
      End Select
      .OnAction = "方向_" & Format(II%, "0")
    End With
  Next

5,232 hits

【4】アドインファイルにてツールバーを表示するには、[ソフト紹介] ぴかる 02/9/2(月) 20:42 Excel[未読]
【5】マクロ構成とセット方法 ぴかる 02/9/2(月) 20:54 Excel[未読]
【6】ThisWorkbook ぴかる 02/9/2(月) 20:56 Excel[未読]
【7】標準モジュール ぴかる 02/9/2(月) 21:02 Excel[未読]
【8】セッティング ぴかる 02/9/2(月) 21:03 Excel[未読]
【9】ツールバー ぴかる 02/9/2(月) 21:06 Excel[未読]
【10】つづき ぴかる 02/9/2(月) 21:07 Excel[未読]
【11】パレート図 ぴかる 02/9/2(月) 21:08 Excel[未読]
【12】メイン ぴかる 02/9/2(月) 21:15 Excel[未読]
【13】メニューバー ぴかる 02/9/2(月) 21:19 Excel[未読]
【14】つづき ぴかる 02/9/2(月) 21:20 Excel[未読]
【15】各種マクロ ぴかる 02/9/2(月) 21:21 Excel[未読]
【16】小ワザ集 ぴかる 02/9/2(月) 21:23 Excel[未読]
【17】つづき ぴかる 02/9/2(月) 21:25 Excel[未読]
【18】つづきのつづき ぴかる 02/9/2(月) 21:25 Excel[未読]
【19】小ワザ集97 ぴかる 02/9/2(月) 21:27 Excel[未読]
【20】つづき ぴかる 02/9/2(月) 21:27 Excel[未読]
【21】つづきのつづき ぴかる 02/9/2(月) 21:28 Excel[未読]
【22】入力設定 ぴかる 02/9/2(月) 21:29 Excel[未読]
【25】文字変換 ぴかる 02/9/2(月) 21:32 Excel[未読]
【26】Class1 ぴかる 02/9/3(火) 7:57 Excel[未読]
【27】最後に ぴかる 02/9/3(火) 12:52 Excel[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
250 / 262 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free