Programming Excel with VBA and .NET

Name

series.ApplyPictToEnd [= setting]

Synopsis

For 3-D column and bar charts, True displays the fill picture on the end of the column or bar and False displays the fill color. Default is True if the series has a fill picture. Setting the ApplyPict properties causes an error for other chart types.

The following code demonstrates each of the ApplyPict properties:

Sub ApplyPict(  )
    Dim chrt As Chart, sc As SeriesCollection, _
      sr As Series
    ' Get a chart.
    Set chrt = ActiveChart
    chrt.ChartType = xl3DColumn
    ' Get the series collection.
    Set sc = chrt.SeriesCollection
    ' Get the first series.
    Set sr = sc(1)
    ' Display a picture on the series column.
    sr.Fill.UserPicture ThisWorkbook.Path & "\small_wombat.GIF"
    sr.Fill.Visible = True
    ' Show all sides
    Application.Wait Now + 0.00001
    ' Remove picture from end.
    sr.ApplyPictToEnd = False
    Application.Wait Now + 0.00001
    ' Remove picture from all sides.
    sr.ApplyPictToSides = False
    Application.Wait Now + 0.00001
    ' Apply picture to front side.
    sr.ApplyPictToFront = True
End Sub