Sub grInterpolate()
'シート上の全折れ線グラフの0値を補完してプロット
'2005/06/11 pPoy
    Dim cht As ChartObject
    
    '全ての埋め込みグラフをループ
    For Each cht In ActiveSheet.ChartObjects
        '0値を補完
        cht.Chart.DisplayBlanksAs = xlInterpolated
    Next cht
End Sub

• この処理は、折れ線グラフと線で結ばれた XY グラフに有効です。
  ただし、全グラフに対してこの処理を実行しますので、本来設定できないはずの
  円グラフ等も設定されてしまいます。(悪影響はありませんが)
  それを避けたい場合は、グラフの種類によって分岐させるコードを追加してください。
  
  
• この処理はグラフの全系列が対象となります。
  
  
• この処理は、「空白」 のセルの値のみを補完します。
  （ Delete キーで削除した状態、もしくは未入力状態のセルです ）
  「スペース」 や 「長さ 0 の文字列」 ( "" などの式) がセルに入力されていた場合は
  そのままの値が 0 として表示されます。
  
  
• この作業は元に戻せません。　必ずバックアップを取ってから実行してください。
  
  
• 手動で１つずつ設定する方法は、こちら です。