| |
▼かっちゃん さん：
おはようございます。
> いつも利用させていただいています。適切なアドバイスありがとうございます。
>
> 今回は「図形描画」の件で質問させていただきます。
>シート上で、直線を引いたりそれを消したりしていると、その直線は「直線９６」とか｢直線１０２」とかになっています。シート上に2本しかないのに、これまでの履歴が残っているのです。今は
> For J = 50 To 200
> DelLine = "Line " & J
> ActiveSheet.Shapes(DelLine).Select
> Selection.Delete
> Next J
>で消していますが、使用するにつれてFor分の範囲を大きくしなければなりません。
>それで、
> １ 現在使用している直線の番号（直線９６であれば９６のこと）がわかる方法。
> ２ 直線を引くとき、番号が１（または０）から始まるように、リセットする方法。
> ３ または、もっと良い方法
>が、ありましたらお教えください。
>よろしくお願いいたします。
アクティブシート上に引いてあるラインを削除すればよい
というのであれば、
ActiveSheet.Lines.Delete
で名前を意識せずにすみますが、意味が違いますか？
|
|
ichinose
- 04/9/3(金) 6:53 -
