再度コマンドボタンの不具合

Question

コマンドボタンの凸凹については解決しました、なにが原因かわかりませんが・・

再度不具合です。

私のPC上では問題ないのですが、このブックを他のPC（Win7)にて開くと、なんとボタンのサイズが

変わっているではありませんか、H=0.77　W=9.00　に設定してありましたが　Hはそのままですが　Wが　8.1に

なっていました、1シ－ト上のボタンの数は約30個です、そのうちの１/3位が小さくなってしまっています、

機能は正常に動きますが、デザイン上良くありません、

どうしてでしょうか、解決策をお願いいたします。

井筒　正信

東京都杉並区

******@doronco.biz

Answer 1

正信井筒 さん、こんにちは。返信ありがとうございます。

コマンド ボタンのサイズの現象については、無事に改善したようですね。

マクロを使ったリボンの最小化については、次のページが参考になると思うで、紹介します。

参考ページ : リボンを最小化・非表示にする

(当フォーラムにいつも丁寧なコメントを寄せてくれている、きぬあさ さんのページです)

展開されているリボンを最小化する場合には、「SendKeys "^{F1}"」 といったコマンドを実行するだけでいいのですが、リボンが最小化されている時にこれを実行してしまうと、逆にリボンが展開されてしまいます。

そのため、ブックを開いた時に実行するマクロに 「リボンが最小化の状態なら、このコマンドを実行しない」 という感じの判別の仕組みを入れておく必要がありそうです。

判別の仕組みのコードの書き方などについては、「MSDN の VBA フォーラム」 で情報を集めてみるといいと思いますよ。

Answer 2

ありがとうございます。

参考にさせていただきます。

Answer 3

正信井筒 さん、こんにちは。

少々お時間が経過したのですが、楠部のコメントは参考としていただけたでしょうか ?

同様のお悩みでこちらのスレッドを見られた方にも参考としていただけるよう [ 回答としてマーク ] をさせていただきました。

また何かありましたらマイクロソフト コミュニティのご利用をお待ちしています。

Answer 4

早速の解決策の提示ありがとうございます。

とりあえず、コマンドボタンをグル－プ化して、プロパティで【セルに合わせて移動やサイズ変更をしない】にチェックをいれてみると、問題の症状を回避できました、

それ以外の確認は行っていません、

　もう一つ教えてもらいたいのですが、

ブックを開く時に、リボンを最小化した状態で開きたいのですが、

Sub Auto_Open()

Worksheets(2).Activate

Range("A1").Activate

End Sub

上記記述に加えるコ－ドを教えて下さい、

リボンがあると見た目にスマ－トでないし、画面が狭くなるので・・・

宜しくお願いいたします。

Answer 5

正信井筒 さん、こんにちは。

マイクロソフト コミュニティをご利用いただきありがとうございます。

コマンド ボタンを挿入した Excel ファイルをほかの PC で開くとコマンド ボタンのサイズが変更されてしまうということなのですね。

確認なのですが、サイズが変更されてしまう動作は、サイズを修正してもファイルを開き直すと毎回変更されてしまうのでしょうか ?

確認のため、一度修正をしてみて保存しファイルを開き直して確認してみてくださいね。

ファイルを開くたびに繰り返される動作なのかが解らないので原因が解らないですが、変更されてしまったファイルをそのまま作成元の環境に戻してみて動作を確認してみるのも良いかもしれません。

問題が起きる場合の回避策となるのですが、作成元の PC で [コントロールの書式設定] を開き、 [縦横比の固定] のチェックを入れてみて確認してみてはどうでしょう。

また、同じ [コントロールの書式設定] の [プロパティ] を開き、 [セルに合わせて移動やサイズを変更しない] にチェックを入れて確認してみるのも良いかもしれません。

もしサイズが毎回変わってしまうということであれば作成した環境と Excel ファイルを開かれた環境を正確に書いてみてください。 (例: WindowsXP + Office 2003 で作成した Excel ファイル など)

確認してみた結果について正信井筒 さんからの返信をお待ちしていますね。

本題と外れるのですが、 Communuty のフォーラムは不特定多数の方が見られるので、スレッド内には個人情報は書かれない方がよいと思うので削除をしてくださいね。