[[20200505175354]] 『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 >


↓に移動
[[20200506110829]] 

(マナ) 2020/05/06(水) 12:18


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.