|
▼初心者 さん、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 なら、通ります。
|
|