OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

オートシェイプ(直線)の番号<Excel97>

  • すぐに回答を!
  • 質問No.197240
  • 閲覧数476
  • ありがとう数1
  • 気になる数0
  • 回答数3
  • コメント数0

オートシェイプで直線を描画すると、左上の名前ボックスに「直線 1」という名前が付きます。
この番号をリセットあるいは任意の番号から始めるにはどうすればいいのでしょうか?
通報する
  • 回答数3
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全3件)

  • 回答No.1
レベル11

ベストアンサー率 27% (103/370)

その図形に対するいわば仮の名前ですので、名前ボックス上で名前を編集するしかないと思います。
その図形に対するいわば仮の名前ですので、名前ボックス上で名前を編集するしかないと思います。

  • 回答No.2
レベル8

ベストアンサー率 36% (12/33)

オートシェイプは作成した種類に限らず連続で番号がつきますので作る方(順番)により名前が変わってしまいますので、マクロを使うくらいしかないと思います。 例えば 1.直線を2本引きます。 2.A1,A2のセルにLine 1,Line 2(下記注参照)、B1,B2に変更後の名前を入れておく 3.下記のマクロを登録 Sub Change() Dim name1, name2 As String Di ...続きを読む
オートシェイプは作成した種類に限らず連続で番号がつきますので作る方(順番)により名前が変わってしまいますので、マクロを使うくらいしかないと思います。
例えば
1.直線を2本引きます。
2.A1,A2のセルにLine 1,Line 2(下記注参照)、B1,B2に変更後の名前を入れておく
3.下記のマクロを登録
Sub Change()
Dim name1, name2 As String
Dim cnt As Integer
For cnt = 1 To 2
name1 = ActiveSheet.Cells(cnt, 1).Value
name2 = ActiveSheet.Cells(cnt, 2).Value
ActiveSheet.Shapes(name1).Name = name2
Next cnt
End Sub
4.マクロの実行
これで変更されます。

注)直線を引くと名前ボックスには「直線 1」とついていますが、内部的には「Line 1」とついています。
次に引くと「Line 2」その次に楕円を引くと「Oval 3」のようになります。マクロになじみがないとちょっと難しいかもしれませんがよければ試してくださいね。
(ちなみにexcel2002で試しました)
お礼コメント
noname#1997

hiromuyさん、masaoz_2000さん、ありがとうございました。
質問にも書いていますが、オートシェイプの番号をリセットする方法を探していますので、他の方の回答を待って見ます。
投稿日時 - 2002-01-13 00:47:35
  • 回答No.3
レベル14

ベストアンサー率 33% (1403/4213)

Sheetを変えたらリセットされませんか? 内容の方をコピーしたシートで「新たな気持ちで」。 ただしシェイプはコピーしないよう、あらかじめ削除が必要かな? ...続きを読む
Sheetを変えたらリセットされませんか?

内容の方をコピーしたシートで「新たな気持ちで」。

ただしシェイプはコピーしないよう、あらかじめ削除が必要かな?
補足コメント
noname#1997

ありがとうございました。

しかし、この方法ではなく、オートシェイプの番号のみをリセットする方法はないものですかねぇ?
投稿日時 - 2002-01-15 16:24:44
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