Home > Excel VBA | GraphControl > Excel 3Dグラフの高さ設定(3D Chart Height percentage)

Excel 3Dグラフの高さ設定(3D Chart Height percentage)

Posted by: WebMaster
2008年4月15日 08:29
Excel VBA | GraphControl

エクセル３ＤグラフのＸ軸高さの比率を設定するマクロを紹介します。

introducing the excel's source code of setting the 3D chart (.HeightPercent).

下のコードは、グラフ(1)のＸ軸の高さ（％）を１０アップさせるマクロです。高さの範囲は0～100%ですので100を超えたらイグジットします。変数HeightPをLong型で宣言して、高さを一旦格納して、１０足した値でグラフを設定します。

The code below is to increase height of the selected chart by 10. Declare var HeightP as Long and store the value of HeightPercent. Before setting the value of 3D chart, invalidate automatic scalling of X-axis. The range of HeightPercent is from 0 to 100, so that in case the value exceed 100 then exit sub.

下記はGraphControl で使用しているマクロです。スピンボタンを使う方法もありますが、GraphControl のコードは高さを増減させるためにコマンドボタンを２つ使っています。

The code below is the source code used in GraphControl. I use two command buttons to increase and decrease the value of HeightPercent. It's also possible to use spinbutton instead of command buttons. var NumChart indicate the number of charts on selected sheet.

Private Sub Com_HeightP1_Click() ''---CommandButton_Click Event（クリックイベント）
If NumChart = 0 Then Exit Sub  ''if the number of chart on sheet = 0 then exit sub
On Error Resume Next
Dim HeightP&   ''declare HeightP as Long

Application.ScreenUpdating = False
If CheckBox4.Value = True Then  ''if all charts are selected 
 Temp1 = 1: Temp2 = NumChart  ''var NumChart indicate the number of charts on the sheet
Else
 Temp1 = ChartObject: Temp2 = ChartObject
End If

For ChartObject = Temp1 To Temp2
   ActiveSheet.ChartObjects(ChartObject).Activate
   With ActiveChart
    .Walls.Select
    .AutoScaling = False
    
    HeightP = .HeightPercent
    If HeightP >= 100 Then Exit For
    
    .HeightPercent = HeightP + CInt(TextBox43.Value)  ''increase HeightPercent by textbox43.value
   End With
 Next
 
If CheckBox4.Value = False Then
 Label3d4_1.Caption = "Chart:" & CStr(TextBox30.Value)
 Label3d4_2.Caption = "高さ:" & HeightP
 DoEvents
Else
 Label3d4_1.Caption = "Chart:all"
 Label3d4_2.Caption = ""
 DoEvents
End If

ChartObject = CInt(TextBox30.Value)
Application.ScreenUpdating = True
End Sub
''-------------------------------------------------------------------------
''----------------------decrese height percent of chart------------
''-------------------------------------------------------------------------
Private Sub Com_HeightP2_Click()
If NumChart = 0 Then Exit Sub
On Error Resume Next
Dim HeightP&

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

If CheckBox4.Value = False Then
 Label3d4_1.Caption = "Chart:" & CStr(TextBox30.Value)
 Label3d4_2.Caption = "高さ:" & HeightP
 DoEvents
Else
 Label3d4_1.Caption = "Chart:all"
 Label3d4_2.Caption = ""
 DoEvents
End If

ChartObject = CInt(TextBox30.Value)
Application.ScreenUpdating = True
End Sub

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | GraphControl > Excel 3Dグラフの高さ設定(3D Chart Height percentage)

Return to page top