[[20050524141354]]　『オートシェイプの名前について』（みみ）　ページの最後に飛ぶ

『オートシェイプの名前について』（みみ）

 こんにちは。オートシェイプの名前について教えて頂けないでしょうか。
 今、単語検索で探した　↓　を参考にして、

[[20050105085413]] 『選択項目を目立たせる方法を教えてください』

 川野鮎太郎さん作

 Sub 楕円1_Click()
  Dim MYRANGE  As Range
  Set MYRANGE = Selection
      ActiveSheet.Shapes("楕円1").Select
      With Selection.ShapeRange.Line
          .Visible = Not .Visible
      End With
      MYRANGE.Select
  End Sub

 のように指定セルにオートシェイプを切ったり貼ったりするマクロを使用しようと
 思ったのですが・・・。ただ、楕円を二重線に変えようと思い、自作の 直線オート
 シェイプの名前をマクロ内に入力したんですが・・。
 切って貼り付けるたびに、直線１　直線２・・・と名前が変わってしまい
 マクロが止まってしまいます。オートシェイプの名前（番号）を固定させるには
 どのようにすればいいのでしょうか？初歩的な質問ですみません。よろしくご教示
 ください。

 作った図形を選択した状態で、左上の名前ボックスの名前を書き換えれば、
 書き換えた名前で固定できますよ。
 途中にスペースは入れないほうが良いかもです。

 （川野鮎太郎）

 ああ！そうだったんですか・・・。名前ボックスは普段あまり気にしていま
 せんでした。
 今まではオートシェイプのマクロはちょっと・・と思ってましたが、
 これでいろいろと挑戦できそうです。ありがとうございました(^o^)
 （みみ）

コメント返信：

[ 一覧(最新更新順) ]

[[20050524141354]] 『オートシェイプの名前について』（みみ） ページの最後に飛ぶ

[[20050524141354]]　『オートシェイプの名前について』（みみ）　ページの最後に飛ぶ