回答編集履歴
3
編集上の修正３
answer
CHANGED
|
@@ -12,4 +12,4 @@
|
|
|
12
12
|
> End With
|
|
13
13
|
|
|
14
14
|
この辺がミソです。
|
|
15
|
-
selectの部分はwithでくくってしまえばいりませんね。試すことはできませんが、線が非表示になっているとか、データラベルが近すぎて吹き出し部分が隠れてしまっている、とかにも注意してください。
|
|
15
|
+
selectの部分はwithでくくってしまえばいりませんね。手元のExcelのバージョンが試すことはできませんが、線が非表示になっているとか、データラベルが近すぎて吹き出し部分が隠れてしまっている、とかにも注意してください。
|
2
編集上の修正２
answer
CHANGED
|
@@ -3,6 +3,13 @@
|
|
|
3
3
|
手元のExcelは2007なので細かいことには応えられませんが、Stackoverflowに解決策がありましたので参照ください。
|
|
4
4
|
|
|
5
5
|
[Feel free to play with .AutoShapeType property](https://stackoverflow.com/questions/36153972/is-there-a-way-to-add-a-callout-label-to-a-point-in-a-chart-without-using-selec)
|
|
6
|
+
> Set dl = p.DataLabel
|
|
7
|
+
>
|
|
8
|
+
> With dl
|
|
9
|
+
> .Position = xlLabelPositionOutsideEnd
|
|
6
|
-
>
|
|
10
|
+
> .Format.AutoShapeType = msoShapeRectangularCallout
|
|
11
|
+
> .Format.Line.Visible = msoTrue
|
|
12
|
+
> End With
|
|
7
13
|
|
|
8
|
-
この辺がミソです。
|
|
14
|
+
この辺がミソです。
|
|
15
|
+
selectの部分はwithでくくってしまえばいりませんね。試すことはできませんが、線が非表示になっているとか、データラベルが近すぎて吹き出し部分が隠れてしまっている、とかにも注意してください。
|
1
編集上の修正
answer
CHANGED
|
@@ -4,4 +4,5 @@
|
|
|
4
4
|
|
|
5
5
|
[Feel free to play with .AutoShapeType property](https://stackoverflow.com/questions/36153972/is-there-a-way-to-add-a-callout-label-to-a-point-in-a-chart-without-using-selec)
|
|
6
6
|
> .Format.AutoShapeType = msoShapeRectangularCallout
|
|
7
|
+
|
|
7
8
|
この辺がミソです。
|