Excel Vba - ランタイムエラー1004セルの値にシリーズの数式を割り当てようとしたとき

Question

実行時エラーコード1004で固まった：アプリケーション定義またはオブジェクト定義。

すべてのチャートのすべてのシリーズ値を取得しようとすると、簡単に監視するためにセルに貼り付ける必要があります。すべて正常に動作しますが、セルにSeries Valueと等しい値を与えようとするとスタックします。

例：

Dim xchart As ChartObject 
For Each xchart In ActiveSheet.ChartObjects 

Dim ser As Series 

For Each ser In xchart.Chart.SeriesCollection 
...... 
    Sheet1.Range("a1").Value = ser.Formula ' Run-time Error Occur 
.... 
Next ser  
Next xchart 

誰がこの問題で私を助けてもらえますか？セル

に格納されているテキスト値を持っている

Answer 1

使用

Sheet1.Range("a1").Value = "'" & ser.Formula 

それ以外の場合は、（不明）式