Re: VBA documentation

Anonymous — Wed, 24 Aug 2005 16:30:45 GMT

Unfortunatly not. I have made them work, but no electronic documentation exists for them. The best advice I can tell you is that it has been well programmed, thus making programming Tables pretty instinctive.

Guidelines I can give you are to look at the Excel object model for a sheet, since it is almost equivalent to Tables in AutoCAD.

The only limitation I have found is that you cannot realy manage Merged cells, tought you can merge them in VBA. The only way to get a mapping of all merged cells is to query all possible cell combinaison and Call the IsMergedCell function..... and if you are any good in math, you know that this can be a very resource costly procedure.

The rest of the Table object works like a charm.... but keep in mind that the developper documentation is not only "quite poor", but incomplete and erronous. The only help I have found were code snippets from the web.......

Hope this helps.... I will try to find you some code to start you with...

Re: VBA documentation

Anonymous — Wed, 24 Aug 2005 16:36:04 GMT

Here is a class module that can reproduce Tables. Look at the Create and Read function that shows exactly, as mutch as possible, to extract and recreate a Table.
(Paste this in a new Class named "Ci_Table")

'***********************************************************************
' Module: Ci_Table.cls
' Author: jgay
' Modified: April 28, 2005 1:02:53 PM
' Purpose:
' Comment:
' A table drawned in AutoCAD
' This class supports tables for every property except for merged cells.
' All cell-specific property is contained in an array
' ------------------------------------------------------------------
' A change is required in the VB6 definition in PowerDesigner
' In the "Object language property" window, click on:
' Profile
' Attribute
' Templates
' definition
' The 2 second entries need the "DIM" removed from them.
'***********************************************************************

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Ci_Table"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_Exposed = False
Attribute VB_PredeclaredId = False

Option Explicit

' Attributes
' Specifies the columns in the Table
Private mColumns As Integer
' Sets the uniform column width for all the columns in the table.
Private mColumnWidth As Variant
' Specifies the direction vector of the table
Private mDirection As Variant
' Specifies the Table flow direction
Private mFlowDirection As Long
' Returns and sets the header suppressed flag value.
Private mHeaderSuppressed As Boolean
' Specifies the Table height
Private mHeight As Double
' Specifies the horizontal distance between text and edge of cell
Private mHorzCellMargin As Double
' Specifies the insertion point of the table
Private mInsertionPoint As Variant
' Specifies the current layer of the object
Private mLayer As String
' Specifies the current linetype of the object
Private mLinetype As String
' Specifies the linetype scale factor of the object
Private mLinetypeScale As ACAD_NOUNITS
' Specifies the lineweight for the object
Private mLineweight As ACAD_LWEIGHT
' Sets the uniform row height for all the rows in the table.
Private mRowHeight As Variant
' Specifies the rows in the Table
Private mRows As Integer
' Specifies the style name of the Table
Private mStyleName As String
' Returns and sets the title suppressed flag value.
Private mTitleSuppressed As Boolean
' Specifies the vertical distance between text and edge of cell
Private mVertCellMargin As Double
' Specifies the visibility of an object or the application
Private mVisible As Boolean
' Specifies the Table width
Private mWidth As Double
' ' Specifies the space type of the document ex; ModelSpace, PaperSpace and Block Name.
Private mSpaceType As String
' ' Returns an array containing a sequence of values in the Table, starting with cell 1, 1 -- 1, 2 -- 1, 3 -- 2, 1 -- 2, 2 -- 2, 3 -- 3, 1 and so on....
Private mCellText() As Variant
Private mCellAlignment() As Variant
Private mCellBackgroundColorNone() As Variant
Private mCellGridLineweight() As Variant
Private mCellGridVisibility() As Variant
Private mCellTextHeight() As Variant
Private mCellStyleOverrides() As Variant
Private mCellType() As Variant
Private mCellTextRotation() As Variant
Private mCellBlockID() As Variant
Private mCellBlockScale() As Variant
Private mCellBlockRotation() As Variant
Private mCellBlockAttributeValue() As Variant
Private mCellFieldID() As Variant
Private mOutputXML As String
Private mCellBackgroundColor() As New CI_Color
Private mCellContentColor() As New CI_Color
Private mCellGridColor() As New CI_Color
Private mHandle As String
' Assigns a hyperlink to an object and displays the hyperlink name or description (if one is specified)
Public Hyperlink As New CI_Hyperlink
' Returns the true color of the object.
Public Color As New CI_Color
Public XRecord As New Ci_XRecord

