空のシリーズを削除するVBA

Excelのチャートから空のシリーズを削除したいと思います。私はこのコードを試しましたが、if文に問題があります。空のシリーズを削除するVBA

Sub UpdateChart() 
    Dim i As Integer 
    For i = ActiveChart.SeriesCollection.Count To 1 Step -1 
     If ActiveChart.SeriesCollection(i).Values = 0 Then 
      ActiveChart.SeriesCollection(i).Delete 
     End If 
    Next i 
End Sub

出典

2016-04-26 Joel Kanerva

私は、アイテムのSeriesCollectionはそのSerieCollection項目にポイントを介しので、多分ループ再び、チャート上の点の集合であることを考えると、ポイントの値が0に等しいかどうかを確認？ – ga56mor

空のデータセットでも配列が...これを試してみてください： 'UBound（ActiveChart.SeriesCollection（i）.Values）<= 1 Then' –

はいいいえ、SeriesCollectionアイテムは点の値を保持する配列です – ga56mor

空白のセルを削除しようとしましたか？

Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp

または空白のデータがある範囲全体を削除する必要がある場合は、このようなものを使用できます。

Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

出典

2016-04-26 13:38:13 Alex

空のシリーズを削除するVBA

答えて

関連する問題