[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『図形の表示を条件によって変える』(初心者)
表にオートシェイプで楕円をつけているのですが、
特定のセルにデータがない場合は表示されせないことは可能でしょうか。
もしくは色をかえて見えないようにすることなど。
よろしくお願いします。
[[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.