' Properties
Public Property Get Columns() As Integer
Columns = mColumns
End Property

Public Property Let Columns(ByVal newColumns As Integer)
mColumns = newColumns
End Property

Public Property Get ColumnWidth() As Variant
ColumnWidth = mColumnWidth
End Property

Public Property Let ColumnWidth(ByVal newColumnWidth As Variant)
mColumnWidth = newColumnWidth
End Property

Public Property Get Direction() As Variant
Direction = mDirection
End Property

Public Property Let Direction(ByVal newDirection As Variant)
mDirection = newDirection
End Property

Public Property Get FlowDirection() As Long
FlowDirection = mFlowDirection
End Property

Public Property Let FlowDirection(ByVal newFlowDirection As Long)
mFlowDirection = newFlowDirection
End Property

Public Property Get HeaderSuppressed() As Boolean
HeaderSuppressed = mHeaderSuppressed
End Property

Public Property Let HeaderSuppressed(ByVal newHeaderSuppressed As Boolean)
mHeaderSuppressed = newHeaderSuppressed
End Property

Public Property Get Height() As Double
Height = mHeight
End Property

Public Property Let Height(ByVal newHeight As Double)
mHeight = newHeight
End Property

Public Property Get HorzCellMargin() As Double
HorzCellMargin = mHorzCellMargin
End Property

Public Property Let HorzCellMargin(ByVal newHorzCellMargin As Double)
mHorzCellMargin = newHorzCellMargin
End Property

Public Property Get InsertionPoint() As Variant
InsertionPoint = mInsertionPoint
End Property

Public Property Let InsertionPoint(ByVal newInsertionPoint As Variant)
mInsertionPoint = newInsertionPoint
End Property

Public Property Get Layer() As String
Layer = mLayer
End Property

Public Property Let Layer(ByVal newLayer As String)
mLayer = newLayer
End Property

Public Property Get Linetype() As String
Linetype = mLinetype
End Property

Public Property Let Linetype(ByVal newLinetype As String)
mLinetype = newLinetype
End Property

Public Property Get LinetypeScale() As ACAD_NOUNITS
LinetypeScale = mLinetypeScale
End Property

Public Property Let LinetypeScale(ByVal newLinetypeScale As ACAD_NOUNITS)
mLinetypeScale = newLinetypeScale
End Property

Public Property Get Lineweight() As ACAD_LWEIGHT
Lineweight = mLineweight
End Property

Public Property Let Lineweight(ByVal newLineweight As ACAD_LWEIGHT)
mLineweight = newLineweight
End Property

Public Property Get RowHeight() As Variant
RowHeight = mRowHeight
End Property

Public Property Let RowHeight(ByVal newRowHeight As Variant)
mRowHeight = newRowHeight
End Property

Public Property Get Rows() As Integer
Rows = mRows
End Property

Public Property Let Rows(ByVal newRows As Integer)
mRows = newRows
End Property

Public Property Get StyleName() As String
StyleName = mStyleName
End Property

Public Property Let StyleName(ByVal newStyleName As String)
mStyleName = newStyleName
End Property

Public Property Get TitleSuppressed() As Boolean
TitleSuppressed = mTitleSuppressed
End Property

Public Property Let TitleSuppressed(ByVal newTitleSuppressed As Boolean)
mTitleSuppressed = newTitleSuppressed
End Property

Public Property Get VertCellMargin() As Double
VertCellMargin = mVertCellMargin
End Property

Public Property Let VertCellMargin(ByVal newVertCellMargin As Double)
mVertCellMargin = newVertCellMargin
End Property

