Indexes
o Property AnchorPoint( | ) As |
MyTable.AnchorPoint = CatTableBottomLeft
o Property Angle( | ) As |
PI = 3.1415926535 X = MyTable.Angle = PI/2
o Property ComputeMode( | ) As |
MyTable.ComputeMode = CatTableOFF
o Property Leaders( | ) As (Read Only) |
Dim LeaderCollection As DrawingLeaders Set LeaderCollection = MyTable.Leaders
o Property NumberOfColumns( | ) As (Read Only) |
oNbCol = MyTable.NumberOfColumns
o Property NumberOfRows( | ) As (Read Only) |
oNbRow = MyTable.NumberOfRows
o Property x( | ) As |
X = MyTable.x
o Property y( | ) As |
NewYCoordinate = 100 MyTable.y = NewYCoordinate
o Sub AddColumn( | iCol) |
iCol = 0 MyTable.AddColumn iCol
o Sub AddRow( | iRow) |
iRow = 2 MyTable.AddRow iRow
o Func GetCellAlignment( | iRow, | |
iCol) As |
iRow = 1 iCol = 3 oAlign = MyTable.GetCellAlignment(iRow, iCol)
o Func GetCellBorderType( | iRow, | |
iCol) As |
iRow = 1 iCol = 3 oType = MyTable.GetCellBorderType(iRow, iCol)
o Func GetCellName( | iRow, | |
iCol) As |
iRow = 1 iCol = 2 oName = MyTable.GetCellName(iRow, iCol)
o Func GetCellObject( | iRow, | |
iCol) As |
iRow = 1 iCol = 3 Set MyText = MyTable.GetCellObject(iRow, iCol)
o Func GetCellString( | iRow, | |
iCol) As |
iRow = 1 iCol = 4 oString = MyTable.GetCellString(iRow, iCol)
o Sub GetCellsMerge( | oListOfMergeCells) |
nbrow = MyTable.NumberOfRows nbcol = MyTable.NumberOfColumns sizetab = nbrow*nbcol ReDim infoMerge (sizetab-1) MyTable.GetCellsMerge(oListOfmergeCells)
o Func GetColumnSize( | iCol) As |
iCol = 1 oColSize = MyTable.GetColumnSize(iCol)
o Sub GetMergeInfos( | iRow, | |
iCol, | ||
oFirstRow, | ||
oFirstCol, | ||
oNbRow, | ||
oNbCol) |
MyTable.GetMergeInfos 2, 3, oFirstRow, oFirstCol, oNbRow, oNbCol
o Func GetRowSize( | iRow) As |
iRow = 1 oRowSize = MyTable.GetRowSize(iRow)
o Sub InvertMode( | iMode) |
MyTable.InvertMode CatInvertColumn
o Sub MergeCells( | iFirstRow, | |
iFirstCol, | ||
iNbRowMerge, | ||
iNbColMerge) |
MyTable.MergeCells 2, 3, 3, 3
o Sub Move( | iDeltaX, | |
iDeltaY) |
DeltaX = 20.0 DeltaY = 0.0 MyTable.Move DeltaX, DeltaY
o Sub RemoveColumn( | iCol) |
iCol = 1 MyTable.RemoveColumn iCol
o Sub RemoveRow( | iRow) |
iRow = 3 MyTable.RemoveRow iRow
o Sub Rotate( | iDeltaAngle) |
PI = 3.1415926535 MyTable.Rotate PI/4
o Sub SetCellAlignment( | iRow, | |
iCol, | ||
iAlign) |
iRow = 3 iCol = 2 MyTable.SetCellAlignment iRow, iCol, CatTableBottomLeft
o Sub SetCellBorderType( | iRow, | |
iCol, | ||
iType) |
iRow = 3 iCol = 2 MyTable.SetCellBorderType iRow, iCol, CatTableRight
o Sub SetCellName( | iRow, | |
iCol, | ||
iName) |
iRow = 1 iCol = 2 iName = "Cell 2" MyTable.SetCellName iRow, iCol, iName
o Sub SetCellObject( | iRow, | |
iCol, | ||
iText) |
iRow = 1 iCol = 3 MyTable.SetCellObject iRow, iCol, iText
o Sub SetCellString( | iRow, | |
iCol, | ||
iString) |
iRow = 3 iCol = 2 iString = "Title" MyTable.SetCellString iRow, iCol, iString
o Sub SetColumnSize( | iCol, | |
iColSize) |
iCol = 1 iColSize = 20 MyTable.SetColumnSize iCol, iColSize
o Sub SetRowSize( | iRow, | |
iRowSize) |
iRow = 1 iRowSize = 20 MyTable.SetRowSize iRow, iRowSize
o Sub UnMergeCells( | iRow, | |
iCol) |
MyTable.UnMergeCells 3, 5
Copyright © 2006, Dassault Systèmes. All rights reserved.