How to create edges in an Excel Chart

[marcsusy]

Hello:

I have a question, how I can create borders in an Excel table.

thanks

[JLogan3o13]

Hi, marcsusy. How about an example script to show us what you're working on, rather than having us guess?

[marcsusy]

We can use the following example of Autoit:

$MyExcel = ObjCreate("Excel.Application")

if @error then

Msgbox (0,"","Error creating Excel object. Error code: " & @error)

exit

endif

if not IsObj($MyExcel) then

Msgbox (0,"ExcelTest","I'm sorry, but creation of an Excel object failed.")

exit

endif

$MyExcel.Visible = 1

$MyExcel.workbooks.add

dim $arr[16][16]

for $i = 0 to 15

for $j = 0 to 15

$arr[$i][$j] = Chr($i+65)&($j+1)

next

next

$MyExcel.activesheet.range("A1:O16").value = $arr

Sleep(2000)

$MyExcel.activeworkbook.saved = 1

$MyExcel = 0

[water]

What do you really want to do? Create borders around an array of Excel cells (you named it "table") or create edges in an Excel Chart (as you have written in the thread subject)?

A screenshot or example code would be fine.

[jdelaney]

Use the developer tool to record macros to figure stuff out:

Range("A1:L19").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

you will need to google the variable values...or create a message box, and include the variables to figure out the integers

Edited November 13, 2012 by jdelaney