9、SetBackgroundEffect函数

sub setbackgroundeffect(byval ixlchartfilleffect as xlchartfilleffect)
on error goto herror
  '--- 将图表设置为三维
  oexcelchart.wallsandgridlines2d = false
  '--- 背景墙
  with oexcelchart.walls
    .border.weight = xlthin
    .border.linestyle = xlcontinuous
    '--- 特效代码是否在范围之内
    if (ixlchartfilleffect  > 0 and ixlchartfilleffect <  24) then
      .fill.presetgradient style:=1, variant:=1, _
         presetgradienttype:=ixlchartfilleffect
    else
      .fill.onecolorgradient style:=1, variant:=1, degree:=0.231372549019608
      .fill.forecolor.schemecolor = 15
    end if
  end with
  
  '--- 底面
  with oexcelchart.floor
    .border.weight = xlhairline
    .border.linestyle = xlautomatic
    '--- 特效代码是否在范围之内
    if (ixlchartfilleffect  > 0 and ixlchartfilleffect <  24) then
      .fill.presetgradient style:=1, variant:=1, _
         presetgradienttype:=ixlchartfilleffect
    else
      .fill.onecolorgradient style:=1, variant:=1, degree:=0.231372549019608
      .fill.forecolor.schemecolor = 15
    end if
  end with
  
  exit sub
  
herror:
  app.logevent err.description, vblogeventtypeerror
  err.raise err.number, err.source, err.description
end sub