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

名前

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

本文

お世話になっております。

Win2000、エクセル2000、VBA(エクセルについてるやつ)

グラフの数値を16進で表示したいのですが、
どのようにしたらいいのか検討もつきません。
どなたかご教授願います。

Private Sub メイン()
    Y1 = "10,50,60,20"
    Y2 = "50,10,100,60"
    X = "1,2,5,10"	 '←10をA(16進数)にしたい！
    
    Call DrawLineGraph(LineValue)
End Sub

Private Sub DrawLineGraph( X1 As String, Y1 As String, Y2 As String )
    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 = X
        .SeriesCollection(1).Values = Y1
               
        .SeriesCollection.NewSeries
        .SeriesCollection(2).XValues = X
        .SeriesCollection(2).Values = Y2
        
        .ApplyCustomType xlBuiltIn, "2 軸上の折れ線"
        
        'タイトル
        .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"
        
    End With
    
    Set myChartObject = Nothing

End Sub

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

戻る