How can I list all of the properties of Conditional Formatting on a cell?

[MPW]

Hi All,

I am using Office 2003 in XP.

I would like to capture all the specs of a cell with conditional formatting.
Would I look for each one separately, or is there a way to extract them all at once?
I know how to capture the formulas of each condition but I seem to have a problem with looking for format changes if they do not exist.

If Range("A1").FormatConditions.Count <> 0 then
   For i = 1 to Range("A1").FormatConditions.Count
      With Range("B1")
         .FormatConditions.Add Type:= _
          Range("A1").FormatConditions(i).Type, _
          Formula1:=Range("A1").FormatConditions(i).Formula1
      end with
   Next i
End If

The code above will create the same formula driven conditions in Cell B1 that exists in Cell A1. What I am looking for are the rest of the components. For instance, if I try this with the font:

      .FormatConditions(i).Font.Name = _
       Range("A1").FormatConditions(i).Font.Name

It will crash. I am trying not to use an on error statement, I would rather test if each condition is present.

I know that the cell could be copied but I would like to know how to do it this way if possible.

MPW

 

[MPW]

No takers eh,

Well I did work through it and thought I should post what I found.
The biggest mistake I was making was that there is no property for the font name with conditional formatting!

Basically if the property is disabled when you try to manually create the conditional format then you probably can't do it through the code either. I am sure there are ways around it but that would be for another day.

The properties that I did find were:

With Range("A1").FormatConditions(i).Font
   .Bold
   .Italic
   .Underline
   .ColorIndex
End With
With Range("A1").FormatConditions(i)
   .Interior.ColorIndex
   .Borders.LineStyle
   .Borders.ColorIndex
End With

I also found that there are 2 Types of conditions so I tested to see which one was needed and added the operator if needed.