Excel VBA質問箱 IV

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

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


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

42990 / 76735

←次へ　｜　前へ→


	【38806】Re:挿入した図の名前の付け方

Kein - 06/6/10(土) 17:05 -


	引用なし

	パスワード

シート上での位置が分かれば特定できるわけですから、図形の左上端のセル位置と
右下端のセル位置の範囲を示して、それに対して名前を付ける inputBox を出せば
良いと思います。即ち・・

Dim Obj As DrawingObject
Dim Ad As String, Nm As String

For Each Obj In ActiveSheet.DrawingObjects
　 Ad = Range(Obj.TopLeftCell, Obj.RightBottomCell).Address(0, 0)
　 Nm = inputBox(Ad & " の範囲にある図形に付ける名前を入力して下さい")
　 If Nm <> "" Then Obj.Name = Nm
Next

というようなコードで出来るはずです。

0 hits

▼

【38805】挿入した図の名前の付け方 マキチャン 06/6/10(土) 16:24