Home > Excel VBA | GraphControl > Excel グラフ既定のグラデーション (.PresetGradient Style, Type, Variant)

Excel グラフ既定のグラデーション (.PresetGradient Style, Type, Variant)

Posted by: WebMaster
2008年4月21日 06:48
Excel VBA | GraphControl

エクセルグラフのプロットエリア、チャートエリア、壁面、床面を既定のグラデーションに設定するマクロを紹介します。以下は、エクセル既定のグラデーションの種類とタイプです。

The following table indicates the est. color in Excel.

グラデーションの種類	Name of Gradation	GradientType
夕焼け	EarlySunset	msoGradientEarlySunset
日暮れ	LateSunset	msoGradientLateSunset
夕闇	Nightfall	msoGradientNightfall
夜明け	Daybreak	msoGradientDaybreak
地平線	Horizon	msoGradientHorizon
砂漠	Desert	msoGradientDesert
海	Ocean	msoGradientOcean
凪	CalmWater	msoGradientCalmWater
炎	Fire	msoGradientFire
霧	Fog	msoGradientFog
こけ	Moss	msoGradientMoss
くじゃく	Peacock	msoGradientPeacock
小麦	Wheat	msoGradientWheat
セーム皮	Parchment	msoGradientParchment
マホガニー	Mahogany	msoGradientMahogany
虹	Rainbow	msoGradientRainbow
虹２	RainbowII	msoGradientRainbowII
ゴールド	Gold	msoGradientGold
ゴールド２	GoldII	msoGradientGoldII
ブロンズ	Brass	msoGradientBrass
クロム	Chrome	msoGradientChrome
クロム２	ChromeII	msoGradientChromeII
シルバー	Silver	msoGradientSilver
サファイア	Sapphire	msoGradientSapphire

グラデーションのスタイル	Style of Gradation	Gradient Style
横	Horizontal	msoGradientHorizontal
縦	Vertical	msoGradientVertical
右上対角線	Diagonal Up	msoGradientDiagonalUp
右下対角線	Diagonal Down	msoGradientDiagonalDown
角から	From Corner	msoGradientFromCorner
中央から	From Center	msoGradientFromCenter

以下のコードは、グラフのプロットエリアの色を既定カラー（夕焼け）、グラデーションの種類=横、バリエーション=1で設定します。

If the following sample source code is carried out, plotarea of selected chart will be the color which is already est. in Excel color "Sunset", and type of gradation is horizontal, variation=1.

下記は、GraphControl で使っているコードです。

The source code below is used in GraphControl.

Private Sub CommandButton_KiteiColor_Click()
Dim exitSub%
If ComboBox_Arranged.Value = "" Or NumChart = 0 Then Exit Sub
'On Error Resume Next

Application.ScreenUpdating = False

If CBool(OptionButton_Variant1.Value) = True Then
   GVariation = 1
 ElseIf CBool(OptionButton_Variant2.Value) = True Then
   GVariation = 2
 ElseIf CBool(OptionButton_Variant3.Value) = True Then
   GVariation = 3
 ElseIf CBool(OptionButton_Variant4.Value) = True Then
   GVariation = 4
 End If

Option_Temp(1) = CBool(OptionButton_Yoko.Value)
Option_Temp(2) = CBool(OptionButton_Tate.Value)
Option_Temp(3) = CBool(OptionButton_MigiUe.Value)
Option_Temp(4) = CBool(OptionButton_MigiSita.Value)
Option_Temp(5) = CBool(OptionButton_Kado.Value)
Option_Temp(6) = CBool(OptionButton_Chuo.Value)

If CheckBox4.Value = True Then
Temp1 = 1: Temp2 = NumChart
Else
 Temp1 = ChartObject: Temp2 = ChartObject
End If

For ChartObject = Temp1 To Temp2

ActiveSheet.ChartObjects(ChartObject).Activate
 
 If TabStrip_BackGround.Value = 0 Then
   ActiveChart.PlotArea.Select
 ElseIf TabStrip_BackGround.Value = 1 Then
   ActiveChart.ChartArea.Select
 ElseIf TabStrip_BackGround.Value = 2 Then
   On Error GoTo exitSub
   ActiveChart.Walls.Select
 ElseIf TabStrip_BackGround.Value = 3 Then
   On Error GoTo exitSub
   ActiveChart.Floor.Select
 End If
 
 With ComboBox_Arranged
  Select Case CStr(.Value)
   Case "夕焼け"
    ' If TabStrip_BackGround.Value = 0 Then    '---PlotArea～夕焼け
    '  With ActiveChart.PlotArea
       
       If OptionButton_Yoko = True Then
           Selection.Fill.PresetGradient Style:=msoGradientHorizontal, Variant:=GVariation, PresetGradientType:=msoGradientEarlySunset
        ElseIf OptionButton_Tate = True Then
           Selection.Fill.PresetGradient Style:=msoGradientVertical, Variant:=GVariation, PresetGradientType:=msoGradientEarlySunset
        ElseIf OptionButton_MigiUe = True Then
           Selection.Fill.PresetGradient Style:=msoGradientDiagonalUp, Variant:=GVariation, PresetGradientType:=msoGradientEarlySunset
        ElseIf OptionButton_MigiSita = True Then
           Selection.Fill.PresetGradient Style:=msoGradientDiagonalDown, Variant:=GVariation, PresetGradientType:=msoGradientEarlySunset
        ElseIf OptionButton_Kado = True Then
           Selection.Fill.PresetGradient Style:=msoGradientFromCorner, Variant:=GVariation, PresetGradientType:=msoGradientEarlySunset
        ElseIf OptionButton_Chuo = True Then
           Selection.Fill.PresetGradient Style:=msoGradientFromCenter, Variant:=GVariation, PresetGradientType:=msoGradientEarlySunset
        End If
           Selection.Fill.Visible = True
       
   Case "日暮れ"

