Conditional Format

  • Thread starter Thread starter spence
  • Start date Start date
S

spence

is it possible to apply conditional formatting to an auto
shape. i want the shape to only be visible when a
certain cell's conditions are met. i know i can do it
with a macro, but i don't have any macros in the workbook
rite now and i don't really want one just for this. TIA
 
Spence

I can not get this to run automatically but perhaps you
could run it after all the calculations.

Private Sub Worksheet_Calculate()
If Range("B3").Value >= 50 Then
ActiveSheet.Shapes("AutoShape 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 43
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Else
ActiveSheet.Shapes("AutoShape 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
Range("B3").Select
End Sub

Regards
Peter
 
Back
Top