|
どもども
>説明不足で申し訳ありません。
>円グラフで設定しているのです・・・。
あら・・・そうやったんか。
>円グラフだと、確かにグラフの内部でなく、
>外にラベルが表示されます。
>でも、「ここです」という線付きになっていないのですが、
>線付きにする方法があるのでしょうか??
んー、こちらでは特に指定したわけじゃなくて、
自然に線付きになってたんですけど・・・
すべてに線付きじゃなくて、0続いていたり、データがつんでたりする
場合のみ線付きになってました。
ちなみにこんなコード
Sub グラフ()
Dim ch As ChartObject
Set ch = ActiveSheet.ChartObjects.Add(100, 30, 400, 250)
With ch.Chart
.ChartType = xlPie
.SetSourceData Source:=ActiveSheet.Range("a1:g2"), _
PlotBy:=xlRows
.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent
End With
Set ch = Nothing
End Sub
元データは
りんご いちご みかん ばなな めろん ぶどう れもん
4 45 35 65 0 0 45
こんな感じ。
でも、グラフを作成してから、数字をでたらめにいじっていたら、
確かにラベルが重なったり、ぐちゃぐちゃになったりしてました。
POさんが作ってはるグラフのデータも、1つだけ飛び出て数字が大きいとか
そういうことないですか?
|
|