Walls Object Example

Sub FormatWalls()

Dim oWall As Walls

Set oWall = ActiveSheet.

.ChartObjects("Chart 1"

1.Chart.Walls

With oWall

.Fill.PresetTextured

msoTextureCork

.Fill.Visible = True

End With

End Sub

0 0

Post a comment