yoshifuku回答ポイント 200ptウォッチ

ExcelのVBAで、オートシェイプ（直線）を、条件により表示・非表示を切り替える方法をお伺い致します。

今、リンク先の通り、8箇所にオートシェイプ（直線）があります。左上から順に、
J25が空白ならばオートシェイプ（直線）を表示、空白でないならば非表示
J32が（以下同じ）
J40が（以下同じ）
J48が（以下同じ）
AB30が（以下同じ）
AB44が（以下同じ）
CA46が（以下同じ）
というようなことを実現したいです。

初心者質問で申し訳ないことかぎりですが、お力いただければ幸いです。
どうぞよろしくお願い致します。

https://drive.google.com/drive/folders/0BzkvwuFCJtLEcU9VcXBBbzF4N3M?usp=sharing

• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• cx202017/04/04 01:01:37

  満足100pt

  ざっくりとですが、以下のような感じでしょうか。
  J25が空白なら斜線を表示し、値が入っていたら斜線を非表示にするサンプルです。
  

  Private Sub Worksheet_Change(ByVal Target As Range)
      If Range("J25").Value = "" Then
          ActiveSheet.Shapes.Range(Array("斜線1")).Line.Visible = msoTrue
      Else
          ActiveSheet.Shapes.Range(Array("斜線1")).Line.Visible = msoFalse
      End If
  End Sub
  

  
  

  オートシェイプのオブジェクト名については、シートの上部にある「名前ボックス」で確認できるかと思います。
  

  スター

  • 

    1件のコメントを見る

  • yoshifuku 2017/04/04 19:59:32

    完璧に解決できました。
    感謝致します。

    スター

きむむ2017/04/04 11:45:39

満足100pt

　セル内容を変更する度にマクロ起動するのではマクロ起動方法にもよりますが、運用性が如何かと思いました。
　ＶＢＡを標準モジュールに記述ではなくシートモジュールに記述することで、セル内容が変更されるとほぼ同時に斜線のオン／オフが出来るように考えてみました。

提示されたサンプルの場合なら、以下の二つのプロシジャをそのまままとめて、当該ワークシートのシートモジュールに転記すれば、そのまま動作すると思います。




Private Sub Worksheet_Change(ByVal Target As Range)
'対象セルが変更されたときに斜線のオン／オフを行う
    If Target.Cells(1).Address = "$J$25" Then
        Call myLineCtrl(Target, "斜線1")
    ElseIf Target.Cells(1).Address = "$J$32" Then
        Call myLineCtrl(Target, "斜線2")
    ElseIf Target.Cells(1).Address = "$J$40" Then
        Call myLineCtrl(Target, "斜線3")
    ElseIf Target.Cells(1).Address = "$J$48" Then
        Call myLineCtrl(Target, "斜線4")
    ElseIf Target.Cells(1).Address = "$J$56" Then
        Call myLineCtrl(Target, "直線コネクタ 4")
    ElseIf Target.Cells(1).Address = "$AB$30" Then
        Call myLineCtrl(Target, "斜線5")
    ElseIf Target.Cells(1).Address = "$AB$44" Then
        Call myLineCtrl(Target, "斜線6")
    ElseIf Target.Cells(1).Address = "$CA$46" Then
        Call myLineCtrl(Target, "斜線7")
    'ElseIf Target.Cells(1).Address = "$??$??" Then
    '    Call myLineCtrl(Target, "斜線???")
    '
    '
    '
    End If
End Sub


Sub myLineCtrl(prmTarget As Range, prmShapeName)
'斜線の表示オン／オフを行うサブプロシジャ
    If prmTarget.Cells(1).Value = "" Then
        '当該セルが値が入っていないなら斜線を表示する
        ActiveSheet.Shapes(prmShapeName).Visible = True
    Else
        '当該セルに値が入っていたら斜線を表示しない
        ActiveSheet.Shapes(prmShapeName).Visible = False
    End If
End Sub



補足
　はじめのプロシジャのIf～Call～のセットで、判定対象とするセルの絶対アドレスと、そのときに制御されるシェイプ名をセットで指定します。
対象とするセルが結合セルの場合はその１番目（左上隅）のセルのアドレスを指定します。
シートモジュール　：
　ＶＢＡエディタ画面のVBProjectのシート名の部分をダブルクリックするとモジュール画面が開きます。
以上、お試しください。

スター

• 

  1件のコメントを見る

• yoshifuku 2017/04/04 19:59:48

  明日試してみます。ありがとうございます！

  スター
• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2017-04-03 19:57:44

終了日時

2017-04-10 20:00:03

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 小池百合子氏　落選運動を郷原弁護士が始めた様です。 https://www.youtube.com/watch?v=J7wU8_3ZBho　➡ク…匿名質問者2111日前
• 写真を加工するアプリで加工した写真にそのアプリのロゴが入っていて気づかずTシャツなどにして売ると商品…decunli112日前
• 幻想交響曲のライブ録音は拍手があったほうがいいですかなかった方が良いですか　 …山田生活18時間前
• 交響曲のライブ録音ではあ？ てゆうくらいの雑音が収録されているcd教えて下さい…山田生活117時間前
• 今、ネットの友達とアニメを作っています。 その際に登場するキャラクターに音声を入れたいのですが、さす…匿名質問者116時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