グラフのデータラベルの図形の変更

Question

グラフのデータラベルの図形を吹き出しの四角形に変えたいのですができません。
マクロの記録で自動生成されたコードを参考にしてみて以下のように書いたんですが駄目でした。

    For Each s In ct.Chart.SeriesCollection
    
        s.HasDataLabels = True
        s.DataLabels.ShowCategoryName = True
        s.DataLabels.Position = xlLabelPositionOutsideEnd
       
        For Each dl In s.DataLabels
        
            dl.Select
            Selection.Format.AutoShapeType = msoShapeRectangularCallout

        Next
    Next

分かる方ご教示願います。

Comments

[退会済みユーザー]

Excel2013以降ですよね？

Answer 1

Excel 2013以降で実装された機能のようですので、2013以降のみ参照ください。

手元のExcelは2007なので細かいことには応えられませんが、Stackoverflowに解決策がありましたので参照ください。

Feel free to play with .AutoShapeType property

Set dl = p.DataLabel

With dl
.Position = xlLabelPositionOutsideEnd
.Format.AutoShapeType = msoShapeRectangularCallout
.Format.Line.Visible = msoTrue
End With

この辺がミソです。
selectの部分はwithでくくってしまえばいりませんね。手元のExcelのバージョンが試すことはできませんが、線が非表示になっているとか、データラベルが近すぎて吹き出し部分が隠れてしまっている、とかにも注意してください。

Comments

[pgnoobdesu]

２０１３以降です！出来ました！ありがとうございました！