Home > Excel VBA | GraphControl > Excel 3Dグラフの回転設定(3D Chart Rotaion)

Excel 3Dグラフの回転設定(3D Chart Rotaion)

Posted by: WebMaster
2008年4月23日 07:56
Excel VBA | GraphControl

エクセル3Dグラフの回転の値を設定する。

setting up ActiveChart.Rotation of Excel chart.

訂正のお知らせ：３Ｄグラフの回転を設定するコードに誤りがありました。 Rotation = ActiveChart.Rotationの部分が Rotation = ActiveChart.Elevationとなっていました。訂正と改善した部分がありましたのでお知らせします。

以下のコードは3Dグラフの回転の値を10 アップさせます。回転の範囲は0～360ですので、範囲外のケースでイグジットします。.Rotation のデータ型に合わせて変数 Rotation を Long で宣言してます。 3Dグラフの壁面または床面を一旦select します。変数 Rotation に指定したグラフの現在の回転の値を格納します。そして１０を足して設定します。

The code below is to increase rotation of chart by 10. Store the value of activechart.Rotaion to var Rotation which is declared as long. The range of Rotation is from 0 to 360, so that in case the elevation+10 exceed 360, exit sub.

GraphControl で使用しているコードです。

the code below is used in GraphControl.

''---------------------------------------------------------------
''-------------回転の値を大きくする--------------
''-------------------------------------------------------------
Private Sub Com_Rotation1_Click()
If NumChart = 0 Then Exit Sub
On Error Resume Next
Dim Rotation&

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
   
   Rotation = ActiveChart.Rotation + CInt(TextBox41.Value)
   If Rotation > 360 Then Exit For
   ActiveChart.Rotation = Rotation
 Next
 
If CheckBox4.Value = False Then
 Label3d2_1.Caption = "Chart:" & CStr(TextBox30.Value)
 Label3d2_2.Caption = "回転:" & Rotation
 DoEvents
Else
 Label3d2_1.Caption = "Chart:all"
 Label3d2_2.Caption = ""
 DoEvents
End If

ChartObject = CInt(TextBox30.Value)

Application.ScreenUpdating = True
End Sub

''--------------------------------------------------------------------------------
''-----------回転の値を低くする--------------------------------------------
''--------------------------------------------------------------------------------
Private Sub Com_Rotation2_Click()
If NumChart = 0 Then Exit Sub
On Error Resume Next
Dim Rotation&

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
   
   Rotation = ActiveChart.Rotation - CInt(TextBox41.Value)
   If Rotation < 0 Then Exit For
   ActiveChart.Rotation = Rotation
 Next
 
If CheckBox4.Value = False Then
 Label3d2_1.Caption = "Chart:" & CStr(TextBox30.Value)
 Label3d2_2.Caption = "回転:" & Rotation
 DoEvents
Else
 Label3d2_1.Caption = "Chart:all"
 Label3d2_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 Rotaion)

Return to page top