Home > Excel VBA | GraphControl > Excel 3Dグラフの仰角設定(3D Chart Elevation)

Excel 3Dグラフの仰角設定(3D Chart Elevation)

Posted by: WebMaster
2008年4月15日 07:06
Excel VBA | GraphControl

エクセルの３Ｄグラフの仰角を調整するマクロを紹介します。

以下のコードは3Dグラフの仰角の角度を10 アップさせます。仰角の範囲は-90～90ですので、範囲外のケースでイグジットします。.Elevation のデータ型に合わせて変数 Elv を Long で宣言してます。　Elv as long も Elv& も同じです。 3Dグラフの壁面または床面を一旦select します。変数 Elv に指定したグラフの現在の仰角の角度の値を格納します。角度に１０足して仰角設定します。

The code below is to increase elevation of chart by 10. Store the value of activechart.elevation to var Elv which declare as long. The range of elevation is from -90 to 90, so that in case the elevation+10 exceed 90, 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 elevation. It's also possible to use spinbutton instead of command buttons.

Private Sub Com_Elevation1_Click() ''---Commandbutton_Click Event
If NumChart = 0 Then Exit Sub　　''if number of charts on selected sheet = 0, exit sub
On Error Resume Next
Dim Elv&

Application.ScreenUpdating = False
If CheckBox4.Value = True Then   ''---if all charts are selected
 Temp1 = 1: Temp2 = NumChart
Else
 Temp1 = ChartObject: Temp2 = ChartObject
End If

For ChartObject = Temp1 To Temp2
   ActiveSheet.ChartObjects(ChartObject).Activate
   ActiveChart.Walls.Select
   
   Elv = ActiveChart.Elevation
   If Elv >= 90 Then Exit For
   ActiveChart.Elevation = Elv + CInt(TextBox40.Value) ''---increase by the value of textbox40
 Next

If CheckBox4.Value = False Then  ''if a specific chart is selected
 Label3d1_1.Caption = "Chart:" & CStr(TextBox30.Value)
 Label3d1_2.Caption = "仰角:" & Elv
 DoEvents
Else
 Label3d1_1.Caption = "Chart:all"     ''---else all charts are selected
 Label3d1_2.Caption = ""
 DoEvents
End If
ChartObject = CInt(TextBox30.Value)  ''---return a value of ChartObject to textbox30

Application.ScreenUpdating = True
End Sub

''--------------------------------------------------------------------------------
''-----------仰角を角度を低くする--------------------------------------------
''--------------------------------------------------------------------------------
Private Sub Com_Elevation2_Click()
If NumChart = 0 Then Exit Sub
On Error Resume Next
Dim Elv&

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
   ActiveChart.Walls.Select
   
   Elv = ActiveChart.Elevation
   If Elv <= -90 Then Exit For
   ActiveChart.Elevation = Elv - CInt(TextBox40.Value)
 Next
If CheckBox4.Value = False Then
 Label3d1_1.Caption = "Chart:" & CStr(TextBox30.Value)
 Label3d1_2.Caption = "仰角:" & Elv
 DoEvents
Else
 Label3d1_1.Caption = "Chart:all"
 Label3d1_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 Elevation)

Return to page top