Excel VBA質問箱 IV

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

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


22167 / 76734 ←次へ | 前へ→

【59952】Re:再現不能のエラーで困っています
発言  kanabun  - 09/1/20(火) 21:24 -

引用なし
パスワード
   ▼初心者 さん、neptune さん:
ちょっとお邪魔します。

neptune さんのコメントですが、
>>For Each mySP In ActiveSheet.Shapes
>ですが、ActiveSheetにShapesが存在する事が保証されていない
>コードになってますが。その辺りは大丈夫ですか?

これは、
 For i = 2 To 0
と書いても、1回もLoopしないだけ、
 For Each mySP In ActiveSheet.Shapes
も、同じくShapeがなければ、Loopしないだけのことかと思います。

それよりも、モジュールの先頭に
Option Explicit
を宣言して、変数を宣言してから使う習慣をつけたほうがいいですよ。
Dim myF
Dim mySP as Picture
Dim myAD1 as string
Dim myAD2 as string
dim myHH as single
dim myHH as single
  :
そうすれば、
>  Cancel = True
のところと、
>   If myAD1 = myAD2 Then mySP1.Delete
               ~~~~~ 宣言されていない
のところで、変数が宣言されていないと、叱られるでしょう。

> Set mySP = ActiveSheet.Pictures.Insert(myF)
> の部分でエラーが発生するらしい
エラーメッセージの内容くらい、確かめて欲しいものです。

なので、まるで原因は分かりませんが、
変数 mySP のデータ型が Shapeですと、構文エラーですね
As Picture なら、通ります。
3 hits

【59948】再現不能のエラーで困っています 初心者 09/1/20(火) 18:28 質問
【59951】Re:再現不能のエラーで困っています neptune 09/1/20(火) 20:28 発言
【59952】Re:再現不能のエラーで困っています kanabun 09/1/20(火) 21:24 発言
【59953】Re:再現不能のエラーで困っています neptune 09/1/20(火) 21:32 発言
【59973】Re:再現不能のエラーで困っています bykin 09/1/22(木) 0:33 発言

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