目安箱 IV

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

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

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

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

【12】メイン ぴかる 02/9/2(月) 21:15 Excel[未読]

【12】メイン
Excel  ぴかる  - 02/9/2(月) 21:15 -

引用なし
パスワード
   Dim X As New Class1
Sub AUTO_OPEN()

  If ThisWorkbook.Name = "ピカつーる.xla" Then
   Set X.App = Application
   InitializeBook ActiveWorkbook
  ElseIf ThisWorkbook.Name = "ピカせっと.xls" Then
   ピカつーる作成
  End If
  
End Sub
Sub AUTO_CLOSE()

  If (ThisWorkbook.Path = "") And (フラグ <> 1) Then
   ピカせっと作成
  End If

End Sub
Sub InitializeBook(WBook)
  
   Set X.WBK = WBook

End Sub
Sub mySetVerticalAlignment(Ichi As Variant)
  
  Selection.VerticalAlignment = Ichi
  With Application.CommandBars("オリジナル書式設定")
    .Controls(12).State = msoButtonUp
    .Controls(13).State = msoButtonUp
    .Controls(14).State = msoButtonUp
  
   Select Case Ichi
   Case xlBottom
    .Controls(12).State = msoButtonDown
   Case xlCenter
    .Controls(13).State = msoButtonDown
   Case xlTop
    .Controls(14).State = msoButtonDown
   End Select
  End With
 
End Sub
Sub ShiyoKa(Kanou As Boolean)
   
  If ThisWorkbook.Name = "ピカつーる.xla" Then
   With Application.CommandBars("オリジナル書式設定")
    .Controls(12).State = msoButtonUp
    .Controls(13).State = msoButtonUp
    .Controls(14).State = msoButtonUp
    .Controls(12).Enabled = Kanou
    .Controls(13).Enabled = Kanou
    .Controls(14).Enabled = Kanou
   End With
  End If
  
End Sub
Sub オリジナルツールバー作成()

  Application.ScreenUpdating = False 
  右クリック部追加
  既存ツールバーを非表示
  オリジナル標準作成
  オリジナル書式設定作成
  オリジナル図形描画作成
  オリジナル図形描画作成
  オリジナルメニューバー作成
  AUTO_OPEN
 
End Sub
Sub ツールバーを元に戻す()
  
  Dim cb As CommandBar
  
  Application.ScreenUpdating = False  '画面固定
  With Application
    .CommandBars("オリジナル書式設定").Delete
    .CommandBars("オリジナル図形描画").Delete
    .CommandBars("オリジナル標準").Delete
    .CommandBars("PikaBar").Delete
    .CommandBars("Worksheet Menu Bar").Enabled = True
    .CommandBars("Standard").Visible = True
    .CommandBars("Formatting").Visible = True
  End With
  
  For Each cb In Application.CommandBars
   If cb.Name = "Cell" Then cb.Reset
  Next

End Sub
Sub 元に戻す()
  
Dim タイトル As String
Dim スタイル As String
Dim メッセージ As String
Dim YESNO As String
   
   メッセージ = "ツールバーを元に戻します。よろしいですか?" & vbLf & _
          "" & vbLf & _
          "再びピカつーるにしたい時は、ツール→アドインにて" & vbLf & _
          "ピカつーるにチェックを入れて下さい。"
   スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
   タイトル = " 【 ツールバー 】"
   YESNO = MsgBox(メッセージ, スタイル, タイトル)
  
   If YESNO = vbYes Then
    Application.DisplayAlerts = False '警告メッセージオフにする
    AddIns("ピカつーる").Installed = False
   Else
    MsgBox "キャンセルしました。", vbInformation, タイトル
    Exit Sub
   End If
  
End Sub

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