目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

266 / 277

←次へ　｜　前へ→

【12】メイン

ぴかる - 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

5,551 hits