目安箱 IV

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

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

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

【4】アドインファイルにてツールバーを表示するには、[ソフト紹介] ぴかる 02/9/2(月) 20:42 Excel[未読]

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

【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

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