| |
▼ヤマ さん:
こんにちは。
>極端な話、コンボボックスが一個でもあるとプレビューや印刷が2分ほどかかって遅くなるんです。手で作った場合にはさっと印刷ができるのですが・・・
すみません、返事が遅くなりました。
新規ブックに以下のコードでコンボホックスを作成しました。
'====================================
Sub main()
idx = 20
Do While idx <= 1000
Call test(idx)
idx = idx + 20
Loop
End Sub
'======================================================================
Sub test(idx)
Dim combo As Object
Set combo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, _
DisplayAsIcon:=False, Left:=100, Top:=idx, Width:=450, Height:=14)
With combo
.ListFillRange = "$A$1:$A$11"
.LinkedCell = "b2"
End With
End Sub
しかし、印刷(印刷ダイアログが表示されるまでの時間)やプレビュー等は迅速に行われていました。
何度か保存/読み込みを繰り返しましたが、大きな変化はありませんでした。
ちなみにシートを保護した場合、印刷やプレビューが若干遅くなりましたが
数秒でした。
コントロールの不可以外も調べてみたらどうでしょうか?
回答でなくて、すみません。
|
|