OLE2 Excel Разный шрифт в одной ячейке

vet

Как работать со шрифтом всей ячейки Excel известно.
Подскажите как средствами ABAP (OLE) внутри одной ячейки Excel сделать часть текста жирным, а другую часть не жирным.
На VBA это выглядит примерно так

Code:

Range("D3").Select
    ActiveCell.FormulaR1C1 = "HELP HELP HELP"
    With ActiveCell.Characters(Start:=1, Length:=4).Font
         .FontStyle = "полужирный"
    End With
    With ActiveCell.Characters(Start:=5, Length:=14).Font
         .FontStyle = "обычный"
    End With

<Yuri>

А что мешает сделать то же на абапе ?

vet

А как это ABAP-ом сделать?

Пока я использую макрос с параметрами,

Code:

Sub Макрос1(P1 As Integer, P2 As Integer, P3 As Integer, P4 As Integer)
    With ActiveCell.Characters(Start:=P1, Length:=P2).Font
        .Name = "Arial Cyr"
        .FontStyle = "обычный"
    End With
    With ActiveCell.Characters(Start:=P3, Length:=P4).Font
        .FontStyle = "полужирный"
    End With
End Sub

который запускаю ABAP-ом.

Code:

CALL METHOD OF H_EXCEL 'Run' EXPORTING #1 = 'Макрос2' #2 = 1 #3 = 4 #4 = 7 #5 = 14.

<Yuri>

Что-то типа такого:

Code:

DATA: ACTIVECELL TYPE OLE2_OBJECT.
DATA: FONT TYPE OLE2_OBJECT.
DATA: CHARACTERS TYPE OLE2_OBJECT.

CALL METHOD OF H_EXCEL 'ActiveCell' = ACTIVECELL.

CALL METHOD OF ACTIVECELL 'Characters' = CHARACTERS
        EXPORTING #1 = 1
                          #2 = 4.

CALL METHOD OF CHARACTERS 'Font' = FONT.
SET PROPERTY OF FONT 'FontStyle' = 'полужирный'.
...
CALL METHOD OF ACTIVECELL 'Characters' = CHARACTERS
        EXPORTING #1 = 5
                          #2 = 14.

CALL METHOD OF CHARACTERS 'Font' = FONT.
SET PROPERTY OF FONT 'FontStyle' = 'обычный'.

...

vet

Спасибо. Получилось.

vet

Аналогично можно сделать шрифт разным в одной ячейке используя

Code:

  SET PROPERTY OF H_FONT 'Strikethrough' = 1 .  "зачёркнутый
  SET PROPERTY OF H_FONT 'Superscript' = 1 .    "надстрочный
* SET PROPERTY OF H_FONT 'Subscript' = 1 .      "подстрочный

Но пользователи хотят именно подчёркивание.
Макросом сделать можно так:

Code:

Sub Макрос1(P1 As Integer, P2 As Integer, P3 As Integer, P4 As Integer)
    With ActiveCell.Characters(Start:=P1, Length:=P2).Font
        .Underline = xlUnderlineStyleNone
    End With
    With ActiveCell.Characters(Start:=P3, Length:=P4).Font
        .Underline = xlUnderlineStyleSingle
    End With
End Sub

Подскажите пжлста как ABAP-ом подчёркивать часть символов в ячейке?

<Yuri>

Code:

constants: xlUnderlineStyleSingle TYPE i VALUE 2.
* Значение xlUnderlineStyleSingle ищем в VBA
...
SET PROPERTY OF font 'Underline' = xlUnderlineStyleSingle.
...

Правила форума

OLE2 Excel Разный шрифт в одной ячейке

Кто сейчас на конференции