Floor Property

expression.Floor

expression    Required. An expression that returns a ChPlotArea object.

Example

This example converts the first chart in Chartspace1 to a 3-D Column chart and then formats the back wall, side wall, and floor of the chart.

Sub FormatWallsFloor()

    Dim cht3DColumn
    Dim chConstants
    Dim paPlotArea

    Set chConstants = Chartspace1.Constants

    ' Set a variable to the first chart in Chartspace1.
    Set cht3DColumn = ChartSpace1.Charts(0)

    ' Change the chart to a 3D Column chart.
    cht3DColumn.Type = chConstants.chChartTypeColumnClustered3D

    ' Set a variable to the plot area.
    Set paPlotArea = cht3DColumn.PlotArea

    ' Format the back wall of the chart.
    paPlotArea.BackWall.Interior.SetSolid "Yellow"
    paPlotArea.BackWall.Thickness = 5

    ' Format the side wall of the chart.
    paPlotArea.SideWall.Interior.SetSolid "Yellow"
    paPlotArea.SideWall.Thickness = 5

    ' Format the floor of the chart.
    paPlotArea.Floor.Interior.SetSolid "Blue"
    paPlotArea.Floor.Thickness = 5

End Sub