Excelのグラフから空の特定の水平軸ラベルの選択を解除するvbaコード

Question

Excelの横棒グラフを横軸のラベルにしました。グラフに示されているように、タイトルラベルのいくつかは空白です。これらのラベルは、どのようにして軸ラベルから選択解除することができますか？vbaコードによってグラフに表示されません。

は、私はちょうどチャートCollectionSeriesのXValuesを構築することにより、全選択解除の事を回避し、必要な特定の細胞に基づいた文字列を値...

Answer 1

を、あなたとあなたの助けがはるかに高く評価されてありがとうございました。空の空のセルを避ける。

Dim chartPhaseXValues As String 
Dim chartDurationValues As String 
'For Loop Here 
chartPhaseXValues = chartPhaseXValues & oExcel.ActiveSheet.Name & "!" & _ 
        oExcel.Range("A1").Offset(rowCount, 1).Address & "," 
hartDurationValues = chartDurationValues & oExcel.ActiveSheet.Name & "!" & _ 
        oExcel.Range("A1").Offset(rowCount, 4).Address & "," 
'End For Loop 

' Remove the trailing , at the end of each string 
chartPhaseXValues = Left(chartPhaseXValues, Len(chartPhaseXValues) - 1) 
chartDurationValues = Left(chartDurationValues, Len(chartDurationValues) - 1) 

' Add the Series to the graph 
oExcel.ActiveChart.SeriesCollection.NewSeries 
oExcel.ActiveChart.FullSeriesCollection(1).Name = "=""StartDate""" 
oExcel.ActiveChart.FullSeriesCollection(1).Values = "=" & chartDurationValues 
oExcel.ActiveChart.FullSeriesCollection(1).XValues = "=" & chartPhaseXValues