Class Walls (PowerPoint VBA)

The class Walls represents the walls of a 3D chart.

Set

To use a Walls class variable it first needs to be instantiated, for example

Dim wlls as Walls
Set wlls = ActiveWindow.RangeFromPoint.Chart.BackWall

The following procedures can be used to set variables of type Walls: Chart.BackWall, Chart.SideWall and Chart.Walls

ClearFormats

Clears the formatting of the object.

ActiveWindow.RangeFromPoint.Chart.BackWall.ClearFormats

Format

Returns the line, fill, and effect formatting for the object.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveWindow.RangeFromPoint.Chart.BackWall.Format

Name

Returns the name of the object.

Dim strName As String
strName = ActiveWindow.RangeFromPoint.Chart.BackWall.Name

Parent

Returns the parent for the specified object. Read-only object.

Paste

Pastes a picture from the Clipboard on the walls of the specified chart.

You can use this method on column, bar, line, or radar charts.

ActiveWindow.RangeFromPoint.Chart.BackWall.Paste

PictureType

Returns or sets a value that specifies how pictures are displayed on the walls and faces of a 3D chart.

Possible Values are xlStack - The picture is sized to repeat a maximum of 15 times in the longest stacked bar, xlStackScale - The picture is sized to a specified number of units and repeated the length of the bar, xlStretch - The picture is stretched the full length of the stacked bar.

You can set this property to one of the following XlChartPictureType constants: xlStack or xlStretch.

ActiveWindow.RangeFromPoint.Chart.BackWall.PictureType = xlStack

PictureUnit

Returns or sets the unit for each picture on the chart if the PictureType property is set to xlStackScale; otherwise, this property is ignored. Read/write Long.

ActiveWindow.RangeFromPoint.Chart.BackWall.PictureUnit = xlStack

Select

Selects the object.

ActiveWindow.RangeFromPoint.Chart.BackWall.Select

Thickness

Returns or sets the thickness of the wall.

Use this property to set the thickness of the walls on a chart. The default value is zero (0).

ActiveWindow.RangeFromPoint.Chart.BackWall.Thickness =