Excel VBA質問箱 IV

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

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


56783 / 76732 ←次へ | 前へ→

【24693】Re:チャートをGIFファイルに変換する際にプログレスバーを表示しない。
発言  ichinose  - 05/5/3(火) 20:13 -

引用なし
パスワード
   ▼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です。
2 hits

【24629】チャートをGIFファイルに変換する際にプログレスバーを表示しない。 monmon 05/4/29(金) 0:47 質問
【24666】Re:チャートをGIFファイルに変換する際... ichinose 05/5/2(月) 9:42 発言
【24692】Re:チャートをGIFファイルに変換する際... monmon 05/5/3(火) 19:40 お礼
【24693】Re:チャートをGIFファイルに変換する際... ichinose 05/5/3(火) 20:13 発言
【24701】Re:チャートをGIFファイルに変換する際... monmon 05/5/4(水) 14:53 お礼

56783 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free