目安箱 IV

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

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

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

【10】つづき
Excel  ぴかる  - 02/9/2(月) 21:07 -

引用なし
パスワード
   Sub オリジナル図形描画作成()
  
  On Error Resume Next
  Application.CommandBars("オリジナル図形描画").Delete
  
  Set myCB = Application.CommandBars.Add(Name:="オリジナル図形描画")
  
  With myCB
    
  
   Set myCBCtrl = Application.CommandBars.FindControl(ID:=30013): _
          myCBCtrl.Copy myCB
   myCBCtrl.Caption = "図形の調整"
    
    .Controls.Add ID:=182
    .Controls.Add ID:=688
  
   Set myCBCtrl = myCB.Controls.Add(ID:=1849)
   myCBCtrl.BeginGroup = True
  
   Set myCBCtrl = myCB.Controls.Add(ID:=313)
   myCBCtrl.Style = msoButtonIcon
    
   Set myCBCtrl = myCB.Controls.Add(ID:=852)
   myCBCtrl.BeginGroup = True
  
   Set myCBCtrl = myCB.Controls.Add(ID:=848)
   With myCBCtrl
     .TooltipText = " 《 シートの移動またはコピー 》" & vbLf & _
            "・ブック内の移動 … シート名部をドラッグ&ドロップでも可" & vbLf & _
            "・ブック内のコピー … [Ctrl]を押しながら、シート名部をドラッグ&ドロップでも可"
     .Style = msoButtonIcon
     .FaceId = 489
   End With
  
   Set myCBCtrl = myCB.Controls.Add(Type:=msoControlButton)
   With myCBCtrl
     .TooltipText = "シート保護・保護解除"
     .FaceId = 225
     .OnAction = "シート保護"
   End With

   Set myCBCtrl = myCB.Controls.Add(Type:=msoControlButton)
   With myCBCtrl
     .TooltipText = "シート見出しON・OFF"
     .FaceId = 529
     .OnAction = "シート見出し"
   End With

   Set myCBCtrl = myCB.Controls.Add(Type:=msoControlButton)
   With myCBCtrl
     .TooltipText = "シート選択"
     .FaceId = 461
     .OnAction = "シート選択"
   End With

   Set myCBCtrl = myCB.Controls.Add(ID:=522)
   With myCBCtrl
     .Style = msoButtonIcon
     .FaceId = 2585
   End With
  
   Set myCBCtrl = myCB.Controls.Add(ID:=164)
   With myCBCtrl
     .Style = msoButtonIcon
     .BeginGroup = True
     .TooltipText = " 《 図形のグループ化 》" & vbLf & _
            "[Shift]を押しながら、各図形を選択後、実行"
   End With
  
    .Controls.Add ID:=165
    .Controls.Add ID:=338
  
   Set myCBCtrl = myCB.Controls.Add(ID:=549)
   myCBCtrl.TooltipText = " 《 グリッドに合わせる 》" & vbLf & _
              "図形作成時、セルに位置合わせします。"
   Set myCBCtrl = myCB.Controls.Add(ID:=1402)
   myCBCtrl.TooltipText = " 《 図形に位置を合わせる 》" & vbLf & _
              "図形作成時、他の図形に位置合わせします。"
  
   Set myCBCtrl = myCB.Controls.Add(ID:=166)
   myCBCtrl.Style = msoButtonIcon
   Set myCBCtrl = myCB.Controls.Add(ID:=167)
   myCBCtrl.Style = msoButtonIcon
  
   Set myCBCtrl = Application.CommandBars.FindControl(ID:=30177): _
          myCBCtrl.Copy myCB
   myCBCtrl.Caption = "オートシェイプ"
  
   Set myCBCtrl = myCB.Controls.Add(ID:=130)
   myCBCtrl.TooltipText = " 《 直線 》" & vbLf & _
              "・ダブルクリックにて連続直線となります。" & vbLf & _
              "・連続直線の場合は、[図形に合わせる]との併用をお勧めします。"
  
    .Controls.Add ID:=243
    .Controls.Add ID:=409
    
   Set myCBCtrl = myCB.Controls.Add(ID:=1111)
   myCBCtrl.TooltipText = " 《 四角形 》" & vbLf & _
              "[Shift]を押しながら行うと正方形なります。"
   Set myCBCtrl = myCB.Controls.Add(ID:=1119)
   myCBCtrl.TooltipText = " 《 楕円 》" & vbLf & _
              "[Shift]を押しながら行うと真円なります。"
  
    .Controls.Add ID:=139
    .Controls.Add ID:=318
    .Controls.Add ID:=1031
    .Controls.Add ID:=682
    
   Set myCBCtrl = myCB.Controls.Add(ID:=1691)
   myCBCtrl.BeginGroup = True
  
    .Controls.Add ID:=1692
    .Controls.Add ID:=401
    .Controls.Add ID:=692
    .Controls.Add ID:=693
    .Controls.Add ID:=694
    .Controls.Add ID:=394
    .Controls.Add ID:=339
    .Controls(19).BeginGroup = True
    
    .Visible = True
    .Position = msoBarBottom
  
  End With
  
  Set myCB = Nothing: Set myCB2 = Nothing: Set myCBCtrl = Nothing: Set myCBCtrl2 = Nothing

End Sub

4,886 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[未読]

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