Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

114 / 76612

←次へ　｜　前へ→


	【82167】Re:ディメンションが無効

マナ - 23/6/15(木) 21:13 -


	引用なし

	パスワード

▼あおこさん：

>当初問題なく動いていたのですが、突然
>　cho.Copy　のところで
>「指定したディメンションは、このグラフの種類では無効です。」
>のエラーが出るようになりました。（再実行すれば作成されますし、出ないときもあります。）

>　　Set cho = sh_A3.ChartObjects(1).Duplicate.Parent 'コピー元のグラフを複製

DoEventsをこの次に移動あるいは追加してみてはどうでしょうか。

>
>それから、下記のコードでは、まれに応答なしになって落ちるため、

同じデータで、応答なしになるのでしょうか。

>ステータスバーにグラフの個数を表示させ、
>何個目のグラフで落ちるのか確認していたら、
>どうも最後のグラフが作成されるまでは行くので、
>そのあとループがうまく抜けられないのかと。。

グラフの個数でなく、GYOを確認してみてはどうでしょうか。

>コードの問題点等あればご指摘いただけませんでしょうか。

>　　　GYO1 = GYO ' ｸﾞﾙｰﾌﾟの先頭行→GYO1
>　　　GYO = GYO + 1　　　　←この行は必要でしょうか？

>　　　.Range(.Cells(GYO1, 2), .Cells(GYO2, lastcol1 - 1)).Select　　
>　　　 Set r = Selection

ここはSelectしないで、１行にまとめてはどうでしょうか
Set r = .Range(.Cells(GYO1, 2), .Cells(GYO2, lastcol1 - 1))

259 hits

▼

【82158】グラフのコピー あおこ 23/6/12(月) 15:00