|
▼ゆっきーな さん:
>▼カリーニン さん:
>>エラー番号で判定するサンプルです。
>>
>>Sub test()
>> Dim spnm As String
>> Dim dumyflg As Boolean
>> Dim spexists As Boolean
>> spnm = "aa"
>> On Error Resume Next
>> Err.Clear
>> dumyflg = IsObject(ActiveSheet.Shapes(spnm))
>> If Err.Number = 0 Then
>> MsgBox spnm & vbCrLf & "有る"
>> Else
>> MsgBox spnm & vbCrLf & "無い"
>> End If
>> On Error GoTo 0
>>End Sub
>
>
>回答ありがとうございます。
>いくつか投稿を頂いているので、全て試したいと思います。
>シェイプの名前”図1”はあくまで例です。
>実際には、任意の名前をシェイプに付けます。
>そうすれば、他の方が画像やシェイプを挿入された時でも
>エラーが出ないと思われますので!
>検証終わりましたら、再度ご連絡致します!
早速試してみました!
無事エラーも出ず、私の思うように動いております!
本当に助かりました!!
ちなみにシェイプの名前は”人数情報”というのに指定してみました。
他にも画像を入れたりしてチェックしてみます!
本当に感謝致します。
|
|