エクセルのグラフの数値を16進数で表示するには (ID：82565)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

質問がごっちゃになってしまいました。
とりあえずソースを下記のようにしてみました。
X軸の未解決ですが、問題は少しだけ良くなりました。
16進数表示に関してはまださっぱりわかりません。

'2軸上の折れ線図の設定値用構造体
Private Type LINE_VALUE
    X1 As String     'X軸のデータ(範囲を指定)
    X2 As String     'X軸のデータ(範囲を指定)
    Y1 As String     'Y軸(左)のデータ(範囲を指定)
    Y2 As String     'Y軸(右)のデータ(範囲を指定)
End Type

Private Sub メイン()
	'2軸上の折れ線図の設定値
	Dim LineValue As LINE_VALUE

LineValue.Y1 = "10,50,60,20"
    LineValue.X1 = "1,2,4,5"
    LineValue.Y2 = "50,10,100,60"
    LineValue.X2 = "1,2,4,5"
    
    Call DrawLineGraph(LineValue)
End Sub

'グラフ表示
Private Sub DrawLineGraph(LineValue As LINE_VALUE)
    On Error GoTo ErrorTrap
    Dim myChartObject As Excel.ChartObject
    
    Set myChartObject = ActiveSheet.ChartObjects.Add(160, 80, 320, 200)
    myChartObject.Name = "NewChart01"   '初期値のままでもOK

With myChartObject.Chart
        'チャートを設定する前には、あらかじめデータをセットしておく必要があります。
        
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = LineValue.X1
        .SeriesCollection(1).Values = LineValue.Y1
        
        .SeriesCollection.NewSeries
        .SeriesCollection(2).XValues = LineValue.X2
        .SeriesCollection(2).Values = LineValue.Y2
        
        .ApplyCustomType xlBuiltIn, "2 軸上の折れ線" 
        '↑これをしないとY軸2のText設定でエラー
        
        'タイトル
        .HasTitle = True
        .ChartTitle.Characters.Text = "TITLE"
        'X軸1
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "X"
        'Y軸1
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Y1"
        'Y軸2
        .Axes(xlValue, xlSecondary).HasTitle = True
        .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Y2"
        
        .SeriesCollection(1).ChartType = xlXYScatterLines
        .SeriesCollection(2).ChartType = xlXYScatterLines

'.ChartType = xlXYScatterLines    '←これではY軸(右)が消えてしまう。

End With
    Set myChartObject = Nothing
    
Exit Sub
ErrorTrap:
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る