回答編集履歴
3
編集上の修正3
test
CHANGED
@@ -26,4 +26,4 @@
|
|
26
26
|
|
27
27
|
この辺がミソです。
|
28
28
|
|
29
|
-
selectの部分はwithでくくってしまえばいりませんね。試すことはできませんが、線が非表示になっているとか、データラベルが近すぎて吹き出し部分が隠れてしまっている、とかにも注意してください。
|
29
|
+
selectの部分はwithでくくってしまえばいりませんね。手元のExcelのバージョンが試すことはできませんが、線が非表示になっているとか、データラベルが近すぎて吹き出し部分が隠れてしまっている、とかにも注意してください。
|
2
編集上の修正2
test
CHANGED
@@ -8,8 +8,22 @@
|
|
8
8
|
|
9
9
|
[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)
|
10
10
|
|
11
|
+
> Set dl = p.DataLabel
|
12
|
+
|
13
|
+
>
|
14
|
+
|
15
|
+
> With dl
|
16
|
+
|
17
|
+
> .Position = xlLabelPositionOutsideEnd
|
18
|
+
|
11
|
-
> .Format.AutoShapeType = msoShapeRectangularCallout
|
19
|
+
> .Format.AutoShapeType = msoShapeRectangularCallout
|
20
|
+
|
21
|
+
> .Format.Line.Visible = msoTrue
|
22
|
+
|
23
|
+
> End With
|
12
24
|
|
13
25
|
|
14
26
|
|
15
27
|
この辺がミソです。
|
28
|
+
|
29
|
+
selectの部分はwithでくくってしまえばいりませんね。試すことはできませんが、線が非表示になっているとか、データラベルが近すぎて吹き出し部分が隠れてしまっている、とかにも注意してください。
|
1
編集上の修正
test
CHANGED
@@ -10,4 +10,6 @@
|
|
10
10
|
|
11
11
|
> .Format.AutoShapeType = msoShapeRectangularCallout
|
12
12
|
|
13
|
+
|
14
|
+
|
13
15
|
この辺がミソです。
|