Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1694 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【72574】リストボックスの文字が小さくなる けろぽん 12/8/25(土) 22:59 質問[未読]
【72579】Re:リストボックスの文字が小さくなる UO3 12/8/26(日) 8:26 発言[未読]
【72580】Re:リストボックスの文字が小さくなる けろぽん 12/8/26(日) 9:42 お礼[未読]
【72583】Re:リストボックスの文字が小さくなる UO3 12/8/26(日) 11:50 発言[未読]
【72585】Re:リストボックスの文字が小さくなる けろぽん 12/8/26(日) 12:43 お礼[未読]
【72574】リストボックスの文字が小さくなる
質問  けろぽん  - 12/8/25(土) 22:59 -
引用なし
パスワード
   オープンイベントでリストボックスのフォントサイズを設定しているのですが、
ファイル起動時にコンテンツを有効化をクリックするとリストボックスの文字が小さくなってしまいます。
どなたかご教授をお願いいたします。


Sub AUTO_OPEN()

　　Application.EnableEvents = False 'イベント抑制
　　Application.ScreenUpdating = False

　　'ウィンドウ固定
　　
　　Worksheets("出納帳").Activate
　　ActiveSheet.Rows(21).Select


　　ActiveWindow.FreezePanes = True
　　　　
　　 '保護、スクロールロック、移動方向
　　　　
　　With Worksheets("出納帳")
　　.EnableSelection = xlUnlockedCells
　　.ScrollArea = "c1:Y1000"
　　.Protect Password:="cjd"
　　End With
　　
　　Application.MoveAfterReturn = True
　　Application.MoveAfterReturnDirection = xlToRight
　　
　　'リストサイズ固定
　　
　　With Worksheets("出納帳")
　　
　　.lstKamoku.Height = 159.75
　　.lstKamoku.Width = 426
　　.lstKamoku.ColumnCount = 6
　　.lstKamoku.ColumnWidths = "40;100;40;100;40;100"
　　.lstKamoku.Font.Size = 11
　　
　　.lstHojo.Height = 159.75
　　.lstHojo.Width = 178
　　.lstHojo.ColumnCount = 2
　　.lstHojo.ColumnWidths = "40;100"
　　.lstHojo.Font.Size = 11
　　
　　.lstbumon.Height = 134
　　.lstbumon.Width = 152
　　.lstbumon.ColumnCount = 2
　　.lstbumon.ColumnWidths = "40;100"
　　.lstbumon.Font.Size = 11
　　
　　End With
　　
　　'画面幅調整
　　
　　'Range("A:ｚ").Select
　　'ActiveWindow.Zoom = True
　　
　　With Worksheets("出納帳")
　　.lstKamoku.ListIndex = -1
　　.lstHojo.ListIndex = -1
　　.lstbumon.ListIndex = -1
　　End With
　　
　　Application.ScreenUpdating = True
　　Application.EnableEvents = True
　　
　　
　　'開始セル選択
　　Worksheets("出納帳").Cells(21, 3).Select
　　
　　
End Sub
【72579】Re:リストボックスの文字が小さくなる
発言  UO3  - 12/8/26(日) 8:26 -
引用なし
パスワード
   ▼けろぽん さん：

バージョンは2003で、「コンテンツの有効化」とは「マクロの有効化」のことでしょうか？

このコードのままで、2010で試しましたが、特に文字サイズが小さくなるということは
ありませんが？

それより、Auto_Open で必ず実行されますよね。
可変の条件によって、設定値を動的に変更するなら理解できますが、いつも決まった設定なら
なぜ、最初からプロパティで設定しておかないのですか？
【72580】Re:リストボックスの文字が小さくなる
お礼  けろぽん  - 12/8/26(日) 9:42 -
引用なし
パスワード
   ありがとうございます。

最初はプロパティでフォントサイズを設定したのですが、うまくいかなかったのでコードで記述してみました。
Excelは2010なのですが、起動時（初回に限り）上部にコンテンツ（マクロ）を有効にするか確認するメッセージと帯が出て、ボタンをクリックするとその帯が消えて文字が小さくなります。
2回目以降は確認メッセージが出ないので表示はされるのですが、フォントサイズが設定値よりかなり小さく見えます。

▼UO3 さん：
>▼けろぽん さん：
>
>バージョンは2003で、「コンテンツの有効化」とは「マクロの有効化」のことでしょうか？
>
>このコードのままで、2010で試しましたが、特に文字サイズが小さくなるということは
>ありませんが？
>
>それより、Auto_Open で必ず実行されますよね。
>可変の条件によって、設定値を動的に変更するなら理解できますが、いつも決まった設定なら
>なぜ、最初からプロパティで設定しておかないのですか？
【72583】Re:リストボックスの文字が小さくなる
発言  UO3  - 12/8/26(日) 11:50 -
引用なし
パスワード
   ▼けろぽん さん：

2010でしたか。
マクロブックが「信頼できる場所（フォルダ）」にないからでしょうけど、
それはフォントサイズには関係ないですね。

フォントサイズが小さくなるというのは、具体的にはどういうことでしょうか？
シートのフォントサイズは何もしなければ 11。
またシートに貼りつけたリストボックスのフォントサイズも、何もしなければ　11。

で、シート上の文字よりリストボックス内の文字が小さくなるということですか？
それは、ちょっと考えられないのですが。
（ものさしではかったわけではありませんが、見た目、ほぼ同じ大きさですよ）

で、リストボックスのフォントサイズはプロパティで設定しても、コードで設定しても
11 は 11 ですけど？
【72585】Re:リストボックスの文字が小さくなる
お礼  けろぽん  - 12/8/26(日) 12:43 -
引用なし
パスワード
   ありがとうございます。

おっしゃる通り、フォントのサイズは変わっていないのだと思いますが、縮小されて表示されるような感じです。

自分のPCでは2回目以降はコンテンツの有効化ボタンが表示されないので問題ないのですが、何台かのPCで使用したいため、どのPCで開いても同じ見た目にしたかったのです。

もしかしたら使用したPCの環境によるものかもしれませんのでもう一度よく調べてみます。

下手な質問にご回答下さいましてありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1694 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free