Conditional Formatting Icons
Coolness,
No conditional formatting will do that, but you could use a macro: this assumes that the sheet has
goldstar shape named "GoldStar", and the gold stars are placed on cells in column E that are greater
than 95...
Sub PutGoldStars()
Dim myCell As Range
Dim myR As Range
Dim mySh As Shape
Set mySh = ActiveSheet.Shapes("GoldStar")
Set myR = Range("E1:E100")
For Each myCell In myR
If myCell.Value 95 Then
On Error Resume Next
ActiveSheet.Shapes("Star" & myCell.Address).Delete
mySh.Copy
myCell.Select
ActiveSheet.Paste
Selection.ShapeRange.Left = myCell.Left
Selection.ShapeRange.Top = myCell.Top
Selection.Name = "Star" & myCell.Address
End If
Next myCell
End Sub
HTH,
Bernie
MS Excel MVP
"Coolness" wrote in message
...
Is there a way to create a custom Icon under conditional formatting. I am
trying to put a conditional format where if a number is between a certain
range it will assign a gold star to that cell. Is there any other way to do
this?
Thanks
|