エクセルで、セルＡ１が１のときオブジェクトの線を出すには？

エクセルで、
Ａ１が１のときは、
Ｈ１９，Ｇ２０、Ｆ２１にまたがる斜めの線（羅線ではなく、オブジェクトの線）が出て、
Ａ１が２のときは、
線が出ないようにするにはどのようにすればよいでしょうか？

No.1 回答者： web2525 回答日時： 2009/03/29 22:58

マクロで

If Range("A1") = 1 Then
ActiveSheet.Shapes("Line 1").Select
Selection.ShapeRange.Line.Visible = msoTrue
ElseIf Range("A1") = 2 Then
ActiveSheet.Shapes("Line 1").Select
Selection.ShapeRange.Line.Visible = msoFalse
End If
こんな感じでは？

この回答への補足

お答えいただきありがとうございます。
マクロの本文はわかりましたが、この後具体的にどうすればよいでしょうか？

補足日時：2009/03/30 05:45

No.2 回答者： web2525 回答日時： 2009/03/30 08:54

Private Sub Worksheet_Change(ByVal Target As Range)

シート内に変更が有った場合自動的に実行するマクロ
詳しい説明は
http://www.excel.studio-kazu.jp/mag2/backnumber/ …

このあたりで確認してください。

No.3 回答者： merlionXX 回答日時： 2009/03/30 09:20

もうオブジェクトの線は設置してあるのですね？

その線の名前が「直線 1」だとしたら、以下の手順をおためしください。

１．該当のワークシートのタブを右クリックし、「コードの表示」を選択。

２．出てきたVisual Basic Editor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Me.Shapes("直線 1").Visible = (Target.Value = 1)
End Sub

'*****ここより上までをコピペ*****

３．AltキーとF11キーを同時に押してワークシートへもどります。

この回答への補足

ありがとうございます。できました。
そこで、線Ａ、線Ｂという離れた場所に２本の線があって、
セルＡ１が１なら線Ａが出て、線Ｂは消える。
セルＡ１が２なら線Ａが消え、線Ｂが出る。
というようにするにはどうしたらよいでしょうか？

補足日時：2009/03/31 06:15

No.4 ベストアンサー 回答者： merlionXX 回答日時： 2009/04/01 10:59

No3 merlionXXです。

> というようにするにはどうしたらよいでしょうか？

「補足欄」に書かれてもこちらには通知がこないので追加質問に気づきませんでした。
追加質問があるなら今後は「お礼欄」に書いた方がいいですよ、回答者にメールで通知がきますから。

線Aというのが　"直線 1"
線Bというのが　"直線 2"　という名前であれば、以下のようにしてみてください。名前がちがっていたらコードを修正してください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Me.Shapes("直線 1").Visible = (Target.Value = 1)
Me.Shapes("直線 2").Visible = (Target.Value = 2)
End Sub

この回答へのお礼

お答えいただきありがとうございました。
私の質問が悪くて、やりたいことがうまくできませんでした。
また後で改めて質問します。

お礼日時：2009/04/03 22:27