[[20120714141939]] 『図形の表示を条件によって変える』(初心者) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『図形の表示を条件によって変える』(初心者)

表にオートシェイプで楕円をつけているのですが、
特定のセルにデータがない場合は表示されせないことは可能でしょうか。
もしくは色をかえて見えないようにすることなど。
よろしくお願いします。


配置された楕円を直接表示、非表示使用と思うとマクロになりますが、
リンク図を利用して間接的に別の場所に配置された画像を
表示したりすることは通常機能の範囲内で出来ます。

[[20050331113740]] 『社員証』(NOB) 

(みやほりん)(-_∂)b


 1個のオートシャープに対して
セルB2にデータがあれは表示,無しで非常にのマクロです。(夏子)

Sub test2()
If Cells(2, 2) = "" Then

ActiveSheet.Shapes(1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
Else
ActiveSheet.Shapes(1).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Line.Visible = msoTrue
End If

 Cells(2, 2).Select

End Sub


 シェイプの表示・非表示はシェイプ自体の表示・非表示でも切り替えが出来ます。

 '指定のセルの値によって指定のシェイプの表示・非表示を切り替える
 Sub test()
  Dim spmei As String
  Dim sp As Shape
   spmei = "spA" 'シェイプ名
   On Error Resume Next
   Set sp = ActiveSheet.Shapes(spmei) 'シェイプのセット/指定の名前のシェイプが存在しなければエラー
   Select Case ActiveSheet.Cells(1, 1).Value '指定のセルの値によって条件分岐
    Case 1 'セルの値が「1」の場合
     sp.Visible = True
    Case 2 'セルの値が「2」の場合
     sp.Visible = False
   End Select
   Set sp = Nothing
   On Error GoTo 0
 End Sub

 (カリーニン)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.