Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44 / 13163 ツリー ←次へ | 前へ→

【79872】型が一致しません bou 18/5/7(月) 12:50 質問[未読]
【79873】Re:型が一致しません γ 18/5/7(月) 21:08 発言[未読]
【79878】Re:型が一致しません γ 18/5/9(水) 21:46 発言[未読]
【79879】Re:型が一致しません ぼう 18/5/10(木) 1:07 お礼[未読]

【79872】型が一致しません
質問  bou E-MAIL  - 18/5/7(月) 12:50 -

引用なし
パスワード
   Excel VBAでパワーポイントを開いて画像を挿入するプログラムを作っています。それを実行したときに、「型が一致しません」というエラーが出ます。しかしどこを見ても型が一致しない部分が見つからないので、どこがおかしいか教えていただきたいです(そのコードは後述します)。コードを参考にしたサイトは次のURLのところです。http://color-chips.net/pencils/archives/2014/0805_220036.html
これをパワーポイントVBAコピペしたときはちゃんと実行できました。Excel VBAにコピペして実行しようとしたときはActiveXが使えないという類のエラーが出ました。
前述の型不一致エラーが出るコードは以下です。上のものをコピペして一部改変したものです。
Set stImageShape = ppPrs.Slides(tsIndex(num)).Shapes.AddPicture( _
    Filename:=objFile.Path, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=0, _
    Top:=0)
(stImageSapeはshape、ppPrsはPowerPoint.Presentation、tsIndex()とnumはInteger、objFileはObjectとして宣言しています。

【79873】Re:型が一致しません
発言  γ  - 18/5/7(月) 21:08 -

引用なし
パスワード
   部分的なコードなので詳細は不明ですが、
shapeとするとそれはExcelのshapeではないですか?

【79878】Re:型が一致しません
発言  γ  - 18/5/9(水) 21:46 -

引用なし
パスワード
     Dim stImageShape As PowerPoint.Shape
としたらどうですか?ということですがねえ。
返事くらいするものです。

【79879】Re:型が一致しません
お礼  ぼう  - 18/5/10(木) 1:07 -

引用なし
パスワード
   返信が遅れてしまい申し訳ありません。
手元に確認できる端末がないのですが、それでできそうな気がするので後日やってみようと思います。
ありがとうございます。

44 / 13163 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free