Putcell method and column numbering (for programmers)

Question:  

I am having a problem with the OLE automation: I use the "putcell" method, but it does not put the text in the cell. What am I doing wrong?  

 

Answer:

Be sure to follow the column numbering shown here:

Try this sample code and note the column number after "putcell". Maybe your column numbering is off.

______________________________

Public Sub connectors()

Dim objmiles As Object

Set objmiles = CreateObject("Milestones")

 

'Open Milestones and give the schedule a title

With objmiles

.Activate

.settitle1 " Visual Basic Testing "

.settitle2 "    Connectors"

.Refresh

.PutCell 1, 3, "Task 1"

 

'add four symbols per line and a connector between 1-2 and 3-4

'connectortypeX is a variable that uses all 16 connectors available

For connectortypeX = 1 To 16

.AddSymbol connectortypeX, "02/07/2001", 1, connectortypeX, 2

.AddSymbol connectortypeX, "3/15/2001", 2

.AddSymbol connectortypeX, "4/1/2001", 3, connectortypeX, 4

.AddSymbol connectortypeX, "5/15/2001", 5

.setsymbolproperty 1, 1, "SymbolDatePosition", 2

.sortsymbols 1

.Refresh

.keepscheduleopen

Next connectortypeX

 

End With

End Sub

 

 

  1.     Related topics: