Excel VBA質問箱 IV

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

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


17618 / 76732 ←次へ | 前へ→

【64563】Re:画面更新の停止
発言  Abyss  - 10/2/23(火) 22:04 -

引用なし
パスワード
   コードの中からSelectとかSelectionとか
Gotoなどを整理すればよいかと思います。

例として最初の部分だと

>Application.ScreenUpdating = False
>
>  Sheets("Sheet1").Select
>  Application.Goto Reference:="グラフ1"
>  Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
>  Sheets("Sheet2").Select
>  Range("B2").Select
>  ActiveSheet.Paste

は、

Application.ScreenUpdating = False
Sheets("Sheet1").chartobjects("グラフ1").copypicture
Sheets("Sheet2").Range("B2").PasteSpecial

ように整理が出来ます。

0 hits

【64546】画面更新の停止 Yoshio.E 10/2/23(火) 0:02 質問
【64547】Re:画面更新の停止 Abyss 10/2/23(火) 1:29 発言
【64560】Re:画面更新の停止 Yoshio.E 10/2/23(火) 20:58 質問
【64563】Re:画面更新の停止 Abyss 10/2/23(火) 22:04 発言
【64565】Re:画面更新の停止 Yoshio.E 10/2/23(火) 23:39 お礼

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