| |
説明ありがとうございます。
やろうとしていることは大体わかっていた積もりです。
どこまでカスタマイズするかの割り切りの問題です。
私が念頭に置いていたのは、こんな話です。
・データラベルに、角度に応じて"→"もしくは"←"を書き、
それに適切な傾きを与えれば可能です。
・マーカーそのものは表示せず。
・データラベルのラベルの位置は「中央」
とします。
下記は、円に相当する36個の点をプロットした散布図において、
各点について、円から垂直に外に向いたベクトルを表示する例です。
参考になれば幸いです。
（Excel2010を使用していますが、バージョン依存でしたら失礼）
Sub test()
Dim k As Long
Dim theta As Double
For k = 0 To 35
theta = Cells(k + 2, 4).Value
With ActiveChart.SeriesCollection(1).Points(k + 1).DataLabel
Select Case theta
Case Is <= 90
.Text = "→"
.Orientation = theta
Case Is <= 270
.Text = "←"
.Orientation = theta - 180
Case Else
.Text = "→"
.Orientation = theta - 360
End Select
End With
Next
End Sub
図形を追加する方法も可能は可能だと思います。
それでは頑張って下さい。私はこれで。
|
|
rabbit
- 12/5/27(日) 16:51 -
