Excel VBA質問箱 IV

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

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


9931 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【24629】チャートをGIFファイルに変換する際に...
質問  monmon  - 05/4/29(金) 0:47 -

引用なし
パスワード
   With ActiveSheet
  .ChartObjects("Chrt1").Chart.Export _
   Filename:=CurrentDirectory & "\Chrt1.gif"
End With

というコマンドでシート上のチャートをGIFファイルに変換する際に、変換のプログレスバーを非表示にする方法を教えてください。

【24666】Re:チャートをGIFファイルに変換する...
発言  ichinose  - 05/5/2(月) 9:42 -

引用なし
パスワード
   ▼monmon さん、こんにちは。
皆様GWをいかがおすごしでしょうか?
前半、飛ばしすぎました。背中に膏薬だらけです。


> With ActiveSheet
>   .ChartObjects("Chrt1").Chart.Export _
>   Filename:=CurrentDirectory & "\Chrt1.gif"
>End With
>
>というコマンドでシート上のチャートをGIFファイルに変換する際に、変換のプログレスバーを非表示にする方法を教えてください。
[#12817]を参考にしてみて下さい。

ActiveSheet.Printoutの
代わりに
Chart.Export・・・
でいけると思います。

試してみて下さい。

【24692】Re:チャートをGIFファイルに変換する...
お礼  monmon  - 05/5/3(火) 19:40 -

引用なし
パスワード
   ichinose さん

ありがとうございます。
仕事のため、GWなどとは縁の無い生活を送っております。

じつは、
Chart.Expot をつかって変換しているのですが、変換中にプログレスバーが表示されてしまいます。

Application.ScreenUpdating = False
...
Application.ScreenUpdating = True
も試しましたが、やはり表示されます。

なにかいい方法は無いものでしょうか…。

【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です。

【24701】Re:チャートをGIFファイルに変換する...
お礼  monmon  - 05/5/4(水) 14:53 -

引用なし
パスワード
   親切な説明ありがとうございます。
無事解決しました。
今後も質問をしますので、その際はよろしくお願いします。

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