Search notes:

Office Object Model: Excel - ChartArea

'
'  ..\..\..\runVBAFilesInOffice.vbs -excel chart_area -c chart_area
'

public sub chart_area()

    dim row_        as integer
    dim shape_      as shape
    dim chart_      as chart
    dim chart_area_ as chartArea

    row_ = 1

    cells(1,1).value = "x"
    cells(1,2).value = "sin(x) * x/3 + x"

    for x = 0 to 10 step 0.1

        row_ = row_ + 1

        cells(row_, 1).value = x
        cells(row_, 2).value = sin(x) * x / 3 + x

    next x

    set shape_ = activeSheet.shapes.addChart
    set chart_ = shape_.chart

    chart_.chartType = xlXYScatterSmoothNoMarkers
    chart_.setSourceData source := range(cells(1,1), cells(row_, 2))

    set chart_area_ = chart_.chartArea

    chart_area_.format.fill.foreColor.rgb = rgb(255, 200,  50)
    chart_area_.format.line.foreColor.rgb = rgb(200,  50, 255)
    chart_area_.format.line.weight        = 3

    activeWorkbook.saved = true

end sub

Github repository about-MS-Office-object-model, path: /Excel/ChartArea/chart_area.bas

interior

'
'  ..\..\..\runVBAFilesInOffice.vbs -excel interior -c interior
'

public sub interior()

    dim row_        as integer
    dim shape_      as shape
    dim chart_      as chart
    dim chart_area_ as chartArea

    row_ = 1

    cells(1,1).value = "x"
    cells(1,2).value = "sin(x) * x/3 + x"

    for x = 0 to 10 step 0.1

        row_ = row_ + 1

        cells(row_, 1).value = x
        cells(row_, 2).value = sin(x) * x / 3 + x

    next x

    set shape_ = activeSheet.shapes.addChart
    set chart_ = shape_.chart

    chart_.chartType = xlXYScatterSmoothNoMarkers
    chart_.setSourceData source := range(cells(1,1), cells(row_, 2))

    set chart_area_ = chart_.chartArea

 '  TODO: Where is ChartArea.Interior documented?
    chart_area_.interior.colorIndex = 5

    activeWorkbook.saved = true

end sub

Github repository about-MS-Office-object-model, path: /Excel/ChartArea/interior.bas

border

'
'  ..\..\..\runVBAFilesInOffice.vbs -excel border -c border
'

public sub border()

    dim row_        as integer
    dim shape_      as shape
    dim chart_      as chart
    dim chart_area_ as chartArea

    row_ = 1

    cells(1,1).value = "x"
    cells(1,2).value = "sin(x) * x/3 + x"

    for x = 0 to 10 step 0.1

        row_ = row_ + 1

        cells(row_, 1).value = x
        cells(row_, 2).value = sin(x) * x / 3 + x

    next x

    set shape_ = activeSheet.shapes.addChart
    set chart_ = shape_.chart

    chart_.chartType = xlXYScatterSmoothNoMarkers
    chart_.setSourceData source := range(cells(1,1), cells(row_, 2))

    set chart_area_ = chart_.chartArea

 '  TODO: Where is ChartArea.border documented?
    chart_area_.border.colorIndex   = 5

    activeWorkbook.saved = true

end sub

Github repository about-MS-Office-object-model, path: /Excel/ChartArea/border.bas

Fatal error: Uncaught PDOException: SQLSTATE[HY000]: General error: 8 attempt to write a readonly database in /home/httpd/vhosts/renenyffenegger.ch/php/web-request-database.php:78 Stack trace: #0 /home/httpd/vhosts/renenyffenegger.ch/php/web-request-database.php(78): PDOStatement->execute(Array) #1 /home/httpd/vhosts/renenyffenegger.ch/php/web-request-database.php(30): insert_webrequest_('/notes/Microsof...', 1758201510, '216.73.216.150', 'Mozilla/5.0 App...', NULL) #2 /home/httpd/vhosts/renenyffenegger.ch/httpsdocs/notes/Microsoft/Office/Excel/Object-Model/ChartArea/index(167): insert_webrequest() #3 {main} thrown in /home/httpd/vhosts/renenyffenegger.ch/php/web-request-database.php on line 78

Office Object Model: Excel - ChartArea

interior

border

See also