|
▼ぽぽ さん:
はじめまして。kanabunです
むかし、Chartの DisplayBlanksAs プロパティを利用する方法を
教えてもらったことがあります。
Sub try1()
Dim Cht As Chart
Set Cht = ActiveSheet.ChartObjects(1).Chart
Dim Ser As Series
Dim oldDISP As Long
Dim tstrSeriesFormula$
oldDISP = Cht.DisplayBlanksAs '現在の設定を保存
Cht.DisplayBlanksAs = xlZero '一時的に xlZero表示に!
For Each Ser In Cht.SeriesCollection
tstrSeriesFormula = Ser.Formula
'---Run-time error '1004': _
Unable to get the Formula property of the Series class
Debug.Print tstrSeriesFormula
Next
Cht.DisplayBlanksAs = oldDISP '元の設定に戻す
End Sub
|
|