Greetings,

I'm not sure if I'm posting this to the correct newsgroup or not, so feel
free to redirect me to the appropriate place if necessary. At any rate, I am
receiving the error, "Unable to set the underline property of the font class"
in an Access module using the Excel code below:

ExcelSheet.Application.Cells(1, 1).Font.Underline = xlUnderlineStyleSingle

The following line of code "does" work, however:

ExcelSheet.Application.Cells(1, 1).Font.Bold = True

Do you see anything wrong with the way I am attempting to set the underline
property? Thanks in advance!
--
Sherwood

I see nothing wrong with your code, assuming you have properly assigned the
ExcelSheet object variable and you are properly pointing to the active
worksheet. Possible issues:
- Are you positive that the cell is unprotected at the time you are trying
to make the change?
- Is there anything else happening in the workbook at the time you are
running that line of code that might have the sheet in a temporarily
"uneditable" state?

If you pause your code just before executing the troublesome line, what
happens if you try typing both the .Underline=xlUnderlineStyleSingle and the
..Bold = True in the immediate pane? That way you know you are trying them
under the exact same conditions. I would be surprised if you can set one
font property but not the other under the exact same conditions.


"Sherwood" wrote:

Greetings,

I'm not sure if I'm posting this to the correct newsgroup or not, so feel
free to redirect me to the appropriate place if necessary. At any rate, I am
receiving the error, "Unable to set the underline property of the font class"
in an Access module using the Excel code below:

ExcelSheet.Application.Cells(1, 1).Font.Underline = xlUnderlineStyleSingle

The following line of code "does" work, however:

ExcelSheet.Application.Cells(1, 1).Font.Bold = True

Do you see anything wrong with the way I am attempting to set the underline
property? Thanks in advance!
--
Sherwood

I did type in the following line of code in the Immediate Pane and received
the same error. I did check the cell ("A1") and it is definitely unprotected
(this is a new worksheet that I am creating).

ExcelSheet.Application.Cells(1, 1).Font.Underline = xlUnderlineStyleSingle

What finally worked for me was using "True" instead of
"xlUnderlineStyleSingle". This produced a single underline for the specified
cell. Just wanted to let you know how I resolved it. Thanks again for your
help.

Sherwood

"K Dales" wrote:

I see nothing wrong with your code, assuming you have properly assigned the
ExcelSheet object variable and you are properly pointing to the active
worksheet. Possible issues:
- Are you positive that the cell is unprotected at the time you are trying
to make the change?
- Is there anything else happening in the workbook at the time you are
running that line of code that might have the sheet in a temporarily
"uneditable" state?

If you pause your code just before executing the troublesome line, what
happens if you try typing both the .Underline=xlUnderlineStyleSingle and the
.Bold = True in the immediate pane? That way you know you are trying them
under the exact same conditions. I would be surprised if you can set one
font property but not the other under the exact same conditions.


"Sherwood" wrote:

Greetings,

I'm not sure if I'm posting this to the correct newsgroup or not, so feel
free to redirect me to the appropriate place if necessary. At any rate, I am
receiving the error, "Unable to set the underline property of the font class"
in an Access module using the Excel code below:

ExcelSheet.Application.Cells(1, 1).Font.Underline = xlUnderlineStyleSingle

The following line of code "does" work, however:

ExcelSheet.Application.Cells(1, 1).Font.Bold = True

Do you see anything wrong with the way I am attempting to set the underline
property? Thanks in advance!
--
Sherwood

Hi Sherwood,

XlUnderlineStyle is an Excel constant, a long 2. If you set a reference to
Excel (vbe - tools - references) I suspect it should work. Otherwise just
try the value 2.

ExcelSheet.Application.etc. seems odd, but if it works...

Regards,
Peter T

"Sherwood" wrote in message
...
I did type in the following line of code in the Immediate Pane and
received
the same error. I did check the cell ("A1") and it is definitely
unprotected
(this is a new worksheet that I am creating).

ExcelSheet.Application.Cells(1, 1).Font.Underline = xlUnderlineStyleSingle

What finally worked for me was using "True" instead of
"xlUnderlineStyleSingle". This produced a single underline for the
specified
cell. Just wanted to let you know how I resolved it. Thanks again for
your
help.

Sherwood

"K Dales" wrote:

I see nothing wrong with your code, assuming you have properly assigned
the
ExcelSheet object variable and you are properly pointing to the active
worksheet. Possible issues:
- Are you positive that the cell is unprotected at the time you are
trying
to make the change?
- Is there anything else happening in the workbook at the time you are
running that line of code that might have the sheet in a temporarily
"uneditable" state?

If you pause your code just before executing the troublesome line, what
happens if you try typing both the .Underline=xlUnderlineStyleSingle and
the
.Bold = True in the immediate pane? That way you know you are trying
them
under the exact same conditions. I would be surprised if you can set
one
font property but not the other under the exact same conditions.


"Sherwood" wrote:

Greetings,

I'm not sure if I'm posting this to the correct newsgroup or not, so
feel
free to redirect me to the appropriate place if necessary. At any
rate, I am
receiving the error, "Unable to set the underline property of the font
class"
in an Access module using the Excel code below:

ExcelSheet.Application.Cells(1, 1).Font.Underline =
xlUnderlineStyleSingle

The following line of code "does" work, however:

ExcelSheet.Application.Cells(1, 1).Font.Bold = True

Do you see anything wrong with the way I am attempting to set the
underline
property? Thanks in advance!
--
Sherwood