Skip to main content

[archive] translation?

  • September 14, 2007
  • 10 replies
  • 0 views
D

[Migrated content. Thread originally posted on 13 September 2007]

Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

77 olRange HANDLE OF RANGE.
...
INQUIRE olWrkSh Range("A1:O1") IN olRange.
MODIFY olRange @Font::Size = 8.


I figure it should work

    10 replies

    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    Its late, I'm tired, just wanted to change the font size of cells in Excel. My syntax is obviously wrong - can anyone help?

    MODIFY olWrkSh Range("A1")::ColumnWidth = 20.
    MODIFY olWrkSh Range("B1:O1")::ColumnWidth = 12.
    MODIFY olWrkSh Font::size = 8

    Column widths are fine, but it objects to the font::size line.
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    Its late, I'm tired, just wanted to change the font size of cells in Excel. My syntax is obviously wrong - can anyone help?

    MODIFY olWrkSh Range("A1")::ColumnWidth = 20.
    MODIFY olWrkSh Range("B1:O1")::ColumnWidth = 12.
    MODIFY olWrkSh Font::size = 8

    Column widths are fine, but it objects to the font::size line.
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    Its late, I'm tired, just wanted to change the font size of cells in Excel. My syntax is obviously wrong - can anyone help?

    MODIFY olWrkSh Range("A1")::ColumnWidth = 20.
    MODIFY olWrkSh Range("B1:O1")::ColumnWidth = 12.
    MODIFY olWrkSh Font::size = 8

    Column widths are fine, but it objects to the font::size line.
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    This is probably because Font conflicts with the reserved word FONT in ACUCOBOL-GT.
    Try prefix it with @ and you should be all set:
    MODIFY olWrkSh @Font::Size = 8
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    This is probably because Font conflicts with the reserved word FONT in ACUCOBOL-GT.
    Try prefix it with @ and you should be all set:
    MODIFY olWrkSh @Font::Size = 8
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    I had tried this before, if I use the following source lines;

    INQUIRE olWrkBk Worksheets::Item(1) IN olWrkSh.
    MODIFY olWrkSh Range("A1")::ColumnWidth = 20.
    MODIFY olWrkSh Range("B1:O1")::ColumnWidth = 12.
    MODIFY olWrkSh @Font::Size = 8.

    I get the following compile error

    SOURCE\\GL19EX.cbl, line 454: Undefined data item: @FONT
    SOURCE\\GL19EX.cbl, line 454: Verb expected, :: found

    with MODIFY olWrkSh @Font::Size = 8.

    I get the following compile error

    SOURCE\\GL19EX.cbl, line 454: identifier expected, :: found
    SOURCE\\GL19EX.cbl, line 454: Verb expected, :: found
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    I had tried this before, if I use the following source lines;

    INQUIRE olWrkBk Worksheets::Item(1) IN olWrkSh.
    MODIFY olWrkSh Range("A1")::ColumnWidth = 20.
    MODIFY olWrkSh Range("B1:O1")::ColumnWidth = 12.
    MODIFY olWrkSh @Font::Size = 8.

    I get the following compile error

    SOURCE\\GL19EX.cbl, line 454: Undefined data item: @FONT
    SOURCE\\GL19EX.cbl, line 454: Verb expected, :: found

    with MODIFY olWrkSh @Font::Size = 8.

    I get the following compile error

    SOURCE\\GL19EX.cbl, line 454: identifier expected, :: found
    SOURCE\\GL19EX.cbl, line 454: Verb expected, :: found
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    And as usual Gisle, it does work. Thank you.
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    And as usual Gisle, it does work. Thank you.
    D

    [Migrated content. Thread originally posted on 13 September 2007]

    Sorry, my mistake. I missed that Font is not a member of the WorkSheet class. So, if you do this:

    77 olRange HANDLE OF RANGE.
    ...
    INQUIRE olWrkSh Range("A1:O1") IN olRange.
    MODIFY olRange @Font::Size = 8.


    I figure it should work
    And as usual Gisle, it does work. Thank you.

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement