Excel VBA質問箱 IV

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

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


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

5916 / 76735

←次へ　｜　前へ→


	【76424】Re:VBAについて

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


	引用なし

	パスワード

▼カリーニンさん：
>エラー番号で判定するサンプルです。
>
>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

回答ありがとうございます。
いくつか投稿を頂いているので、全て試したいと思います。
シェイプの名前”図１”はあくまで例です。
実際には、任意の名前をシェイプに付けます。
そうすれば、他の方が画像やシェイプを挿入された時でも
エラーが出ないと思われますので！
検証終わりましたら、再度ご連絡致します！

0 hits

▼

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