|
▼monmon さん:
こんばんは。
>じつは、
>Chart.Expot をつかって変換しているのですが、変換中にプログレスバーが表示されてしまいます。
>
>Application.ScreenUpdating = False
>...
>Application.ScreenUpdating = True
>も試しましたが、やはり表示されます。
>
>なにかいい方法は無いものでしょうか…。
う〜ん、なので
>[#12817]を参考にしてみて下さい。
と申し上げたのですが、うまくいきませんか?
標準モジュールに
'===========================================
Declare Function LockWindowUpdate Lib "User32" (ByVal hwndLock As Long) As Long
Declare Function GetDesktopWindow Lib "User32" () As Long
'=====================================================================
Sub sample()
On Error Resume Next
Dim retcode As Long
retcode = LockWindowUpdate(GetDesktopWindow())
ActiveSheet.ChartObjects(1).Chart.Export ThisWorkbook.Path & "\test.gif"
retcode = LockWindowUpdate(0)
On Error GoTo 0
End Sub
上記のコードは、アクティブなシートにチャートオブジェクトをひとつ作成して
実行してみて下さい。
Chart.Exportの前後のコードがない場合は、プログレスバーが表示されますが、
上記のコードでは、表示されませんでした。
尚、確認したのはWin98&Excel2000です。
|
|