If OptionButton_Yoko = True Then
           Selection.Fill.PresetGradient Style:=msoGradientHorizontal, Variant:=GVariation, PresetGradientType:=msoGradientLateSunset
        ElseIf OptionButton_Tate = True Then
           Selection.Fill.PresetGradient Style:=msoGradientVertical, Variant:=GVariation, PresetGradientType:=msoGradientLateSunset
        ElseIf OptionButton_MigiUe = True Then
           Selection.Fill.PresetGradient Style:=msoGradientDiagonalUp, Variant:=GVariation, PresetGradientType:=msoGradientLateSunset
        ElseIf OptionButton_MigiSita = True Then
           Selection.Fill.PresetGradient Style:=msoGradientDiagonalDown, Variant:=GVariation, PresetGradientType:=msoGradientLateSunset
        ElseIf OptionButton_Kado = True Then
           Selection.Fill.PresetGradient Style:=msoGradientFromCorner, Variant:=GVariation, PresetGradientType:=msoGradientLateSunset
        ElseIf OptionButton_Chuo = True Then
           Selection.Fill.PresetGradient Style:=msoGradientFromCenter, Variant:=GVariation, PresetGradientType:=msoGradientLateSunset
        End If
       Selection.Fill.Visible = True

Case "夕闇"
     
       If OptionButton_Yoko = True Then
           Selection.Fill.PresetGradient Style:=msoGradientHorizontal, Variant:=GVariation, PresetGradientType:=msoGradientNightfall
        ElseIf OptionButton_Tate = True Then
           Selection.Fill.PresetGradient Style:=msoGradientVertical, Variant:=GVariation, PresetGradientType:=msoGradientNightfall
        ElseIf OptionButton_MigiUe = True Then
           Selection.Fill.PresetGradient Style:=msoGradientDiagonalUp, Variant:=GVariation, PresetGradientType:=msoGradientNightfall
        ElseIf OptionButton_MigiSita = True Then
           Selection.Fill.PresetGradient Style:=msoGradientDiagonalDown, Variant:=GVariation, PresetGradientType:=msoGradientNightfall
        ElseIf OptionButton_Kado = True Then
           Selection.Fill.PresetGradient Style:=msoGradientFromCorner, Variant:=GVariation, PresetGradientType:=msoGradientNightfall
        ElseIf OptionButton_Chuo = True Then
           Selection.Fill.PresetGradient Style:=msoGradientFromCenter, Variant:=GVariation, PresetGradientType:=msoGradientNightfall
        End If
       Selection.Fill.Visible = True

Case "夜明け"

If OptionButton_Yoko = True Then
           Selection.Fill.PresetGradient Style:=msoGradientHorizontal, Variant:=GVariation, PresetGradientType:=msoGradientDaybreak
        ElseIf OptionButton_Tate = True Then
           Selection.Fill.PresetGradient Style:=msoGradientVertical, Variant:=GVariation, PresetGradientType:=msoGradientDaybreak
        ElseIf OptionButton_MigiUe = True Then
           Selection.Fill.PresetGradient Style:=msoGradientDiagonalUp, Variant:=GVariation, PresetGradientType:=msoGradientDaybreak
        ElseIf OptionButton_MigiSita = True Then
           Selection.Fill.PresetGradient Style:=msoGradientDiagonalDown, Variant:=GVariation, PresetGradientType:=msoGradientDaybreak
        ElseIf OptionButton_Kado = True Then
           Selection.Fill.PresetGradient Style:=msoGradientFromCorner, Variant:=GVariation, PresetGradientType:=msoGradientDaybreak
        ElseIf OptionButton_Chuo = True Then
           Selection.Fill.PresetGradient Style:=msoGradientFromCenter, Variant:=GVariation, PresetGradientType:=msoGradientDaybreak
        End If
       Selection.Fill.Visible = True
''-------------------------------------------------------------------
''-----------------------the rest is omitted---------------------
''-----------------------------省略--------------------------------
''-------------------------------------------------------------------

End Select
  End With
 
 Next
exitSub:
ChartObject = CInt(TextBox30.Value)

Application.ScreenUpdating = True
Erase Option_Temp
End Sub

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | GraphControl > Excel グラフ既定のグラデーション (.PresetGradient Style, Type, Variant)

Return to page top

Excel グラフ 既定のグラデーション (.PresetGradient Style, Type, Variant)

Comments:0

Excel グラフ既定のグラデーション (.PresetGradient Style, Type, Variant)