How to obtain superscript and mixed font info when read from Excel?
 

I am reading contents of an Excel file from a VB6 program. I need find
out the superscript and mixed font format info of each cell (such as
"Current Gain (A/cm2)", "Sheet Resistance (W/sq)", that 2 is
superscript and W is Omega in Symbol font). When I use, for example,
Range(strRange).Font.Superscript or Range(strRange).Font.Name, it
returns Null.

Any help will be greatly appreciated.

How to obtain superscript and mixed font info when read from Excel?
 

It's always best to read any Font properties to a Variant as it can accept a
Null in case of mixed formats. Eg

v = cell.font.superscript
If IsNull(v) then ' must be mixed
redim arr(1 to len(cell)) ' could be As boolean for Superscript
for i = 1 to len(cell)
arr(i) = cell.characters(i,1).superscript
etc

Regards,
Peter T

wrote in message
...
I am reading contents of an Excel file from a VB6 program. I need find
out the superscript and mixed font format info of each cell (such as
"Current Gain (A/cm2)", "Sheet Resistance (W/sq)", that 2 is
superscript and W is Omega in Symbol font). When I use, for example,
Range(strRange).Font.Superscript or Range(strRange).Font.Name, it
returns Null.

Any help will be greatly appreciated.

How to obtain superscript and mixed font info when read from Excel?
 

Don't forget to read the responses to yesterday's post.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


wrote in message
...
I am reading contents of an Excel file from a VB6 program. I need find
out the superscript and mixed font format info of each cell (such as
"Current Gain (A/cm2)", "Sheet Resistance (W/sq)", that 2 is
superscript and W is Omega in Symbol font). When I use, for example,
Range(strRange).Font.Superscript or Range(strRange).Font.Name, it
returns Null.

Any help will be greatly appreciated.

How to obtain superscript and mixed font info when read fromExcel?
 

Thanks, Peter and Jon.