Public Property Get Visible() As Boolean
Visible = mVisible
End Property

Public Property Let Visible(ByVal newVisible As Boolean)
mVisible = newVisible
End Property

Public Property Get Width() As Double
Width = mWidth
End Property

Public Property Let Width(ByVal newWidth As Double)
mWidth = newWidth
End Property

Public Property Get SpaceType() As String
SpaceType = mSpaceType
End Property

Public Property Let SpaceType(ByVal newSpaceType As String)
mSpaceType = newSpaceType
End Property

Public Property Get CellText() As Variant
CellText = mCellText
End Property

Public Property Let CellText(ByVal newCellText As Variant)
mCellText = newCellText
End Property

Public Property Get CellAlignment() As Variant
CellAlignment = mCellAlignment
End Property

Public Property Let CellAlignment(ByVal newCellAlignment As Variant)
mCellAlignment = newCellAlignment
End Property

Public Property Get CellBackgroundColorNone() As Variant
CellBackgroundColorNone = mCellBackgroundColorNone
End Property

Public Property Let CellBackgroundColorNone(ByVal newCellBackgroundColorNone As Variant)
mCellBackgroundColorNone = newCellBackgroundColorNone
End Property

Public Property Get CellGridLineweight() As Variant
CellGridLineweight = mCellGridLineweight
End Property

Public Property Let CellGridLineweight(ByVal newCellGridLineweight As Variant)
mCellGridLineweight = newCellGridLineweight
End Property

Public Property Get CellGridVisibility() As Variant
CellGridVisibility = mCellGridVisibility
End Property

Public Property Let CellGridVisibility(ByVal newCellGridVisibility As Variant)
mCellGridVisibility = newCellGridVisibility
End Property

Public Property Get CellTextHeight() As Variant
CellTextHeight = mCellTextHeight
End Property

Public Property Let CellTextHeight(ByVal newCellTextHeight As Variant)
mCellTextHeight = newCellTextHeight
End Property

Public Property Get CellStyleOverrides() As Variant
CellStyleOverrides = mCellStyleOverrides
End Property

Public Property Let CellStyleOverrides(ByVal newCellStyleOverrides As Variant)
mCellStyleOverrides = newCellStyleOverrides
End Property

Public Property Get CellType() As Variant
CellType = mCellType
End Property

Public Property Let CellType(ByVal newCellType As Variant)
mCellType = newCellType
End Property

Public Property Get CellTextRotation() As Variant
CellTextRotation = mCellTextRotation
End Property

Public Property Let CellTextRotation(ByVal newCellTextRotation As Variant)
mCellTextRotation = newCellTextRotation
End Property

Public Property Get CellBlockID() As Variant
CellBlockID = mCellBlockID
End Property

Public Property Let CellBlockID(ByVal newCellBlockID As Variant)
mCellBlockID = newCellBlockID
End Property

Public Property Get CellBlockScale() As Variant
CellBlockScale = mCellBlockScale
End Property

Public Property Let CellBlockScale(ByVal newCellBlockScale As Variant)
mCellBlockScale = newCellBlockScale
End Property

Public Property Get CellBlockRotation() As Variant
CellBlockRotation = mCellBlockRotation
End Property

Public Property Let CellBlockRotation(ByVal newCellBlockRotation As Variant)
mCellBlockRotation = newCellBlockRotation
End Property

Public Property Get CellBlockAttributeValue() As Variant
CellBlockAttributeValue = mCellBlockAttributeValue
End Property

Public Property Let CellBlockAttributeValue(ByVal newCellBlockAttributeValue As Variant)
mCellBlockAttributeValue = newCellBlockAttributeValue
End Property

Public Property Get CellFieldID() As Variant
CellFieldID = mCellFieldID
End Property

Public Property Let CellFieldID(ByVal newCellFieldID As Variant)
mCellFieldID = newCellFieldID
End Property

Public Property Get OutputXML() As String

' Handle=" & Chr(34) & mHandle & Chr(34) & _

Dim i As Integer, j As Integer

