Excel VBA質問箱 IV

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

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


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

5911 / 76733

←次へ　｜　前へ→


	【76427】Re:VBAについて

ゆっきーな - 14/11/28(金) 13:40 -


	引用なし

	パスワード

▼ゆっきーなさん：
>▼カリーニンさん：
>>エラー番号で判定するサンプルです。
>>
>>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
>
>
>回答ありがとうございます。
>いくつか投稿を頂いているので、全て試したいと思います。
>シェイプの名前”図１”はあくまで例です。
>実際には、任意の名前をシェイプに付けます。
>そうすれば、他の方が画像やシェイプを挿入された時でも
>エラーが出ないと思われますので！
>検証終わりましたら、再度ご連絡致します！

早速試してみました！
無事エラーも出ず、私の思うように動いております！
本当に助かりました！！
ちなみにシェイプの名前は”人数情報”というのに指定してみました。
他にも画像を入れたりしてチェックしてみます！
本当に感謝致します。

5 hits

▼

【76412】VBAについて ゆっきーな 14/11/27(木) 18:03