[CDR X5-X8] Таблица с пронумерованными ячейками

[NiGer1]

Как автоматически создать такую таблицу?
Вроде раньше делал, а как не могу вспомнить...

 

[MrDesigner]

Про автомат ничего не нашёл, но можно вытянуть таблицу из ворда / эксела:

With CorelDRAW, you can create tables by importing content from Quattro Pro (.qpw) and Microsoft Excel (.xls) spreadsheets. You can also import tables created in a word-processing application, such as WordPerfect or Microsoft Word.

 

[NiGer1]

Вот оно!
Точно ведь из экселя импортировал.

 

[izrukvruki]

Макрос можно написать для расстановки цифр (задаешь кол-во столбцов и строк), сама таблица рисуется инструментом сетка...

 

[lev]

Можно и инструмент "Таблица" использовать, а не "сетка".
Да и автоматизировать в чем-то попроще будет

Sub Tab1_12()
  Dim s1 As Shape
  Set s1 = ActiveLayer.CreateCustomShape("Table", 1, 10, 5, 3, 3, 4)
  For i = 1 To 3
    For j = 1 To 4
      s1.Custom.Cell(i, j).TextShape.Text.Story = (j - 1) * 3 + i
    Next j
  Next i
End Sub

 

[NiGer1]

@lev, я макросы ещё не ковырял. Что нужно поправить в этом коде для получения таблицы на 200 ячеек (10 строк, 20 столбцов)?
Дальше сам попробую разобраться ))

 

[_MBK_]

Кэп удивленно подсказывает, что 3 и 4 надо заменить на 10 и 20

 

[NiGer1]

Понял. Сначала не все значения поправил:

Sub Tab1_12()
  Dim s1 As Shape
  Set s1 = ActiveLayer.CreateCustomShape("Table", 1, 10, 5, 3, 15, 20)
  For i = 1 To 15
    For j = 1 To 20
      s1.Custom.Cell(i, j).TextShape.Text.Story = (j - 1) * 15 + i
    Next j
  Next i
End Sub

Сейчас с размерами и шрифтами буду разбираться.