[[20200506110829]]　『(再)VBAでExcelからPPTへ表の貼り付け』（はな）　ページの最後に飛ぶ

『(再)VBAでExcelからPPTへ表の貼り付け』（はな）

VBAでExcelからPPTへ表の貼り付けを作成し、
Win7では表全体がPPTに貼り付けられましたが、
Win10で同VBAを実行すると一部表が欠落されたまま貼り付けられてしまいます。
デバッグで全部コピーされているのを確認できましたが、
PPTに貼り付けられるタイミングでなぜか一部表が欠落しておりました。
OSのバージョンの問題なのか、VBAの問題なのかご教示をお願いできますでしょうか。
コードは下記サイトにあったものを値のみ変更し、使用しております。
http://www.fingeneersblog.com/995/

'--- 表をコピーする ---'
Dim xlTable As range
Set xlTable = ws.range("[貼付範囲]")
xlTable.Copy
'--- 表を貼り付ける ---'
Dim pptSld As PowerPoint.Slide
Set pptSld = pptPrs.Slides(page) '貼付先のページを指定
Call pptSld.Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile, Link:=msoFalse)
'--- 調整のため貼り付けたオブジェクトを取得 ---'
Dim i As Long
i = pptSld.Shapes.Count '要素数を取得（最後が貼り付けたオブジェクト）
'--- 貼付位置の調整 ---'
pptSld.Shapes(i).top = top
pptSld.Shapes(i).left = left
'--- 貼付サイズを調整 ---'
Call pptSld.Shapes(i).ScaleHeight(scaleFactor, msoFalse)
Call pptSld.Shapes(i).ScaleWidth(scaleFactor, msoFalse)

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

再投稿しなくてもいいのに。
それとも回答してくれないから。

回答者に迷惑ですよ。
（り） 2020/05/06(水) 11:32

＞デバッグで全部コピーされているのを確認できましたが、
＞PPTに貼り付けられるタイミングでなぜか一部表が欠落しておりました。

ステップ実行では、問題なく貼り付けできるということでしょうか。

（マナ） 2020/05/06(水) 12:17

り　さん
回答いただけないこともあるのですね。
大変失礼いたしました。

マナ　さん
ステップ実行の貼り付け時に、表が欠落しておりました。
ステップ実行のコピーでは、欠落しておらず、全体がコピーされておりました。

また、前掲載からの誘導リンクありがとうございます。
お手数をおかけしました。
（はな） 2020/05/06(水) 15:34

 >誘導リンク

 言葉知らないんですかね！

（ムチ？） 2020/05/06(水) 16:02

＞ステップ実行の貼り付け時に、表が欠落しておりました。
＞ステップ実行のコピーでは、欠落しておらず、全体がコピーされておりました。

手作業では、貼り付け出来ているということですね。
マクロの記録を試してみましたか。

（マナ） 2020/05/06(水) 16:07

マナ　さん
まだマクロの記録は試しておりません。
試してみます。
（はな） 2020/05/06(水) 16:23

コメント返信：

[ 一覧(最新更新順) ]

[[20200506110829]] 『(再)VBAでExcelからPPTへ表の貼り付け』（はな） ページの最後に飛ぶ

[[20200506110829]]　『(再)VBAでExcelからPPTへ表の貼り付け』（はな）　ページの最後に飛ぶ