実行時エラー '438'

この実行時エラー '438'に関するいくつかの記事がありますが、これを修正する方法はまだ分かりません。これは私の全体のコードです：https://pastebin.com/S6LigcWzが、問題の一部はこれです：実行時エラー '438'

With c.ChartData 
    .Activate 
    .Workbooks.Sheets(1).UsedRange.Clear 
    .Workbooks.Sheets(1).Range(A2).Select 
    .Selection.PasteSpecial xlPasteValues 
    .Workbooks.Close 
End With

このコードは、PPTに始まり、その後、PPTのチャートに貼り付けるし、Excelやコピーに「試行」の範囲になります。これは、コードに貼り付けようとしている部分と、エラーが発生している部分です。それは上のエラー.Workbooks.Sheets(1).UsedRange.Clear

助けていただければ幸いです。

出典

2017-09-21 Pinlop

を実行している必要はありませんので、私はWorkbooksの先頭からドットを取るでしょうか？ – jcarroll

オブジェクトはPowerpointを参照していますか？ – braX

私はpptで実行しています。マクロには代わりにExcelの参照があります。 @jcarroll – Pinlop

ChartDataあなたはパワーポイントやエクセルでこれをWorkbooksメンバー

出典

2017-09-21 19:25:23 DaBeau96

それはそれを行う必要があります。 'Worksheet'インスタンスだけでなく、' Sheets'コレクションが 'Chart'オブジェクトを返すことができることにも注意してください。そうでなければ、あなたは' Worksheets'コレクションを使用しなければなりません。 'UsedRange'を' Chart'から取り出します。 –

@Matのマグと同じように、ピリオドを削除するとエラーになるしかし、私はワークシートを自分のコードに追加する方法を見つけることができないようです...それはまだ 'With'ステートメントにありますか？これは私が考えることができる最高のものでした：https://pastebin.com/jfMv7NMdでも、私は 'Workbooks.Worksheets.Sheets（1）.UsedRange.Clear'と' Workbooks.Worksheets.UsedRange.Clear'を無駄にしてみました：（ "メソッドまたはデータメンバーが見つかりません" – Pinlop

あなたは何をしているのか分かりません... 'Worksheets（1）.UsedRange.Clear'。IntelliSenseは利用可能なメンバーを教えています。 –

実行時エラー '438'

答えて

関連する問題