mOutputXML = ""

For i = 0 To mRows - 1
mOutputXML = mOutputXML & _
" "
For j = 0 To mColumns
mOutputXML = mOutputXML & " "

Next j
mOutputXML = mOutputXML & " "
Next i

mOutputXML = mOutputXML & "

"

OutputXML = mOutputXML

End Property

' Implements

' Procedures
Public Sub SetCellBackgroundColor(ByVal Index As Integer, ByVal ColorID As String, ByVal ColorType As String, ByVal PaletteName As String)

ReDim Preserve mCellBackgroundColor(mRows * mColumns)
mCellBackgroundColor(Index).ColorID = ColorID
mCellBackgroundColor(Index).ColorType = ColorType
mCellBackgroundColor(Index).Palettename = Palettename

End Sub

Public Sub SetCellContentColor(ByVal Index As Integer, ByVal ColorID As String, ByVal ColorType As String, ByVal PaletteName As String)

ReDim Preserve mCellContentColor(mRows * mColumns)
mCellContentColor(Index).ColorID = ColorID
mCellContentColor(Index).ColorType = ColorType
mCellContentColor(Index).Palettename = Palettename

End Sub

Public Sub SetCellGridColor(ByVal Index As Integer, ByVal ColorID As String, ByVal ColorType As String, ByVal PaletteName As String)

ReDim Preserve mCellGridColor(mRows * mColumns)
mCellGridColor(Index).ColorID = ColorID
mCellGridColor(Index).ColorType = ColorType
mCellGridColor(Index).Palettename = Palettename

End Sub

' Functions
Public Function Create As Boolean

Dim SpaceObj As IAcadBlock2
Dim TableObj As AcadTable
Set SpaceObj = ThisDrawing.Blocks(mSpaceType)
ReDim Preserve mCellText(0 To (mRows * mColumns))
ReDim Preserve mCellAlignment(0 To (mRows * mColumns))
ReDim Preserve mCellBackgroundColor(0 To (mRows * mColumns)) ' As New CI_Color
ReDim Preserve mCellBackgroundColorNone(0 To (mRows * mColumns)) ' As Boolean
ReDim Preserve mCellContentColor(0 To (mRows * mColumns)) ' As New CI_Color
ReDim Preserve mCellGridColor(0 To (mRows * mColumns) * 4) ' As New CI_Color
ReDim Preserve mCellGridLineweight(0 To (mRows * mColumns) * 4)
ReDim Preserve mCellGridVisibility(0 To (mRows * mColumns) * 4) ' As Boolean
ReDim Preserve mCellTextHeight(0 To (mRows * mColumns))
ReDim Preserve mCellStyleOverrides(0 To (mRows * mColumns))
ReDim Preserve mCellTextRotation(0 To (mRows * mColumns))
ReDim Preserve mCellType(0 To (mRows * mColumns))
ReDim Preserve mCellBlockID(0 To (mRows * mColumns))
ReDim Preserve mCellBlockScale(0 To (mRows * mColumns))
ReDim Preserve mCellBlockRotation(0 To (mRows * mColumns))
ReDim Preserve mCellBlockAttributeValue(0 To (mRows * mColumns))
ReDim Preserve mCellFieldID(0 To (mRows * mColumns))
ReDim Preserve mRowHeight(0 To mRows)
ReDim Preserve mColumnWidth(0 To mColumns)

Set TableObj = SpaceObj.AddTable(mInsertionPoint, mRows, mColumns, mRowHeight(0), mColumnWidth(0))

Hyperlink.SetHyperlink TableObj
TableObj.TrueColor = Color.SetCI_Color
TableObj.Direction = mDirection
TableObj.FlowDirection = mFlowDirection
TableObj.HeaderSuppressed = mHeaderSuppressed
TableObj.Height = mHeight
TableObj.HorzCellMargin = mHorzCellMargin
TableObj.Layer = mLayer
TableObj.Linetype = mLinetype
TableObj.LinetypeScale = mLinetypeScale
TableObj.Lineweight = mLineweight
TableObj.StyleName = mStyleName
TableObj.TitleSuppressed = mTitleSuppressed
TableObj.VertCellMargin = mVertCellMargin
TableObj.Visible = mVisible
TableObj.Width = mWidth

