VBAで別のシートに図形描画

Question

お世話になっております。
現在VBAにおいて以下のものを作っております。

Sheet3で設定を行い、コマンドボタンを押下すると
Sheet2に描画を行う

ところが
Range(Sheets("Sheet2").Cells(HightCnt, WidthCnt), Sheets("Sheet2").Cells(HightCnt, WidthCnt)).Select
のところで
「実行時エラー'1004' Rangeメソッドは失敗しました」
となります。
（どうも同じシートSheet3に描画する分には問題ないようなのですが）

コマンドボタン押下時に別シートにデータ出力等行うことはできないのでしょうか？
もしできるのであれば方法をおしえていただけませんでしょうか？

よろしくお願いします。

Wendy02 · Accepted Answer

Wendy02です。
補足：
>まあ、ちょっとびっくりです。^^;配列変数に入れて、それを後で吐き出すわけですね。

途中を省いてしまいましたので、意味が分かりませんよね。#5の補足とお礼をみて、それだけ出来きているなら、こんなところで躓くなんて・・・、というところなんです。^^;

私は、こういう処理の場合は、そのまま、Range型の変数に入れてしまうかもしれない、と思いましたが。

With Sheets("Sheet2")
　With .Range(.Cells(12, 3), .Cells(120, 120))
　　.Borders.LineStyle =xlNone '罫線を全部消す
　End With
　
・
・
End With

罫線をまとめて消す場合は、このようにします。
それから、オートシェイプの線ではありませんでしたね。その場合は、描画不活性化という現象は起きませんね。

Wendy02 · Answer

こんばんは。Wendy02です。

まあ、ちょっとびっくりです。^^;配列変数に入れて、それを後で吐き出すわけですね。

言われてみれば、それは、簡単なところなのですね。

以下のように修正してみてください。Rangeオブジェクトは、標準モジュールからですと、Application のメンバーになるのですが、シートモジュールだと、否応なく、そのシートの配下にされてしまうので、シートとの整合性がないと、エラーが出てしまいます。そこで、「With」ステートメントで、くくってあげないといけません。

前回書いたように、これは、なかなか、気づきにくい一つです。仮に、標準モジュールでも、同じように、「With」ステートメントで書くのが正しいです。それぞれに「.(ドット)」が入っていますから、貼り付けしないのでしたら、気をつけて書いてください。Range の前、Cellsの前に入っています。

それから、これは、Select を使っていますから、画面が激しく点滅しますから、描画の手前からで良いですから、

　Application.ScreenUpdating = False

' 中身

　Application.ScreenUpdating = True

で、コードを包んでください。これは、オートシェイプの時は、別の意味もあります。画面が不活性になってしまっても、ScreenUpDating で活性化します。本来は、Select を使わなくても出来ますが、今は、これだけでも十分だと思います。これで、コードは通るはずです。


'------------------------------------------
描画の部分から

　'==========================================================
　'描画
　'==========================================================
　With Sheets("Sheet2")　'←ココ
　　.Select　'←ココ
　　'-------------------------------------------------
　　'まずは消す
　　'-------------------------------------------------
　　.Range(.Cells(12, 3), .Cells(120, 120)).Select　'←ココ
　　
　　～　中略　～
For HightCnt = 1 To 100
　　　For WidthCnt = 1 To 100
　　　　'セルを選択する
　　　　.Range(.Cells(HightCnt + 12, WidthCnt + 2), _
　　　　　.Cells(HightCnt + 12, WidthCnt + 2)).Select '←ココ
　　　　　
　　　　　～　中略　～
　　　　　
　
　　 Next WidthCnt
　　Next HightCnt
　End With　　'←ココ
End Sub

Wendy02 · Answer

こんにちは。Wendy02です。

>ちなみにNo1の回答者さんがおっしゃるように関数をモジュールの方に移すとうまく動きました。

それは結果論だと思います。コマンド・ボタンだけで使用するコードをあえて、標準モジュールに移さなくてはならないようなことはありません。きちんと基本に忠実にコードが書けていれば、ローカル・モジュールで通ります。エラーの原因は、簡単にいうと、ローカル・オブジェクトのSheet3に対して、Rangeオブジェクトの論理的な矛盾があるからです。だいたい、ローカルと標準モジュールの違いがはっきりとしない、1年間ぐらいは、同じようなミスを時々起こしてしまいます。

しかし、ローカル・オブジェクトのSheet3 から、他のシートの　Cells プロパティも、Range プロパティ(オブジェクトではない方)も、それ自体を直接指名しても、Select では飛びません。(他に方法はあります)　.Selectでは、ローカルモジュールの範囲は、オブジェクトを一旦替えてあげないといけないので、シートの変更(Worksheets("Sheet2").Select 等)が必要になります。

