No.3ベストアンサー
- 回答日時:
Wendy02です。
既存の、「拡大表示倍率のコンボボックス」とほとんど変わりません。
取り付け方:
Alt + F11 (Altを押しながらF11)を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]-[標準モジュール]と開けて、クリックすると、画面が現れますので、
そのすべてを、白い画面に貼り付けて、
Alt + Q で、画面を閉じます。
後は、保存して、終了します。次に、再度、そのファイルを開ければ、
メニューバーのヘルプの右隣に表示されます。
ズームの編集は、再び、Visual Basic Editor で開けて、
Module 1 というところを開いて、以下を修正して、同じように終了して、ファイルを開ければ、変化しています。
'選択リスト
.AddItem "200%" '1
.AddItem "130%" '2
.AddItem "100%" '3
.AddItem "75%" '4
.AddItem "50%" '5
もしも、他のブックも使うようでしたら、個人用マクロブックの標準モジュールに登録してください。
個人用マクロブック(Personal.xls)は、[ツール]-[マクロ]-[新しいマクロの記録]
[マクロの保存先]-[個人用マクロブック]-[OK]
とすれば、個人用マクロブックが作られますので、何もせずに、記録マクロを終了して、
Visual Basic Editor で開けて、Personal.xls を開いて、Module1 に、先ほどのコードを貼り付けてください。そして、保存にします。
Excelを再起動すれば、メニューが出ます。
No.2
- 回答日時:
こんばんは。
Excelのメニューバーに拡大表示倍率のユーザー・コンボボックス(ヘルプの右隣に表示されます。)
以下の「選択リスト」のところを書き換えてください。常識的な範囲なら、設定は可能だと思います。
ただし、現在のコードでは、選択リストは、最低、3行は必要です。
.ListIndex = 3 '100% の表示
は、3番目が、デフォルト表示です。
'-----------------------------------------
'標準モジュールのみ
'-----------------------------------------
Sub Auto_Open()
'起動時の設定
Call CommandMenu_Add
End Sub
Sub CommandMenu_Add()
Dim myCB As CommandBar
Dim cnt As Integer
Dim myCBCtrl As CommandBarControl
On Error Resume Next
'二重設定の回避
Application.CommandBars("WorkSheet Menu Bar").Controls("ユーザーズーム(&Z)").Delete
On Error GoTo 0
'
Set myCB = Application.CommandBars("WorkSheet Menu Bar")
cnt = myCB.Controls.Count
Set myCBCtrl = myCB.Controls.Add(Type:=msoControlDropdown, Before:=cnt + 1, Temporary:=True)
With myCBCtrl
.Caption = "ユーザーズーム(&Z)"
'--------------------------
'選択リスト
.AddItem "200%" '1
.AddItem "130%" '2
.AddItem "100%" '3
.AddItem "75%" '4
.AddItem "50%" '5
'-------------------------
'仕様
.OnAction = "WinZoom"
.ListIndex = 3 '100% の表示
.Tag = "myZoom"
.TooltipText = "ズーム"
.DropDownWidth = 50
.Width = 50
.Visible = True
End With
Set myCBCtrl = Nothing
Set myCB = Nothing
End Sub
Sub WinZoom()
'ズーム設定
ActiveWindow.Zoom = Val(CommandBars("WorkSheet Menu Bar").Controls("ユーザーズーム(&Z)").Text)
End Sub
'-----------------------------------------
>フォントサイズの選択肢への追加方法も教えてください。
こちらの方は、確か、すでにあるはずですから、割愛させていただきます。
この回答への補足
すみません、ご回答内容について質問です。
>Excelのメニューバーに拡大表示倍率のユーザー・コンボボックス(ヘルプの右隣に表示されます。)
これの意味が分からないのですが。。。
このソースはどうやったら見ることができて編集できるのですか?
No.1
- 回答日時:
コンボボックスの選択肢に任意の倍率を追加する事は出来るのかわかりませんが、
Ctrlキー押しながら、マウスのホイール(真ん中のぐりぐり)を動かして見てください。
細かく倍率が(15%ずつ)変わりますよ。
直接入力より早く出来るかと思います。
あと、これもコンボボックスの選択肢に追加の仕方はわかりませんが、
コンボボックスに追加したいサイズは一つだけですか?
一つだけなら、
ツール→オプション→全般→標準フォント→フォントサイズ→設定したいフォントサイズを直接入力→ok
で、変えられますよ。
ご回答ありがとうございます。
ホントだ!ホイールだと15%ずつなんですね。
まあまあ使えそうです。(というのは、Thinkpadなのでホイールではないためちょっと微妙なのです)
できればコンボボックスに追加されるのがベストなんですけどね。
あとフォントサイズは、標準サイズをそうしたいのではなく、いつでもそのサイズに変えられるようにコンボボックスに追加したいんですよね~
でも標準サイズ変更の方法も知らなかったので参考になりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで 3 2022/04/03 21:43
- Excel(エクセル) Excelのプルダウンメニューの内容を人によって可変する方法 2 2023/03/28 14:52
- HTML・CSS HTMLのフォームについてお尋ねします 1 2022/12/03 21:47
- ソフトウェア パワポ リボンとツールバーに開発がない時の対処法 4 2023/03/29 01:54
- 物理学 おしえてほしい。aはわかりましたが、bが12lxになるのですが?選択肢に解答がありません。 問題は図 2 2023/04/10 23:05
- その他(教育・科学・学問) 確率の問題 6 2022/07/27 12:00
- 据え置き型ゲーム機 【PS4/PS5】マン・オブ・メダンの選択肢 1 2022/07/06 15:13
- 画像編集・動画編集・音楽編集 Windowsに付属しているビデオエディター。BGMを追加する方法は? 1 2022/06/26 08:54
- JavaScript セレクトボックスを2つ選択してメッセージなどを表示するには。~運賃検索プログラムを完成させたい~ 1 2022/07/22 11:10
- 英語 明日、単語テストがあります。 結構問題数多いです。日本語から英語にする問題で選択肢なのでスペルはきち 2 2022/08/29 22:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
別のパソコンでエクセルのマク...
-
エクセルマクロにてパワーポイ...
-
VBAを一度起動するとずっと出て...
-
昨日まで動いていたエクセルの...
-
コピーしたファイルのマクロを...
-
マクロを消すマクロは不可能?
-
エクセルでマクロを別のPCで利...
-
excelでpersonal.xlsを常に開く...
-
「開いているすべてのブック」...
-
excelが別プロセスで起動してし...
-
【マクロ】エラーが発生⇒実行時...
-
エクセルマクロを有効にしない...
-
VBAで他のBOOKを開いた時に表示...
-
EXCELマクロコードを、それを含...
-
エクセルで、ハイパーリンクを...
-
excelのマクロ実行でブロックさ...
-
Excel のマクロを常に有効にで...
-
アクセスからエクセルファイル...
-
VBA マクロ実行時エラー’1004Ra...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
VBA マクロ実行時エラー’1004Ra...
-
VBAを一度起動するとずっと出て...
-
別のパソコンでエクセルのマク...
-
コピーしたファイルのマクロを...
-
マクロを消すマクロは不可能?
-
昨日まで動いていたエクセルの...
-
エクセルファイルを自身のファ...
-
エクセル2013vbaで、見えない名...
-
Excelマクロ ファイル名が変わ...
-
エクセルマクロ実行中に別ファ...
-
excelファイルに使われているVB...
-
Excelが勝手にシート移動してし...
-
Word用のマクロが急に働かなく...
-
EXCEL マクロ クリップボードク...
-
【マクロ】エラーが発生⇒実行時...
-
excelが別プロセスで起動してし...
-
エクセルマクロを有効にしない...
-
アクセスでファイルを開いたと...
-
excelでpersonal.xlsを常に開く...
おすすめ情報