1. よねさんのExcelとWordの使い方 » 
2. エクセル2010基本講座：目次 » 
3. グラフの使い方 » 
4. 散布図の作成

エクセル2010基本講座：散布図の作成

• このページではExcel2010を使った散布図の作成方法を書いています。
  Excel2013での操作方法は　Excel2013基本講座：散布図（XYグラフ）を作成する　をご覧ください。

テータリストの作成　　　　　Topへ

• 下表のようなデータを例に散布図を作成してみます。

  • 	B	C	D	E
    2	都道府県	人口	面積	人口密度
    3	福岡県	5,066,856	4,977.20	1018.01
    4	佐賀県	852,825	2,439.65	349.57
    5	長崎県	1,432,236	4,105.05	348.90
    6	熊本県	1,815,985	7,405.84	245.21
    7	大分県	1,197,220	6,339.58	188.85
    8	宮崎県	1,132,768	7,734.84	146.45
    9	鹿児島県	1,711,746	9,188.74	186.29
    10	沖縄県	1,385,725	2,275.96	608.85

散布図の作成　　　　　Topへ

1. X軸(横軸)とY軸(縦軸)にするデータを選択します。
   例のデータではC3:D10を選択します。
2. [ホーム]タブの[グラフ]グループにある[散布図]→[散布図(マーカーのみ)]を実行します。
   • 
3. 散布図が作成されました。
   

データ要素にラベルを付ける（VBA,マクロ)　　　　　Topへ

• Excel2010のグラフ機能では散布図でデータにラベルを付けることができませんのでVBA(マクロ)を利用します。
  • Excel2013ではデータラベルの機能が強化され、一般機能で可能になっています。
    データラベルを表示する　をご覧ください。
• Microsoftの資料にサンプルコードがありますのでそれを利用したいと思います。
  • Excel 2007 で VBA マクロを使用して散布図またはバブル チャートのデータ要素にラベルを付加する方法
    http://support.microsoft.com/kb/914813/ja
• このページの手順は以下のようになります。
  1. グラフを選択します。
  2. 「グラフツール」リボンの[デザイン]タブを選択し、[場所]グループにある[グラフの移動]を実行します。
     
  3. グラフの移動ダイアログで「新しいシート」にチェックを入れます。
     
• サンプルコードをVBEに貼り付けます。
  1. [Alt]+[F11]キーを押して Visual Basic Editor を起動します。
  2. [挿入] メニューの [標準モジュール] をクリックします。
     サンプルコードをモジュール シートに貼り付けます。
     
  3. VBEの[閉じる]ボタンをクリックしてVBEを閉じます。
• VBA(マクロ)を実行して、データ要素にラベルを付けます。
  1. グラフシート(Graph1)を選択します。
  2. [開発]タブの[コード]グループにある[マクロの表示」を実行します。
     
     • 開発タブが表示されていないときは以下の操作が必要です。
       1. [ファイル]→[オプション]を実行します。
          または、リボンの部分を右クリックして[リボンのユーザー設定]を実行します。
       2. [リボンのユーザー設定]を選択し、「リボンのユーザー設定」で「メインタブ」の「開発」のチェックボックスをオンにします。
          
  3. マクロ名「AttachLabelsToPoints」を選択して[実行]ボタンをクリックします。
     
  4. データ要素にラベルが付きました。
     
  5. シートのグラフを貼り付けたいときは、「グラフツール」リボンの[デザイン]タブを選択し、[場所]グループにある[グラフの移動]を実行します。
     
• また、以下のようなコードでもラベルを付けることができました。
  • グラフをアクティブにしてVBA(マクロ）を実行します。
    

    Sub test() 　　Dim i As Integer 　　Dim D_Label As Variant 　　　　'ラベルに使うセル範囲を指定します。 　　　　D_Label = Sheets("Sheet1").Range("B2:B9").Value 　　　　With ActiveChart.SeriesCollection(1) 　　　　　　.ApplyDataLabels 　　　　　　For i = 1 To .Points.Count 　　　　　　　　.Points(i).DataLabel.Text = D_Label(i, 1) 　　　　　　Next i 　　　　End With End Sub

横軸/縦軸の設定を変更する　　　　　Topへ

• 縦軸部分をダブルクリックすると、[軸の書式設定]ダイアログが開きます。
  • または、グラフを選択した状態で、グラフツールリボンの[書式]タブまたは[レイアウト]タブで、「縦(値)軸」を選択し、「選択対象の書式設定]を実行します。
    
• 横軸(X軸)は「軸の書式設定」で「軸のオプション」を選択して下図のように設定しました。
  
• 縦軸(Y軸)は下図のように「軸の書式設定」で[表示形式]を選択して、小数点以下の桁数を「0」としました。
  

横軸/縦軸を入れ替える　　　　　Topへ

• 縦軸（Y軸)と横軸(X軸)を入れ替えたいときは?
  1. グラフツールリボンの[デザイン]タブの[データ]グループにある[データの選択]を実行します。
     
  2. [編集]ボタンをクリックします。
     
  3. 系列Xの値と系列Yの値に適切なセル範囲を設定します。
     
  4. 横軸(X軸)や縦軸(Y軸)の「軸のオプション」や「表示形式」を上述と同様に修正します。
     軸の値を入れ替えたグラフができました。
     • データのラベルは選択して移動ができますので、マーカーと重なる部分は移動して位置を調整します。