Home > Excel VBA | GraphControl > Excel グラフのパターン色 (.Fill.Patterned Pattern)

Excel グラフのパターン色 (.Fill.Patterned Pattern)

Posted by: WebMaster
2008年4月24日 08:16
Excel VBA | GraphControl

エクセルグラフをパターン色にする。

名前	Name	.Fill.Patterned Pattern:=
5%	5Percent	msoPattern5Percent
10%	10Percent	msoPattern10Percent
20%	20Percent	msoPattern20Percent
25%	25Percent	msoPattern25Percent
30%	30Percent	msoPattern30Percent
40%	40Percent	msoPattern40Percent
50%	50Percent	msoPattern50Percent
60%	60Percent	msoPattern60Percent
70%	70Percent	msoPattern70Percent
75%	75Percent	msoPattern75Percent
80%	80Percent	msoPattern80Percent
90%	90Percent	msoPattern90Percent
うろこ	Shingle	msoPatternShingle
ざらざら	Trellis	msoPatternTrellis
ひし形_強調	SolidDiamond	msoPatternSolidDiamond
ひし形_点	DottedDiamond	msoPatternDottedDiamond
ひし形_枠のみ	OutlinedDiamond	msoPatternOutlinedDiamond
れんが_横	HorizontalBrick	msoPatternHorizontalBrick
れんが_斜め	DiagonalBrick	msoPatternDiagonalBrick
右下がり対角線_太	WideDownwardDiagonal	msoPatternWideDownwardDiagonal
右下がり対角線_破線	DashedDownwardDiagonal	msoPatternDashedDownwardDiagonal
右下がり対角線_反転	DarkDownwardDiagonal	msoPatternDarkDownwardDiagonal
右下がり対角線	DownwardDiagonal	msoPatternLightDownwardDiagonal
右上がり対角線_太	WideUpwardDiagonal	msoPatternWideUpwardDiagonal
右上がり対角線_破線	DashedUpwardDiagonal	msoPatternDashedUpwardDiagonal
右上がり対角線_反転	DarkUpwardDiagonal	msoPatternDarkUpwardDiagonal
右上がり対角線	UpwardDiagonal	msoPatternLightUpwardDiagonal
横線_太	DarkHorizontal	msoPatternDarkHorizontal
横線_破線	DashedHorizontal	msoPatternDashedHorizontal
横線_反転	NarrowHorizontal	msoPatternNarrowHorizontal
横線	Horizontal	msoPatternLightHorizontal
格子_小	SmallGrid	msoPatternSmallGrid
格子_大	LargeGrid	msoPatternLargeGrid
格子_点	DottedGrid	msoPatternDottedGrid
球	Sphere	msoPatternSphere
市松模様_小	SmallCheckerBoard	msoPatternSmallCheckerBoard
市松模様_大	LargeCheckerBoard	msoPatternLargeCheckerBoard
紙ふぶき_小	SmallConfetti	msoPatternSmallConfetti
紙ふぶき_大	LargeConfetti	msoPatternLargeConfetti
縦線_太	DarkVertical	msoPatternDarkVertical
縦線_破線	DashedVertical	msoPatternDashedVertical
縦線_反転	NarrowVertical	msoPatternNarrowVertical
縦線	Vertical	msoPatternLightVertical
小波	Wave	msoPatternWave
大波	ZigZag	msoPatternZigZag
切り込み	Divot	msoPatternDivot
編み込み	Plaid	msoPatternPlaid
網目	Weave	msoPatternWeave

下記ソースコードは、シート１＆グラフ１のプロットエリアを白と緑の５％のパターン色にします。それ以外は、チャートエリア、壁面、床面をセレクトします。

This sample procedure is to set plotArea of chart to 5%(white&green) pattern. If you wanna change the color of chartArea, select chartArea as written.

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

The source code below is used in GraphControl.

Private Sub CommandButton38_Click()
If NumChart = 0 Then Exit Sub
On Error Resume Next
Dim exitSub%

'If IsNumeric(ComboBox_Pattern_Color1.Value) = false And IsNumeric(ComboBox_Pattern_Color2.Value) = false Then exit sub
ColorTemp = CInt(ComboBox_Pattern_Color1.Value)
ColorTemp2 = CInt(ComboBox_Pattern_Color2.Value)

If ColorTemp > 56 Or ColorTemp < 1 Then Exit Sub
If ColorTemp2 > 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.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_Pattern
  Select Case CStr(.Value)
   Case "Pct5"
         Selection.Fill.Patterned Pattern:=msoPattern5Percent
         Selection.Fill.Visible = True
         Selection.Fill.ForeColor.SchemeColor = ColorTemp
         Selection.Fill.BackColor.SchemeColor = ColorTemp2
   Case "Pct10"
          Selection.Fill.Patterned Pattern:=msoPattern10Percent
          Selection.Fill.Visible = True
          Selection.Fill.ForeColor.SchemeColor = ColorTemp
          Selection.Fill.BackColor.SchemeColor = ColorTemp2
   Case "Pct20"
          Selection.Fill.Patterned Pattern:=msoPattern20Percent
          Selection.Fill.Visible = True
          Selection.Fill.ForeColor.SchemeColor = ColorTemp
          Selection.Fill.BackColor.SchemeColor = ColorTemp2
   Case "Pct25"
          Selection.Fill.Patterned Pattern:=msoPattern25Percent
          Selection.Fill.Visible = True
          Selection.Fill.ForeColor.SchemeColor = ColorTemp
          Selection.Fill.BackColor.SchemeColor = ColorTemp2

''--------------------------rest is ommited----------------------------
''--------------------------省略------------------------------------
      
   End Select
  End With
 Next
exitSub:
ChartObject = CInt(TextBox30.Value)
 
Application.ScreenUpdating = True
'ActiveChart.Deselect
End Sub

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | GraphControl > Excel グラフのパターン色 (.Fill.Patterned Pattern)

Return to page top