Excel VBA質問箱 IV

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

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


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

10311 / 76734

←次へ　｜　前へ→


	【71970】Re:オートシェイプの名前の重複

UO3 - 12/5/4(金) 12:00 -


	引用なし

	パスワード

▼xacronincs さん：

こんにちは
シート上のシェープの名前の有無チェックは以下でも（だいたいは）可能です。
シェープというより、その名前のオブジェクトが存在するかどうかを判定していますので
Test要注意のようなこともありますが。
なお、私自身は使ったことはありませんが、シェープのIDについては以下のコードにいれてみました。

新規ブックに任意の図形を１つ作成して試してみてください。

Sub Test()
　　Dim svn As String
　　svn = ActiveSheet.Shapes(1).Name
　　MsgBox ActiveSheet.Shapes(1).ID
　　
　　MsgBox IsObject(Evaluate(svn))
　　MsgBox IsObject(Evaluate("Test"))
　　
　　ActiveSheet.Shapes(1).Name = "Test"
　　MsgBox IsObject(Evaluate(svn))
　　MsgBox IsObject(Evaluate("Test"))
　　
　　ActiveSheet.Shapes(1).Name = "TestABC"
　　MsgBox IsObject(Evaluate(svn))
　　MsgBox IsObject(Evaluate("Test"))
　　MsgBox IsObject(Evaluate("TestABC"))
End Sub

Sub Test要注意()
　　MsgBox IsObject(Evaluate("A1"))
End Sub

7 hits

▼

【71963】オートシェイプの名前の重複 xacronincs 12/5/4(金) 0:07