Home > Excel VBA | GraphControl > Excel グラフを単一色に変える(.PlotArea .ChartArea .Walls .Floor)

Excel グラフを単一色に変える(.PlotArea .ChartArea .Walls .Floor)

Posted by: WebMaster
2008年4月20日 06:47
Excel VBA | GraphControl

エクセルチャートの色を単一色に変えるソースコードです。

At this article, introducing some source codes to change graph into a single color.

上から、プロットエリア（内側）の色、チャートエリア（外側）の色、壁面の色、床面の色を単一色に変えます。４は緑です。３Ｄじゃないグラフで壁面、床面をセレクトするとエラーになります。

the following sample source codes are things to change chart into a single color.(ColorIndex=4 is green) . From the top, it's PlotArea, ChartArea, Walls, Floor. When it's not 3D graph and Walls or Floor is seleted,　an error will occur.

''------------------------------------------------------------------------
''-----------Change color of plotarea------------
''-------------------------------------------------------------------
Sub ChartArea_Color()
Application.ScreenUpdating = False

Sheets(1).Activate 
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub  ''---シートにグラフがない場合

ActiveSheet.ChartObjects(1).Activate

ActiveChart.PlotArea.Interior.ColorIndex = xlNone   ''一旦クリアする
     ActiveChart.PlotArea.Interior.ColorIndex = 4
   
Application.ScreenUpdating = True
End Sub
''------------------------------------------------------------------
''----------Change color of chartarea----------------
''---------------------------------------------------------------
Sub ChartArea_Color()
Application.ScreenUpdating = False

Sheets(1).Activate 
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub  ''---in case there's no graph on sheet

ActiveSheet.ChartObjects(1).Activate

With  ActiveChart
     .ChartArea.Interior.ColorIndex = xlNone  ''---Incantation, hahaha^^
     .ChartArea.Interior.ColorIndex = 4
   End With

Application.ScreenUpdating = True
End Sub

''-------------------------------------------------------------------
''--------Change color of walls (3D graph)
''----------------------------------------------------------
Sub ChartArea_Color()
Application.ScreenUpdating = False

Sheets(1).Activate 
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub

ActiveSheet.ChartObjects(1).Activate

ActiveChart.Walls.Interior.ColorIndex = xlNone
     ActiveChart.Walls.Interior.ColorIndex = 4  ''---Walls color (壁面)

Application.ScreenUpdating = True
End Sub
''-------------------------------------------------------------------
''--------Change color of Floor(3D graph)
''----------------------------------------------------------
Sub ChartArea_Color()
Application.ScreenUpdating = False

Sheets(1).Activate 
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub

ActiveSheet.ChartObjects(1).Activate

With ActiveChart
       .Floor.Interior.ColorIndex = xlNone
       .Floor.Interior.ColorIndex = 4    ''---Floor color (床面)
   End With

Application.ScreenUpdating = True
End Sub

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

The source code below is used in GraphControl.

Private Sub CommandButton_ChartArea_1Color_Click()
If NumChart = 0 Then Exit Sub ''----If the number of charts on sheet = 0 then exit sub

'If IsNumeric(ComboBox_ChartArea_1Color.Value) = True Then MsgBox "Error...Select from combobox!(1 to 56)", vbInformation

On Error Resume Next
ColorTemp = ComboBox_ChartArea_1Color.Value

If ColorTemp > 56 Or ColorTemp < 1 Then Exit Sub

Application.ScreenUpdating = False

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.Interior.ColorIndex = xlNone   ''一旦クリアする
     ActiveChart.PlotArea.Interior.ColorIndex = ColorTemp

ElseIf TabStrip_BackGround.Value = 1 Then
     ActiveChart.ChartArea.Interior.ColorIndex = xlNone
     ActiveChart.ChartArea.Interior.ColorIndex = ColorTemp

ElseIf TabStrip_BackGround.Value = 2 Then
     ActiveChart.Walls.Interior.ColorIndex = xlNone
     ActiveChart.Walls.Interior.ColorIndex = ColorTemp
  
   ElseIf TabStrip_BackGround.Value = 3 Then
     ActiveChart.Floor.Interior.ColorIndex = xlNone
     ActiveChart.Floor.Interior.ColorIndex = ColorTemp
   End If
   
 Next
 
ChartObject = CInt(TextBox30.Value)
Application.ScreenUpdating = True
End Sub

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | GraphControl > Excel グラフを単一色に変える(.PlotArea .ChartArea .Walls .Floor)

Return to page top