みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル2000のマクロについて教えて下さい。

グラフデータを設定したのち180度
回転をさせたいのですが・・・
例)を記述させていただきますが、その中で追加及び変更する項目
があるとおもいますので
よろしくお願いします。

  例)

    ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("担当者別集計").Range("A1:A16,d1:e16"), _
PlotBy:=xlColumns
Dim ch As Chart, i As Integer
ActiveSheet.ChartObjects("グラフ 1").Activate
Set ch = Charts.Add(ではなく("グラフ 1")を設定したい。
ch.ChartType = xl3DColumn
ch.SetSourceData Source:=Sheets("担当者別集計").Range("A1:A16,d1:e16")
For i = 1 To 180 Step 5
ch.Elevation = -i / 2
ch.Rotation = i
Next i

For i = 180 To 1 Step -5
ch.Elevation = -i / 2
ch.Rotation = i
Next i
  

投稿日時 - 2002-07-25 11:45:28

QNo.322017

すぐに回答ほしいです

質問者が選んだベストアンサー

グラフを回転させてみました。こういうことで回答になります?ご参考に。

Sub ChartRotate()
  Dim i As Long

  ActiveSheet.ChartObjects("グラフ 1").Activate
  With ActiveChart
    .PlotArea.Select
    For i = 1 To 180 Step 5
      .Elevation = -i / 2
      .Rotation = i
    Next

    For i = 180 To 1 Step -5
      .Elevation = -i / 2
      .Rotation = i
    Next
  End With
End Sub

投稿日時 - 2002-07-25 15:03:56

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問