[ProPeller]

Столкнулся с проблемой при форматировани таблицы Excel средствами VLisp'а.
Вот чисто условный пример для того, чтобы задать толстые границы для ячеек небольшого диапазона

Код:

[Выделить все]

 
(vlax-put-property
 (vlax-get-property
  (vlax-get-property
   Sheet
   'Range
   "B2:D4"
  )
  'Borders
 )
 'Weight
 -4138
)

Проблема заключается в том, что внутренние границы диапазона тоже становятся утолщёнными. В справке MDSN сказано, что можно задавать толщину определенным границам, а именно

Use Borders(index), where index identifies the border, to return a single Border object. The following example sets the color of the bottom border of cells A1:G1. Index can be one of the following XlBordersIndex constants: xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal, or xlInsideVertical.

Т.е. как изменить это свойство на VBA, мне понятно, а вот как изменить это свойство при помощи VLisp, я пока не допёр. Может кто сталкивался с подобным и знает как выйти из положения?

[trir]

Может лучше на .NET перейти?

xlDiagonalDown = 5 xlDiagonalUp = 6 xlEdgeLeft = 7 xlEdgeTop = 8 xlEdgeBottom = 9 xlEdgeRight = 10 xlInsideVertical = 11 xlInsideHorizontal = 12

Код:

[Выделить все]

 (vlax-put-property
 (vlax-get-property
  (vlax-get-property
   Sheet
   'Range
   "B2:D4"
  )
  'Borders
 6 ;xlDiagonalUp
 )
 'Weight
 -4138
)

[ProPeller]

Сообщение от trir Может лучше на .NET перейти?

Я уже вот вот ))

Код: [Выделить все] (vlax-put-property (vlax-get-property (vlax-get-property Sheet 'Range "B2:D4" ) 'Borders 6 ;xlDiagonalUp ) 'Weight -4138 )

Так я уже пробовал. Не получается. Пишет мол, слишком много фактических параметров.

[Do$]

А что выдаст вот такое? :

Код:

[Выделить все]

 
(vlax-dump-object
(vlax-get-property
  (vlax-get-property
   Sheet
   'Range
   "B2:D4"
  )
  'Borders
 )
T
)

И вот такое:

Код:

[Выделить все]

 (vlax-dump-object
  (vlax-get-property
   Sheet
   'Range
   "B2:D4"
  )
T
)

[ProPeller]

Сообщение от Do$ А что выдаст вот такое? : Код: [Выделить все] (vlax-dump-object (vlax-get-property (vlax-get-property Sheet 'Range "B2:D4" ) 'Borders ) T ) И вот такое: Код: [Выделить все] (vlax-dump-object (vlax-get-property Sheet 'Range "B2:D4" ) T )

Дамп в данном случае не поможет, потому как к объекту Borders не применяются методы, соответственно и количества возможных аргументов мы оттуда не узнаем. У него есть только свойства, а Borders в свою очередь является свойством Range и возвращаемым значением является VLA указатель.

[Do$]

Хм, а Borders случаем не является коллекцией, по которой можно пройти с помощью vlax-for или получить элемент с помощью vla-item?

[ProPeller]

Сообщение от Do$ Хм, а Borders случаем не является коллекцией, по которой можно пройти с помощью vlax-for или получить элемент с помощью vla-item?

Ай красавчик! Спасибо тебе добрый человек!

[Do$]

Все получилось?

[ProPeller]

Сообщение от Do$ Все получилось?

Еще бы! Я просто зациклился на другом подходе и совсем упустил из виду, что это коллекция. Только в связи с особенностями Lisp'a придется делать 4 диапазона ячеек описывающих границы и у каждого утолщать определенную сторону
В общем, как было предложено выше, вскоре я перейду на .Net

[vasiliu33]

Сообщение от Do$ Хм, а Borders случаем не является коллекцией, по которой можно пройти с помощью vlax-for или получить элемент с помощью vla-item?

Все верно. Не преусердствуйте

[tujn08]

У меня не выходит.
Растолкуйте пожалуйста на пальцах, начиная с vlax-for или получить элемент с помощью vla-item на выше предложенном примере .

Проблема в толщине - тонкие все ок, а толстые ни как.

[Alex.gomel]

https://forums.autodesk.com/t5/visua...l/td-p/1362657