Dim i As Integer, j As Integer, k As Integer, h As Integer
k = 0
For i = 0 To mColumns - 1
For j = 0 To mRows - 1
If CStr(mCellText(k)) <> "" Then
TableObj.SetText j, i, CStr(mCellText(k))
End If
TableObj.SetCellAlignment j, i, mCellAlignment(k)
If mCellBackgroundColorNone(k) = False Then
TableObj.SetCellBackgroundColor j, i, mCellBackgroundColor(k).SetCI_Color
TableObj.SetCellBackgroundColorNone j, i, False
End If
If Not (mCellContentColor(k).ColorID = "" And mCellContentColor(k).ColorType = "" And mCellContentColor(k).PaletteName = "") Then
TableObj.SetCellContentColor j, i, mCellContentColor(k).SetCI_Color
End If
If Not (mCellGridColor(h).ColorID = "" And mCellGridColor(h).ColorType = "" And mCellGridColor(h).PaletteName = "") Then
TableObj.SetCellGridColor j, i, 4, mCellGridColor(h).SetCI_Color
End If
If Not (mCellGridColor(h + 1).ColorID = "" And mCellGridColor(h + 1).ColorType = "" And mCellGridColor(h + 1).PaletteName = "") Then
TableObj.SetCellGridColor j, i, 8, mCellGridColor(h + 1).SetCI_Color
End If
If Not (mCellGridColor(h + 2).ColorID = "" And mCellGridColor(h + 2).ColorType = "" And mCellGridColor(h + 2).PaletteName = "") Then
TableObj.SetCellGridColor j, i, 2, mCellGridColor(h + 2).SetCI_Color
End If
If Not (mCellGridColor(h + 3).ColorID = "" And mCellGridColor(h + 3).ColorType = "" And mCellGridColor(h + 3).PaletteName = "") Then
TableObj.SetCellGridColor j, i, 1, mCellGridColor(h + 3).SetCI_Color
End If
TableObj.SetCellGridLineWeight j, i, 0, mCellGridLineweight(h)
TableObj.SetCellGridLineWeight j, i, 1, mCellGridLineweight(h + 1)
TableObj.SetCellGridLineWeight j, i, 2, mCellGridLineweight(h + 2)
TableObj.SetCellGridLineWeight j, i, 3, mCellGridLineweight(h + 3)
TableObj.SetCellGridVisibility j, i, 0, mCellGridVisibility(h)
TableObj.SetCellGridVisibility j, i, 1, mCellGridVisibility(h + 1)
TableObj.SetCellGridVisibility j, i, 2, mCellGridVisibility(h + 2)
TableObj.SetCellGridVisibility j, i, 3, mCellGridVisibility(h + 3)
TableObj.SetCellTextHeight j, i, mCellTextHeight(k)
TableObj.SetCellType j, i, mCellType(k)
TableObj.SetTextRotation j, i, mCellTextRotation(k)
If mCellBlockID(k) <> 0 Then
TableObj.SetBlockTableRecordId j, i, mCellBlockID(k), True
TableObj.SetBlockScale j, i, mCellBlockScale(k)
TableObj.SetBlockRotation j, i, mCellBlockRotation(k)
End If
TableObj.SetFieldId j, i, mCellFieldID(k)

'mCellBlockAttributeValue (k) = TableObj.GetBlockAttributeValue(j,i,)

k = k + 1
h = h + 4
If mRowHeight(j) <> "" Then
TableObj.SetRowHeight j, CInt(mRowHeight(j))
End If
Next j
TableObj.SetColumnWidth i, mColumnWidth(i)
Next i

End Function

Public Function Read(ByVal Handle As String) As Boolean

Dim TableObj As AcadTable
Set TableObj = ThisDrawing.HandleToObject(Handle)

