Option Strict On Imports System.Windows.Forms.DataVisualization.Charting Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '1)ChartAreasプロパティのAxisXプロパティのIsLogarithmicプロパティをTrueに設定して実行 Dim ca As New ChartArea("DummyArea") ca.AxisX.IsLogarithmic = True ca.AxisY.IsLogarithmic = False Dim sr As New Series("DummySeries") sr.ChartType = SeriesChartType.Bar sr.ChartArea = ca.Name sr.XAxisType = AxisType.Primary sr.YAxisType = AxisType.Primary '2)SeriesプロパティのXValusTypeをDoubleに sr.XValueType = ChartValueType.Double sr.YValueType = ChartValueType.Int32 'そのあと、AddXYメソッドで、Y軸に0、X軸にDouble.MaxValueを指定 sr.Points.AddXY(Double.MaxValue, 0) sr.Points.AddXY(7.0E+307, 1) sr.Points.AddXY(3.2E+251, 2) sr.Points.AddXY(4.7E+192, 3) sr.Points.AddXY(6.1E+135, 4) sr.Points.AddXY(5.9E+81, 5) sr.Points.AddXY(2.9E+45, 6) sr.Points.AddXY(1.9E+15, 7) Chart1.ChartAreas.Clear() Chart1.Series.Clear() Chart1.ChartAreas.Add(ca) Chart1.Series.Add(sr) End Sub End Class