Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62420 / 76732 ←次へ | 前へ→

【18919】Re:散布図で表せるのかどうかがわかりません
回答  Kein  - 04/10/16(土) 11:01 -

引用なし
パスワード
   こんな感じで、どうでしょーか ? 表のあるシートを開いて実行して下さい。
E2:J20 の範囲にグラフを挿入します。

Sub MyChart_Add()
  Dim Ch As ChartObject
  Dim i As Long
 
  With Range("E2:J20")
   Set Ch = ActiveSheet.ChartObjects _
   .Add(.Left, .Top, .Width, .Height)
  End With
  With Ch.Chart
   .ChartType = xlXYScatterLines
   .SetSourceData Range("A1", Range("B65536").End(xlUp))
   .HasLegend = False
   .ChartTitle.Text = "気象条件と体温の関係" & vbLf & _
   "(データラベル = 体温)"
   With .SeriesCollection(1)
     .HasDataLabels = True
     For i = 1 To .Points.Count
      .Points(i).DataLabel.Text = Cells(i + 1, 3).Value
     Next i
   End With
  End With
  Set Ch = Nothing
End Sub

0 hits

【18881】散布図で表せるのかどうかがわかりません さつこ 04/10/15(金) 14:38 質問
【18895】Re:散布図で表せるのかどうかがわかりません カド 04/10/15(金) 17:42 お礼
【18906】Re:散布図で表せるのかどうかがわかりません こもれび 04/10/15(金) 18:40 発言
【18908】Re:散布図で表せるのかどうかがわかりません ni 04/10/15(金) 21:43 回答
【18910】Re:散布図で表せるのかどうかがわかりません こもれび 04/10/15(金) 23:36 発言
【18919】Re:散布図で表せるのかどうかがわかりません Kein 04/10/16(土) 11:01 回答
【18978】Re:散布図で表せるのかどうかがわかりません さつこ 04/10/18(月) 14:35 お礼
【18980】Re:散布図で表せるのかどうかがわかりません Kein 04/10/18(月) 15:16 発言
【18998】Kein さんへ さつこ 04/10/19(火) 11:16 回答
【19009】Re:Kein さんへ Kein 04/10/19(火) 14:17 回答
【19017】Kein さんへ さつこ 04/10/19(火) 15:14 お礼

62420 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free