元々、Sheet3の静的なデータに対して何かを加えるわけではないのなら、Sheet2 にコマンドボタンがあったほうが良いかもしれません。別に、書式設定で指定すれば、印刷に映るわけでもないし、私なら、そのように作ります。

全体的なもの、特に、HightCnt,WidthCnt は、実際は、どのような流れで、何を拾っているのか分かれば、また、よろしければ、こちらでも考えてみます。

それと、.Shapes.AddShape　は、あまり繰り返さないほうがよいです。バージョンによって、線画が不活性化することがあります。

myCat · Answer

endy02さん、こんばんは。
ちょっと気になるところがありましたので便乗質問させて下さい。

>>Sheet3で設定を行い、コマンドボタンを押下すると
>>Sheet2に描画を行う
>>ところが
>>Range(Sheets("Sheet2").Cells(HightCnt, WidthCnt), Sheets("Sheet2").Cells(HightCnt, WidthCnt)).Select
>>のところで「実行時エラー'1004' Rangeメソッドは失敗しました」

描画のところは何も書いてないので置いておいて、上記エラーについて

＞エラー自体は、Range オブジェクトをSheet オブジェクトでカバーしてあげればよいだけなのですが

と回答されてますが、
この●Sheetオブジェクトでカバー●とはどういうことなのでしょうか
例えば、次のようにRangeオブジェクトの前にSheetオブジェクトを付加すれば
Sheet2をSelectしなくてもエラーを回避できるということでしょうか。

Sheet3のCommandButton Clickイベント
-----------------------------------------------------
Private Sub CommandButton1_Click()
　　With Sheets("Sheet2")
    　　.Range(.Cells(1, 1), .Cells(2, 3)).Select
　　End With
End Sub
-----------------------------------------------------
　
後学の為に是非ご教授ください。
意味を取り違えていましたら「VBA齧り始め」の戯言とご容赦ください。
何れにしろ、Wendy02さんのVBAの回答はとても勉強になります。
いつも感謝しながら眺めております。


ここからは質問者へ。
因みに当方の回答は標準モジュールでしか動かないコードです。
Sheet3に置く場合はシート名を付け加えないといけないのですが
それは試してみてエラーが出たら再度質問するでしょうから、
その時点でそこは回答した方がより理解が深まるかなと思い書きませんでした。

Wendy02 · Answer

こんばんは。

Sheet3 のコマンドボタンですから、Sheet3 に書いてかまわないですが、コードの全部をみないと分からないものがありますね。書き方にもよりますが、特別、Select も必要だも思いません。

エラー自体は、Range オブジェクトをSheet オブジェクトでカバーしてあげればよいだけなのですが、コードを見る限りは、Rangeオブジェクトで範囲を設定しているようにないのです。

コードの変数からの単なる想像ですから、意味が違うかもしれませんが、セルに対して範囲を設定するなら、以下のような感じにならないでしょうか？また、どちらかというと、このようなサイレントモードは、最後に、.Select を入れ目視するか、メッセージか、Beep を入れて音で確認しないと、別のシートに、いくつ同じものを作っているきか気が付きません。

'------------------------------------------------------
Private Sub CommandButton1_Click()
　Dim HightCnt As Long '高さ
　Dim WidthCnt As Integer '幅
　Dim sLocation As String '位置
　Dim r As Range
'--------------------------------- 
'本来は、シートからの呼び出し？ 
　sLocation = "A1"
　HightCnt = 10
　WidthCnt = 3
'--------------------------------- 
　With Worksheets("Sheet2")
　　Set r = .Range(sLocation).Resize(HightCnt, WidthCnt)
　　.Shapes.AddShape(msoShapeRectangle, r.Left, r.Top, r.Width, r.Height).Select
　　Set r = Nothing
　End With
　Beep
End Sub

'------------------------------------------------------

myCat · Answer

こんにちは。

原因は、Sheet2がアクティブでないのに、Sheet2のセルをSelectしているからです。
次のように先ず、Sheet2をアクティブにしてから、セルのSelectです。

Sheets("Sheet2").Select
Range(Cells(HightCnt, WidthCnt), Cells(HightCnt, WidthCnt)).Select

Sheet2をアクティブにしてあるのにエラーが出る場合は、変数HightCnt,WidthCntの値が不適切な値です。
　
以上です。

ASIMOV · Answer

コードを Sheet3 に記述していませんか？
他のシートに関わるコードは標準モジュールに記述しないと動きません

VBAで別のシートに図形描画

Wendy02です。

こんばんは。

こんにちは。

この回答への補足

endy02さん、こんばんは。

こんばんは。

こんにちは。

コードを Sheet3 に記述していませんか？

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング