Excel2000のコンボボックスで...

質問

「Excel2000 SR-1」を使っています。
ファイルを新規作成し、シート上に「コントロール ツールボックス」中から
コンボボックスを作成しました。
作成したコンボボックスのプロパティで"オブジェクトを印刷する"にチェックを
入れるとボックス右端にある下向きの三角形まで印刷され、
"オブジェクトを印刷する"のチェックを外すと、そのコンボボックスは
何も印刷されません。
できれば下向きの三角形がない状態で、印刷したいのですが、
どうしたら良いのでしょうか。

回答No.3

nishi6 · ベストアンサー

ばかにされそうな方法をひとつ・・・・
１．まずコンボボックスを元の場所から１行程度下にずらします。
２．ＶＢの編集モードでコンボボックスを右クリックしプロパティウインドウを出します。
　　LinkedCellにコンボボックスが元あった場所を指定します。（これが印刷されます）
３．コンボボックスを元あった場所に戻します。（リンクしたセルを隠すわけです）
４．コンボボックスを右クリックしコントロールの書式設定を選択。
　　プロパティの「オブジェクトを印刷」のチェックをはずして、ＯＫ。

セルの高さよりコンボボックスの高さを大きくするとリンクしたセルは隠れます。
幅も同様です。印刷するとセルの内容だけ印刷されます。

白黒レーザープリンタではセルの文字色を白にすると画面では見えませんがプリンタには黒で出ました。これはプリンタ次第でしょうね。

お礼

思わず唸ってしまうような解決方法ですねぇ。
今回は、これを採用しようかとおもいます。ありがとうございます。

回答No.2

koutaka

[コントロール ツールボックス]を使用しなくてもいいなら
[フォーム]を利用したらいかがでしょうか？
コンボボックスの値をセルに表示する形態になります。

１[コンボボックス]を右クリックして、[コントロールの書式設定]を選択します
２[コントロールの書式設定]-[プロパティ]タブを選択、[オブジェクトを印刷]
チェックをはずします
３[コントロール]タブを選択し、[リンクするセル]を表示したいセルを入力する。

回答No.1

TTak

dandadanさんこんにちは
> シート上に「コントロール ツールボックス」中から～
ということですので、VBEのコントロールとしてコンボボックスを配置されているのですね。
でしたら、印刷のイベントを拾って、コンボボックスの"ShowDropButtonWhen"プロパティの値を"fmShowDropButtonWhenNever"に変えて、印刷後、再度そのコンボボックスが選択されたらドロップダウンボタンを表示させるというのはどうでしょう？。次の例はSheet1にComboBox1を配置したものです。

'BeforPrintイベントで、印刷直前にSheet1にあるComboBox1のドロップダウン
'ボタンを非表示にする。（ThisWorkbookのコードウインドウに記述）
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sheet1").ComboBox1.ShowDropButtonWhen _
= fmShowDropButtonWhenNever
End Sub

'GotFocusイベントで、ComboBox1のドロップダウン
'ボタンを表示する。（Sheet1のコードウインドウに記述）
Private Sub ComboBox1_GotFocus()
ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End Sub

補足

この件で、プロパティウィンドウの値を変える事でいろいろ出来ることを知る事が出来ました。
ただ、私の質問の仕方が悪かったのでしょう。
コンボボックス中に表示されている項目だけを残して、
「下向き三角形」や「四辺の表示」を取り除いてしまいたいのです。

根本的な疑問として、各コントロールの印刷はＶＢＡによるプロパティ設定でしか
回避できないのでしょうか。