VB语言

本类阅读TOP10

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