mSpaceType = ThisDrawing.ObjectIdToObject(TableObj.OwnerID).Name
mHandle = TableObj.Handle
mInsertionPoint = TableObj.InsertionPoint
mRows = TableObj.Rows
mColumns = TableObj.Columns
Hyperlink.GetHyperlink TableObj
Color.GetCI_Color TableObj.TrueColor
mDirection = TableObj.Direction
mFlowDirection = TableObj.FlowDirection
mHeaderSuppressed = TableObj.HeaderSuppressed
mHeight = TableObj.Height
mHorzCellMargin = TableObj.HorzCellMargin
mLayer = TableObj.Layer
mLinetype = TableObj.Linetype
mLinetypeScale = TableObj.LinetypeScale
mLineweight = TableObj.Lineweight
mStyleName = TableObj.StyleName
mTitleSuppressed = TableObj.TitleSuppressed
mVertCellMargin = TableObj.VertCellMargin
mVisible = TableObj.Visible
mWidth = TableObj.Width

Dim i As Integer, j As Integer, k As Integer, h As Integer
k = 0: h = 0
ReDim mCellText(0 To (mRows * mColumns))
ReDim mCellAlignment(0 To (mRows * mColumns))
ReDim mCellBackgroundColor(0 To (mRows * mColumns)) As New CI_Color
ReDim mCellBackgroundColorNone(0 To (mRows * mColumns)) ' As Boolean
ReDim mCellContentColor(0 To (mRows * mColumns)) As New CI_Color
ReDim mCellGridColor(0 To (mRows * mColumns) * 4) As New CI_Color
ReDim mCellGridLineweight(0 To (mRows * mColumns) * 4)
ReDim mCellGridVisibility(0 To (mRows * mColumns) * 4) ' As Boolean
ReDim mCellTextHeight(0 To (mRows * mColumns))
ReDim mCellStyleOverrides(0 To (mRows * mColumns))
ReDim mCellTextRotation(0 To (mRows * mColumns))
ReDim mCellType(0 To (mRows * mColumns))
ReDim mCellBlockID(0 To (mRows * mColumns))
ReDim mCellBlockScale(0 To (mRows * mColumns))
ReDim mCellBlockRotation(0 To (mRows * mColumns))
ReDim mCellBlockAttributeValue(0 To (mRows * mColumns))
ReDim mCellFieldID(0 To (mRows * mColumns))
ReDim mRowHeight(0 To mRows)
ReDim mColumnWidth(0 To mColumns)
Dim u As Integer
For i = 0 To mColumns - 1
For j = 0 To mRows - 1
If TableObj.GetCellType(j, i) = acTextCell Then
mCellText(k) = CStr(TableObj.GetText(j, i))
mCellAlignment(k) = TableObj.GetCellAlignment(j, i)
End If
If TableObj.GetCellBackgroundColorNone(j, i) = False Then
mCellBackgroundColor(k).GetCI_Color TableObj.GetCellBackgroundColor(j, i)
mCellBackgroundColorNone(k) = TableObj.GetCellBackgroundColorNone(j, i)
Else
mCellBackgroundColorNone(k) = TableObj.GetCellBackgroundColorNone(j, i)
End If

If Not (TableObj.GetCellContentColor(j, i).Blue = 0 And TableObj.GetCellContentColor(j, i).Red = 0 And TableObj.GetCellContentColor(j, i).Green = 0 And TableObj.GetCellContentColor(j, i).ColorIndex = 0 And TableObj.GetCellContentColor(j, i).BookName = "") Then
mCellContentColor(k).GetCI_Color TableObj.GetCellContentColor(j, i)
End If

If Not (TableObj.GetCellGridColor(j, i, acBottomMask).Blue = 0 And TableObj.GetCellGridColor(j, i, acBottomMask).Red = 0 And TableObj.GetCellGridColor(j, i, acBottomMask).Green = 0 And TableObj.GetCellContentColor(j, i).ColorIndex = 0 And TableObj.GetCellContentColor(j, i).BookName = "") Then
mCellGridColor(h).GetCI_Color TableObj.GetCellGridColor(j, i, acBottomMask)
End If

