9、SetBackgroundEffect函式 (轉)

9、SetBackgroundEffect函式 (轉)[@more@]該用來設定圖表的特殊效果。

Sub SetBackgroundEffect(ByVal iXlChartFillEffect As xlChartFillEffect) On Error GoTo hError '--- 將圖表設定為三維 oChart.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., Err.Description End Sub

　　 特效只對三維圖表有效。Chart包含Walls（背景牆）和Floor（三維圖表的底面）兩個物件，其中又包含著填充的邊界、過渡等細節屬性。如有必要的話可以顯露並使用這些細節屬性。

　　 我們已經提供了實現特殊效果的基本機制，在本文的第一部分也可以看到圖表特效的一些例子。對特殊效果來說最重要的一個物件是Fill物件，包括Walls和Floor物件在內的許多構造介面的Excel物件都包含Fill物件。PresetGradient()和OneColorGradient()這兩個方法的功能分別是用Excel中預定義的過渡效果或顏色填充容器。