Excel VBA質問箱 IV

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

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


7103 / 13644 ツリー ←次へ | 前へ→

【41102】オートシェイプに設定された名義の変更及び削除 PE 06/7/29(土) 17:43 発言[未読]
【41103】Re:オートシェイプに設定された名義の変更... Kein 06/7/29(土) 17:52 回答[未読]
【41104】Re:オートシェイプに設定された名義の変更... PE 06/7/30(日) 7:22 質問[未読]
【41111】Re:オートシェイプに設定された名義の変更... Kein 06/7/30(日) 14:45 発言[未読]
【41203】Re:オートシェイプに設定された名義の変更... Pan 06/8/1(火) 19:52 お礼[未読]

【41102】オートシェイプに設定された名義の変更及...
発言  PE  - 06/7/29(土) 17:43 -

引用なし
パスワード
   シート上にオートシェイプが2個あります。
オートシェイプ1に「図形1」と名義設定をしました(挿入→名前→定義)。この図形1を図形Aに名前を変更したいのですが、
また図形Aに変更後、図形Aの名義を削除したいのですが、どのようにコードで表現するとよいのでしょうか。

【41103】Re:オートシェイプに設定された名義の変...
回答  Kein  - 06/7/29(土) 17:52 -

引用なし
パスワード
   マクロの自動記録では、コードが出ませんか ?
いちおう、こんな感じになるはずですが・・。

Sub CH_ObjectNM()
  ThisWorkbook.Names("図形1").Name = "図形A"
End Sub

Sub DEL_ObjectNM()
  ThisWorkbook.Names("図形A").Delete
End Sub

【41104】Re:オートシェイプに設定された名義の変...
質問  PE  - 06/7/30(日) 7:22 -

引用なし
パスワード
   ▼Kein さん:
早速ご返事ありがとうございます。

>マクロの自動記録では、コードが出ませんか ?

ありがとうございます。自動記録で名義の変更や削除をしようとしたのですが、オートシェイプで作成した図形は、挿入→名前→定義→としても、「図形1」が名義の定義に出てこないで、参照の欄に
「="図形1」と出て、自動記録まで行きませんでした。
何か問題がありそうです。プロテクトもかけていませんが、名義の定義の操作が間違っているとか、オートシェイプ独特の設定がかかっているのでしょうか?
(セル範囲の名義に変更/追加/削除はスムースですが)

またご提示いただいたコードを早速使わせていただきますと、実行時エラー1004と
成ります。
>Sub CH_ObjectNM()
>  ThisWorkbook.Names("図形1").Name = "図形A"
>End Sub
>
>Sub DEL_ObjectNM()
>  ThisWorkbook.Names("図形A").Delete
>End Sub
また、何かお気づきになりましたら、アドバイスお願いします。

【41111】Re:オートシェイプに設定された名義の変...
発言  Kein  - 06/7/30(日) 14:45 -

引用なし
パスワード
   こちらはExcel2000ですが
>「図形1」が名義の定義に出てこないで、参照の欄に「="図形1」と出て
とはなりませんでしたが。ちなみに参照の方は ="オートシェイプ1" で変化は
ありません。これは普通、図形のデフォルトの Nameプロパティ の値ですが、
それを変更する場合は Shapes("オートシェイプ1").Name = 何々
というコードになるはずです。そちらでもし、そんなコードを実行した記憶があるなら
もう一度同じコードを、別の名前を代入する形にしてやってみて下さい。
その上で先に提示したコードを実行すれば、正しく変更できるのではないか
と思います。

【41203】Re:オートシェイプに設定された名義の変...
お礼  Pan  - 06/8/1(火) 19:52 -

引用なし
パスワード
   ▼Kein さん:

ありがとうございました。
オートシェイプの名前の定義もセルの範囲選択した名前の定義も同じ扱いができると思い、ついつい簡便な名前のボックスから名前を設定しました。
オートシェイプの方はそのやり方では使用に耐えなくなります。
セルの選択に関しては、挿入→名前→定義でする仕方と結果が同じに成っていますが…
Keinさんの説明よく分かりました。
これからもよろしくお願いします。

7103 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free