[[20120209103505]]　『グラフのデータラベルの数値の表示形式の一括変換』（あああ）　ページの最後に飛ぶ

『グラフのデータラベルの数値の表示形式の一括変換』（あああ）

グラフのデータラベルの数値の表示形式を一括で変換できるようなマクロを教えていただけないでしょうか。

具体的には、棒グラフが多数載っているファイルのシートを別のファイルにコピーすると、なぜか数値が「整数表示⇒小数点を数桁表示」に変わってしまうという事態が起きており困っています。

この棒グラフはマクロを用いて作成しているのですが、ファイルを受け継いだだけですのでマクロの詳細はわかりません。

表示を一つ一つ直していくのは、グラフが大量なので避けたく思います。

エクセルのバージョンは2003で、ＯＳはWindows 7をxpにダウングレードしたものを使用しております。

どうぞよろしくお願いいたします。

 こんにちは～
 あるグラフの系列1のDataLabel の表示形式を "0_ " にする操作のマクロ記録を
 とると以下のようになります。

 Sub Macro2()
 ' マクロ記録日 : 2012/2/9  ユーザー名 : kanabun
 '
    ActiveSheet.ChartObjects("グラフ 2").Activate
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.NumberFormatLocal = "0_ "
 End Sub

 これをもとに、目的に合わせてマクロを拡大すればいいでしょう。
 （例）
  '対象Bookのすべてのシートのすべての埋め込みグラフで
  'DataLabelが設定してあるすべての系列の 表示形式を「整数表示」に設定する
 Sub FormatAll_DataLabels()
    Dim ws As Worksheet
    Dim obj As ChartObject
    Dim Ser As Series

    For Each ws In ActiveWorkbook.Worksheets
        For Each obj In ws.ChartObjects
            For Each Ser In obj.Chart.SeriesCollection
                If Ser.HasDataLabels Then
                    Ser.DataLabels.NumberFormatLocal = "0_ "
                End If
            Next
        Next
    Next
 End Sub

  (kanabun) 2012-2-9 11:12

（あああ）
記載いただいたマクロで解決しました！！
本当にありがとうございます！！

コメント返信：

[ 一覧(最新更新順) ]

[[20120209103505]] 『グラフのデータラベルの数値の表示形式の一括変換』（あああ） ページの最後に飛ぶ

[[20120209103505]]　『グラフのデータラベルの数値の表示形式の一括変換』（あああ）　ページの最後に飛ぶ