I don't know how your getting the number 50.
Iif it is from a formula result, right click on the Worksheet tab View Code: and paste this code in: This assumes there are 2 pictures on the sheet. one named "Pic1" and another named "Pic2". Change these names accordingly, either in the code or the pitures on the sheet. This also assumes that the cell that will have the 50 is cells B1 (Row1,Col2 = Cells(1,2)) change this to the correct cell.
Option Explicit
Private Sub Worksheet_Calculate()
If Cells(1, 2).Value = 50 Then
ActiveSheet.Shapes("Pic1").Visible = True
ActiveSheet.Shapes("Pic2").Visible = False
Else
If Cells(1, 2).Value 50 Then
ActiveSheet.Shapes("Pic1").Visible = False
ActiveSheet.Shapes("Pic2").Visible = True
Else
ActiveSheet.Shapes("Pic1").Visible = False
ActiveSheet.Shapes("Pic2").Visible = False
End If
End If
End Sub
__________________
Justin Labenne
www.jlxl.net
Last edited by JustinLabenne : June 14th 05 at 12:03 AM
Reason: Addition
|