質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

解決済

1回答

1757閲覧

エクセルをパワポに貼り付け時にエラー

koneko-neko

総合スコア13

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2022/12/21 23:49

編集2022/12/28 10:52

VBA(office365)で、エクセルをコピーしてパワポに貼り付け時にエラーが出ます。
下記コードを使用しているのですが、、

sl.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile, Link:=msoFalse

このコードの時に、

実行時エラー:2147188160(80048240)
Shapes(不明なメンバー):無効な要求です。指定した種類のデータは使用できません。

と出ます。うまく行くときもあるのですが、最近うまくいかなくなってしまい、エクセルのcopyの後に、待ち時間

Application.Wait now + Timevalue(”0:00:10”)

を設定してみましたが、現象は変わりません。そもそも何が原因なのでしょうか?サーバーに保存しているパワポを開いて貼り付けているのが原因でしょうか?

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

sk.exe

2022/12/22 06:42

Excel 側から何をクリップボードにコピーされているのでしょうか。 その辺りの一連のコードも明記されることをお奨めします。
koneko-neko

2022/12/22 09:17

セルをコピーしてそれをパワポに貼り付けています。 コードは下記です。 Dim sl As PowerPoint.Slide Dim countSld As Integer Dim ppPt As Presentation Dim ppApp As New PowerPoint.Application namae = ActiveWorkbook.Name ActiveWindow.View = xlNormalView shito = ActiveSheet.Name shita = Cells(Rows.Count, 98).End(xlUp).Row Set ppPt = ppApp.Presentations.Open("サーバーのパワポファイルを指定") ppPt.PageSetup.SlideSize = ppSlideSizeOnScreen LT_Row = 10 LT_Col = 1 RL_Col = 96 RL_Row = 51 Do Until ActiveCell.Row >= shita + 1 If ActiveCell.Interior.ColorIndex = 1 Then Range(Cells(LT_Row, LT_Col), Cells(RL_Row, RL_Col)).Select Selection.Copy With ppPt.Slides Set sl = .Add(Index:=.Count + 1, Layout:=ppLayoutBlank) End With sl.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile, Link:=msoFalse '←ここでエラーが出ます sl.Shapes(2).LockAspectRatio = msoFalse sl.Shapes(2).Left = 0 sl.Shapes(2).Top = 0 sl.Shapes(2).Width = 720 sl.Shapes(2).Height = 541
guest

回答1

0

自己解決

am.exe様、okakemetal様、返信ありがとうございます。
まだ解決には至っておりませんが、一旦クローズします。

投稿2022/12/28 01:52

koneko-neko

総合スコア13

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問