If Not (TableObj.GetCellGridColor(j, i, acLeftMask).Blue = 0 And TableObj.GetCellGridColor(j, i, acLeftMask).Red = 0 And TableObj.GetCellGridColor(j, i, acLeftMask).Green = 0 And TableObj.GetCellGridColor(j, i, acLeftMask).ColorIndex = 0 And TableObj.GetCellGridColor(j, i, acLeftMask).BookName = "") Then
mCellGridColor(h + 1).GetCI_Color TableObj.GetCellGridColor(j, i, acLeftMask)
End If

If Not (TableObj.GetCellGridColor(j, i, acRightMask).Blue = 0 And TableObj.GetCellGridColor(j, i, acRightMask).Red = 0 And TableObj.GetCellGridColor(j, i, acRightMask).Green = 0 And TableObj.GetCellGridColor(j, i, acRightMask).ColorIndex = 0 And TableObj.GetCellGridColor(j, i, acRightMask).BookName = "") Then
mCellGridColor(h + 2).GetCI_Color TableObj.GetCellGridColor(j, i, acRightMask)
End If

If Not (TableObj.GetCellGridColor(j, i, acTopMask).Blue = 0 And TableObj.GetCellGridColor(j, i, acTopMask).Red = 0 And TableObj.GetCellGridColor(j, i, acTopMask).Green = 0 And TableObj.GetCellGridColor(j, i, acTopMask).ColorIndex = 0 And TableObj.GetCellGridColor(j, i, acTopMask).BookName = "") Then
mCellGridColor(h + 3).GetCI_Color TableObj.GetCellGridColor(j, i, acTopMask)
End If
mCellGridLineweight(h) = TableObj.GetCellGridLineWeight(j, i, acBottomMask)
mCellGridLineweight(h + 1) = TableObj.GetCellGridLineWeight(j, i, acLeftMask)
mCellGridLineweight(h + 2) = TableObj.GetCellGridLineWeight(j, i, acRightMask)
mCellGridLineweight(h + 3) = TableObj.GetCellGridLineWeight(j, i, acTopMask)
mCellGridVisibility(h) = TableObj.GetCellGridVisibility(j, i, acBottomMask)
mCellGridVisibility(h + 1) = TableObj.GetCellGridVisibility(j, i, acLeftMask)
mCellGridVisibility(h + 2) = TableObj.GetCellGridVisibility(j, i, acRightMask)
mCellGridVisibility(h + 3) = TableObj.GetCellGridVisibility(j, i, acTopMask)
mCellTextHeight(k) = TableObj.GetCellTextHeight(j, i)
mCellStyleOverrides(k) = TableObj.GetCellStyleOverrides(j, i)
mCellType(k) = TableObj.GetCellType(j, i)
mCellTextRotation(k) = TableObj.GetTextRotation(j, i)
mCellBlockID(k) = TableObj.GetBlockTableRecordId(j, i)
mCellBlockScale(k) = TableObj.GetBlockScale(j, i)
mCellBlockRotation(k) = TableObj.GetBlockRotation(j, i)
'mCellBlockAttributeValue (k) = TableObj.GetBlockAttributeValue(j,i,
mCellFieldID(k) = TableObj.GetFieldId(j, i)
k = k + 1
h = h + 4
mRowHeight(j) = TableObj.GetRowHeight(j)
Next j
mColumnWidth(i) = TableObj.GetColumnWidth(i)
Next i

End Function

Public Function GetCellBackgroundColor(ByVal Index As Integer) As CI_Color

GetCellBackgroundColor = mCellBackgroundColor(Index)

End Function

Public Function GetCellContentColor(ByVal Index As Integer) As CI_Color

GetCellContentColor = mCellContentColor(Index)

End Function

Public Function GetCellGridColor(ByVal Index As Integer) As CI_Color

GetCellGridColor = mCellGridColor(Index)

End Function

topic Re: VBA documentation in VBA Forum

VBA documentation

Re: VBA documentation

Re: VBA documentation

Re: VBA documentation