1

pastspecialメソッドを使用して、コピーしたグラフをビットマップとして別のワークシートに貼り付ける方法はありますか。現在、これは私の構文です-

PasteSheet.PasteSpecial (Format:="Bitmap", Link:=False, DisplayAsIcon:=False)

PasteSheetは、貼り付けたいもう1つのワークシートです。現在このコードでは、アクティブなシートにのみ貼り付けています。selectを使用してコピーし、貼り付け先のページを選択してから、コピー元のシートに戻す必要がありますか？シーツがたくさんあるので、そうしないといいのですが。

ありがとうございました

編集：グラフをchartobjectではなく図形としてコピーすると、pasteSpecialメソッドを使用して別のシートに貼り付けることができることがわかりました。そうは言っても、チャートを互いに貼り付けて1つのメガチャートを作成します。

GraphSheet.Shapes(chtName).Copy 
PasteSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:=False , _
     DisplayAsIcon:=False
4

2 に答える 2

2

これは、Sheet2をアクティブ化/選択しなくても機能します。

Sheet1.ChartObjects(1).Chart.CopyPicture
Sheet2.Paste
于 2013-02-11T06:17:31.210 に答える
1

selectを使用してコピーし、貼り付け先のページを選択してから、コピー元のシートに戻す必要がありますか？

はい-貼り付けるシートはアクティブである必要があります。使用するSheets("mytargetname").Select-使用するだけActivateでは不十分です...

設定した場合

Application.ScreenUpdating = False

これを行っている間、画面は点滅しません...

于 2013-02-10T19:59:00.957 に答える