VBA module ExcelRange - function excelRangeResize

Test case

option explicit

sub test_excelRangeResize() ' {

    dim rng as range
    set rng = range(cells(3,4), cells(4,6))

    rng.interior.color = rgb(180, 210, 255)

    dim rngResized as range
    set rngResized = excelRangeResize(rng, leftRel := 2, rightRel := 3, topRel := -1)
    rngResized.borderAround xlDash, xlMedium, color := rgb(290, 100, 255)

    range(columns(1), columns(10)).columnWidth = 2

    cells(10,1).select

end sub ' }

<job>
<script language="VBScript" src="../../../VBS-MS-Office-App-Creator/create-MS-Office-app.vbs" />
<script language="VBScript">

   option explicit

   dim app
   dim xls
   set xls = createOfficeApp("excel", currentDir() & "test.xlsm")
   if xls is nothing then ' {
      wscript.echo "Could not create excel worksheet."
      wscript.quit -1
   end if ' }

   set app = xls.application

   insertModule app, currentDir() & "func.vb"                           , "testRange"   , 1
   insertModule app, currentDir() & "../../../../Office/ExcelHelpers.vb", "excelHelpers", 1
   insertModule app, currentDir() & "../../../../Office/ExcelRange.vb"  , "excelRange"  , 1

   app.run "test_excelRangeResize"

   xls.save

   wscript.echo "The end"
   createObject("WScript.Shell").appActivate(app.caption)

</script></job>

See also