22.04.2004, 12:11 | #1 |
Участник
|
comRows.HorizontalAlignment()
необходимо указать alignment в ячейках
в VB делается просто : comRows.HorizontalAlignment = xlCenter; а в Аксапте где взять эту константу или перечень ? |
|
22.04.2004, 12:42 | #2 |
Участник
|
comRange.HorizontalAlignment(-4108);
-4108 - по центру. |
|
22.04.2004, 13:33 | #3 |
Участник
|
а где можно посмотреть все значения ?
а то вдруг по какому-нибудь краю придется выравнивать ... |
|
22.04.2004, 13:38 | #4 |
Участник
|
запиши макрос в Excel при выравнивании по всевозможным краям. затем зайди в редактор, поставь брэкпоинт, запусти макрос, наведи мышью на нужную константу - получишь значение .
|
|
22.04.2004, 14:13 | #5 |
Участник
|
благодарю
макрос записать догадался ( чтобы найти свойства ) а вот отладить его - нет |
|
23.04.2004, 12:03 | #6 |
Administrator
|
А еще можно посмотреть в Аксапте макрос Excel. Там многие константы (в том числе и xlCenter) уже определены.
__________________
Not registered yet? Register here! Have comments, questions, suggestions or anything else regarding our web site? Don't hesitate, send them to me |
|
23.04.2004, 16:04 | #7 |
Участник
|
Цитата:
А еще можно посмотреть в Аксапте макрос Excel. Там многие константы (в том числе и xlCenter) уже определены.
|
|
24.04.2004, 10:40 | #8 |
Участник
|
/*
* Excel application names */ #define.EXCEL('Excel.Application') #define.XLMAIN('XLMAIN') /* * Excel file extensions */ #define.XLS('*.xls') /* * Excel style names */ #define.STYLE_MANDATORY('AXAPTA_Mandatory') #define.STYLE_FIELDNAME('AXAPTA_FieldName') #define.STYLE_FIELDCOUNT('AXAPTA_FieldCount') #define.STYLE_BOLD('AXAPTA_Bold') /* * Search constants */ #define.xlFormulas(-4123) #define.xlValues(-4163) #define.xlComments(-4144) #define.xlByRows(1) #define.xlByColumns(2) #define.xlPrevious(2) #define.xlNext(1) #define.xlWhole(1) #define.xlPart(2) /* * Conditional format operator */ #define.XlBetween(1) #define.XlEqual(3) #define.XlGreater(5) #define.XlGreaterEqual(7) #define.XlLess(6) #define.XlLessEqual(8) #define.XlNotBetween(2) #define.XlNotEqual(4) /* * Format condition types */ #define.XlCellValue(1) #define.XlExpression(2) /* * Range value data type */ #define.xlRangeValueDefault(10) #define.xlRangeValueXMLSpreadsheet(11) #define.xlRangeValueMSPersistXML(12) /* * Excel cell values */ #define.QuotationMark('"') #define.ExcelZero('"0"') #define.LabelRow(1) #define.SheetInfoRow(2) #define.LanguageColumn(3) #define.TypeRow(3) #define.EnumRow(4) #define.NameRow(5) #define.ExcelTotalRange("A1:IV65536") #define.ExcelDataRange("A6:IV65536") /* * Alignment constants */ #define.xlRight(-4152) #define.xlLeft(-4131) #define.xlHAlignJustify(-4130) #define.xlHAlignDistributed(-4117) #define.xlCenter(-4108) #define.xlHAlignGeneral(1) #define.xlHAlignFill(5) #define.xlHAlignCenterAcrossSelection(7) /* * Text Orientation */ #define.msoTextOrientationHorizontal(1) /* * Border styles */ #define.fmBorderStyleNone(0) #define.fmBorderStyleSingle(1) /* * Scrollbars */ #define.fmScrollBarsNone(0) #define.fmScrollBarsHorizontal(1) #define.fmScrollBarsVertical(2) #define.fmScrollBarsBoth(3) /* * File formats */ #define.xlCurrentPlatformText(-4158) #define.xlWorkbookNormal(-4143) #define.xlSYLK(2) #define.xlWKS(4) #define.xlWK1(5) #define.xlCSV(6) #define.xlDBF2(7) #define.xlDBF3(8) #define.xlDIF(9) #define.xlDBF4(11) #define.xlWJ2WD1(14) #define.xlWK3(15) #define.xlExcel2(16) #define.xlTemplate(17) #define.xlAddIn(18) #define.xlTextMac(19) #define.xlTextWindows(20) #define.xlTextMSDOS(21) #define.xlCSVMac(22) #define.xlCSVWindows(23) #define.xlCSVMSDOS(24) #define.xlIntlMacro(25) #define.xlIntlAddIn(26) #define.xlExcel2FarEast(27) #define.xlWorks2FarEast(28) #define.xlExcel3(29) #define.xlWK1FMT(30) #define.xlWK1ALL(31) #define.xlWK3FM3(32) #define.xlExcel4(33) #define.xlWQ1(34) #define.xlExcel4Workbook(35) #define.xlTextPrinter(36) #define.xlWK4(38) #define.xlExcel5(39) #define.xlExcel7(39) #define.xlWJ3(40) #define.xlWJ3FJ3(41) #define.xlUnicodeText(42) #define.xlExcel9795(43) #define.xlHTML(44) /* * Access mode (XlSaveAsAccessMode) */ #define.xlNoChange(1) #define.xlShared(2) #define.xlExclusive(3) /* * Conflict Resolution (XlSaveConflictResolution) */ #define.xlUserResolution(1) #define.xlLocalSessionChanges(2) #define.xlOtherSessionChanges(3) /* * Origin (XlPlatform) */ #define.xlMacintosh(1) #define.xlWindows(2) #define.xlMSDOS(3) /* * Excel sheet type (XlSheetType) */ #define.xlChart(-4109) #define.xlWorksheet(-4167) #define.xlExcel4MacroSheet(3) #define.xlExcel4IntlMacroSheet(4) /* * Excel Range format types (XLRangeAutoFormat) */ #define.xlRangeAutoFormatClassic1(1) |
|
26.04.2004, 09:46 | #9 |
Участник
|
Ну, раз пошла такая пьянка , то вот 1266 констант от Excel 97. Неупорядоченные, правда.
|
|
26.04.2004, 12:13 | #10 |
Administrator
|
Цитата:
Изначально опубликовано Владимир Максимов
В какой версии Axapta? Что-то в Axapta 2.5 я такого макроса не нашел
__________________
Not registered yet? Register here! Have comments, questions, suggestions or anything else regarding our web site? Don't hesitate, send them to me |
|